<% ' -- CHECK IF QUEYSTRING EXISTS. QUERYSTRING COULD CONTAIN "?u=XXXXXX" ' -- TO ALLOW USERS TO UPDATE AN EXISTING MEMBERSHIP ' -- IF NO QUERYSTRING EXISTS THEN ADD A NEW MEMBERSHIP RECORD ' -- START QUERYSTRING CONDITION If Request.QueryString ("u") = "" Then Dim strAction strAction = "AddNew" Elseif Request.QueryString ("u") <> "" Then ' -- DIMENSION LOCAL VARIABLES Dim intMemID ' ID Number from QueryString Dim strSalutation ' For Salutation String Form Field Dim strFirstName ' For First Name String Form Field Dim strLastName ' For Last Name String Form Field Dim strEmail ' For Email String Form Field Dim strAddress1 ' For Address String Form Field Dim strAddress2 ' For Address String Form Field Dim strCity ' For City String Form Field Dim strZip ' For Zip Code String Form Field Dim strTelephone ' For Country String Select Field Dim strCountryCode ' For Country String Select Field Dim intListID ' For Mailing List Select Field Dim strListName ' For Mailing List Select Field Dim arrayLists ' Array for Get.Rows for Distinct Mailing Lists Dim strCheckedStatus ' For Mailing List Radio Buttons ' -- DECODE QUERYSTRING BY DIVIDING BY 65536 intMemID = (Request.QueryString ("u") / intCodeNumber ) strAction = "Update" ' -- OPEN DATABASE CONNECTION Call openDB() ' -- SET AND EXECUTE SQL STRING strSQL = "SELECT maillist_members.Salutation, " &_ "maillist_members.FirstName, " &_ "maillist_members.LastName, " &_ "maillist_members.Email, " &_ "maillist_members.Address1, " &_ "maillist_members.Address2, " &_ "maillist_members.City, " &_ "maillist_members.Zip, " &_ "maillist_members.Telephone, " &_ "maillist_members.CountryCode, " &_ "maillist_members.listID, " &_ "maillists.listName " &_ "FROM maillist_members INNER JOIN maillists ON " &_ "maillist_members.listID = maillists.listID " &_ "WHERE memID = " & intMemID Call createRS (objRs) ' -- GET RESULTS AND STORE IN LOCAL VARIABLES IF NOT END OR BEGINNING OF FILE If objRs.EOF AND objRs.BOF Then ' -- CLOSE THE CONNECTION AND OBJECTS Call closeConnRS (objRs, objConn) ' -- CREATE SESSION MESSAGE. IF QUERYSTRING NUMBER IS BAD THEN DISPLAY MESSAGE Session ("strMessage") = "No matching details were found in our database. " Else ' -- ADD RECORDSET RESULTS TO LOCAL VARIABLES strSalutation = objRs("Salutation") strFirstName = objRs ("FirstName") strLastName = objRs ("LastName") strEmail = objRs ("Email") strAddress1 = objRs ("Address1") strAddress2 = objRs ("Address2") strCity = objRs ("City") strZip = objRs ("Zip") strTelephone = objRs ("Telephone") strCountryCode = objRs ("CountryCode") intListID = objRs ("listID") strListName = objRs ("listName") ' -- CLOSE THE CONNECTION AND OBJECTS Call closeConnRS (objRs, objConn) ' -- CREATE SESSION MESSAGE. IF QUERYSTRING NUMBER IS GOOD THEN DISPLAY MESSAGE Session ("strMessage") = "You may now update your existing membership details. " End If End If ' -- END QUERYSTRING CONDITION ' -- GET IDs AND NAMES FOR ALL THE AVAILABLE MAILING LISTS ' -- USED TO CREATE CHECKBOXES TO ALLOW CHOICE OF LISTS ' -- OPEN DATABASE CONNECTION Call openDB() ' -- SET AND EXECUTE SQL STRING strSQL = "SELECT listID, listName FROM maillists ORDER BY listID ASC" Call createRS (objRs) ' -- GET RESULTS AND STORE IN LOCAL ARRAY IF NOT END OR BEGINNING OF FILE If objRs.EOF AND objRs.BOF Then ' -- CLOSE THE CONNECTION AND OBJECTS Call closeConnRS (objRs, objConn) Else ' -- ASSIGN objRS TO ARRAY Call arrayGetRows () ' -- CLOSE THE CONNECTION AND OBJECTS Call closeConnRS (objRs, objConn) End If dim strNewsID strNewsID = Request.Querystring("id") dim newsNav(1) newsNav(0)="Subscribe" newsNav(1)="02 Nov 2003" %>

	Scarborough Tandoori, 48-52 St Thomas Street, Scarborough, Tel:01723 352393
		:Advertisements:
	<% For i=0 to ubound(newsNav) 'for each array 'Response.Write(i & strNewsID) If strNewsID=i Then 'select case strNewsID Response.write("") else Response.write("") end if next %> " & newsNav(i) & " " & newsNav(i) & "   <% select case strNewsID case "1" %> 2 Nov 2003 To celebrate the opening of our extension and our new Massala Room, we held a charity event to raise money for Sight Savers International. The many distinguished guests included the Mayoress of Scarborough. We'd like to thank everyone who attended and helped us raise over £2000.00 for the Charity. Click here to view pictures of the event. <% case else %> Subscribe Subscribe to receive news of all the latest offers and special events. Salutation <%= strSalutation %> Mr. Mrs. Miss Ms. Dr. Prof. Rev. Address First Name   Last Name Town Email Postcode     <% end select %>