To update registration information click here." End If '>> GET END USER OBJECT FROM DATA ACCESSOR '====================== DATA ACCESS =================== '>> CREATE DATA OBJECT Set objData = New clsDataAccessor '>> SET DATA QUERY OBJECT AND PARAMTERS Set objData.colData = Server.CreateObject("Scripting.Dictionary") objData.colData.CompareMode = 1 Set objInterests = objData.GetUserInterests If EditType = "update" Then '== GET USER DATA objData.colData("EndUser_ID") = ID objData.KeyName = "EndUser_ID" '>> GET DATA AND SET LOCAL DATA OBJECTS Set objDataCollection = objData.GetEndUsers objData.KeyName = "" Set objUserInterests = objData.GetEndUserInterests If objDataCollection.Count > 0 Then Set objItem = objDataCollection(ID) Else Set objItem = Server.CreateObject("Scripting.Dictionary") End If Else Set objItem = Server.CreateObject("Scripting.Dictionary") Set objUserInterests = Server.CreateObject("Scripting.Dictionary") End If '>> SET CONTACTS OBJECT Set objContacts = objData.GetContact(conDefaultContactID) '>> SET NEWSLETTER OPTION objItem("IsNewsletter") = fCBool(objItem("IsNewsletter")) '>> CREATE THE RESULTS OBJECT AND SET VALUES '==>get all links for Home page Set objDisplayUILayout = New clsDisplayUILayout '>> START HTML '==>get Meta Data from database Call objDisplayUILayout.StartHTML("white", "", "level1", "Registration", "0") '>> SET FORM VALIDATION FUNCITONS %>

") Call objDisplayUILayout.DisplayFormField2_0("", _ " " & fCreateCheck("radNotifyAll", "1", objItem("radNotifyAll"), "checkbox") & "  Please Notify me of all Quinn's and Waverly Auctions. " , true, true, 3) Call objDisplayUILayout.DisplayFormField2_0("", _ " " & fCreateCheck("radNotifyWeekly", "1", objItem("radNotifyWeekly"), "checkbox") & "  Please Notify me of every weekly auction.           A brief list of some of the items will be sent every tuesday evening. " , true, true, 3) Call objDisplayUILayout.DisplayFormField2_0("", _ " " & fCreateCheck("radNotifyMe", "1", objItem("radNotifyMe"), "checkbox") & "  Please Notify me of all catalog Quinn's Auctions. " , true, true, 3) Call objDisplayUILayout.DisplayFormField2_0("", _ " " & fCreateCheck("radNotifyWaverly", "1", objItem("radNotifyWaverly"), "checkbox") & "  Please Notify me of all Waverly Auctions of Books, Maps, Prints, and Autographs. " , true, true, 3) Response.Write("") '== INTERESTS Response.Write "" Response.Write "" category="" newcategory=1 For Each Interest in objInterests cntInterest = cntInterest + 1 '== Is this item already selected? blnInterestSelected = false For Each UserInterest in objUserInterests If UserInterest = Interest Then blnInterestSelected = true Exit For End If Next if objinterests(interest) ("Category")=2 then Response.Write("") else If (cntInterest Mod 3) = 1 Then If cntInterest > 1 Then if objinterests(interest) ("Category") = 1 then Response.Write "" else Response.Write "" end if End If if objinterests(interest) ("Category") = 1 then Response.Write "" else Response.Write "" end if Else if objinterests(interest) ("Category") = 1 then Response.Write "" else Response.Write "" end if End If If (cntInterest Mod 3) = 0 Then if objinterests(interest) ("Category") = 1 then Response.Write "" else Response.Write "" end if End If end if Next If (cntInterest Mod 3) = 1 Then Response.Write "" ElseIf (cntInterest Mod 3) = 1 Then Response.Write "" End If Response.Write "" '============ / INTERESTS '>> SHOW CONTENT objDisplayUILayout.DisplayPageContent_EndNoScroll '>> END TABLE objDisplayUILayout.DisplayPageContentTableClose %>   <% objDisplayUILayout.FormMethod = "get" '==>Start Form: pass email address Call objDisplayUILayout.BeginForm("frmRegister", "ui_registration_action.asp") '==>Show Page Title and Header Grx Call objDisplayUILayout.DisplayPageTitle("", "", "") '>> START TABLE objDisplayUILayout.DisplayPageContentTableOpen Call objDisplayUILayout.DisplayFormField2_0("", _ " Enter information below and click ""Register"". ", true, true, 3) Call objDisplayUILayout.DisplayFormField2_0("*Email", _ " " & fCreateTextBox("txtEmail", 62, 200, objItem("EndUser_Email"), blnIsNotPassword) & _ "    ", true, true, 3) if not hasaccess then Call objDisplayUILayout.DisplayFormField2_0("*Password", _ " " & fCreateTextBox("txtPassword", 20, 20, objItem("EndUser_Password"), blnIsPassword), true, false, 1) Call objDisplayUILayout.DisplayFormField2_0("*Confirm Password", _ " " & fCreateTextBox("txtConfirmPassword", 20, 20, "", blnIsPassword), false, true, -2) else Response.Write("") end if Call objDisplayUILayout.DisplayFormField2_0("", _ " If you have not previously registered, please fill out the information below. ", true, true, 3) Call objDisplayUILayout.DisplayFormField2_0("*First Name", _ " " & fCreateTextBox("txtFirstName", 20, 50, objItem("EndUser_FirstName"), blnIsNotPassword), true, false, 1) Call objDisplayUILayout.DisplayFormField2_0("*Last Name", _ " " & fCreateTextBox("txtLastName", 20, 50, objItem("EndUser_LastName"), blnIsNotPassword), false, true, -2) Call objDisplayUILayout.DisplayFormField2_0("Address", " " & fCreateTextBox("txtAddress", 82, 100, objItem("EndUser_Address"), blnIsNotPassword), true, true, 3) Call objDisplayUILayout.DisplayFormField2_0("City", _ " " & fCreateTextBox("txtCity", 20, 50, objItem("EndUser_City"), blnIsNotPassword), true, false, 1) Call objDisplayUILayout.DisplayFormField2_0("State", _ " " & fCreateTextBox("txtState", 20, 50, objItem("EndUser_State"), blnIsNotPassword), false, true, -2) Call objDisplayUILayout.DisplayFormField2_0("Zip", _ " " & fCreateTextBox("txtZip", 20, 50, objItem("EndUser_Zip"), blnIsNotPassword), true, false, 1) Call objDisplayUILayout.DisplayFormField2_0("Country", _ " " & fCreateTextBox("txtCountry", 20, 50, objItem("EndUser_Country"), blnIsNotPassword), false, true, -2) Response.Write("         Please notify me when you are offering items in the selections below: " & objinterests(interest) ("subcategory") & "       " Response.Write "" Response.Write fCreateCheck("chkInterest", Interest, blnInterestSelected, "checkbox") Response.Write objInterests(Interest)("SubCategory") & "    " Response.Write fCreateCheck("chkInterest", Interest, blnInterestSelected, "checkbox") Response.Write objInterests(Interest)("SubCategory") & "   " Response.Write "" Response.Write fCreateCheck("chkInterest", Interest, blnInterestSelected, "checkbox") Response.Write objInterests(Interest)("SubCategory") & "    " Response.Write fCreateCheck("chkInterest", Interest, blnInterestSelected, "checkbox") Response.Write objInterests(Interest)("SubCategory") & "       <%= fCreateHidden("EditType", EditType) %> <%= fCreateHidden("ID", ID) %> <%= fCreateHidden("pageid", AccessPageID) %> * required field <% objDisplayUILayout.EndForm '==>End Form (moved here to give more space)%>

<% '>> DESTROY DISPLAY OBJECT AND DATA OBJECT Set objDisplayUILayout = Nothing Set objContacts = Nothing Set objData = Nothing %>