<% ' Comersus 4.2x Sophisticated Cart ' Developed by Rodrigo S. Alhadeff ' Dic-2002 ' Open Source License can be found at License.txt ' http://www.comersus.com ' Details: register a new customer without purchase anything %> <% on error resume next dim connTemp, mySql, rsTemp, rsTemp2 ' get settings pDefaultLanguage = getSettingKey("pDefaultLanguage") pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode") pCurrencySign = getSettingKey("pCurrencySign") pDecimalSign = getSettingKey("pDecimalSign") pCompany = getSettingKey("pCompany") pCompanyLogo = getSettingKey("pCompanyLogo") pAuctions = getSettingKey("pAuctions") pListBestSellers = getSettingKey("pListBestSellers") pNewsLetter = getSettingKey("pNewsLetter") pPriceList = getSettingKey("pPriceList") pStoreNews = getSettingKey("pStoreNews") pOneStepCheckout = getSettingKey("pOneStepCheckout") validateForm "customerRegistrationExec.asp" %>

<%=dictLanguage.Item(Session("language")&"_customerregistrationform_1")%>

<% validateError %>

<%=dictLanguage.Item(Session("language")&"_customerregistrationform_2")%>	<%validate "customerName", "required"%> <%textbox "customerName", "", 40, "textbox"%>
<%=dictLanguage.Item(Session("language")&"_customerregistrationform_12")%>	<%validate "lastName", "required"%> <%textbox "lastName", "", 50, "textbox"%>
<%=dictLanguage.Item(Session("language")&"_customerregistrationform_14")%>	<%textbox "customerCompany", "", 50, "textbox"%>
<%=dictLanguage.Item(Session("language")&"_customerregistrationform_3")%>	<%validate "phone", "phone"%> <%textbox "phone", "", 30, "textbox"%>
<%=dictLanguage.Item(Session("language")&"_customerregistrationform_4")%>	<%validate "email", "email"%> <%textbox "email", "", 30, "textbox"%>
<%=dictLanguage.Item(Session("language")&"_customerregistrationform_5")%>	<%validate "password", "required"%> <%textbox "password", "", 40, "password"%>
<%=dictLanguage.Item(Session("language")&"_customerregistrationform_6")%>	<%validate "address", "required"%> <%textbox "address", "", 60, "textbox"%>
<%=dictLanguage.Item(Session("language")&"_customerregistrationform_7")%>	<%validate "zip", "required"%> <%textbox "zip", "", 10, "textbox"%>
<%=dictLanguage.Item(Session("language")&"_customerregistrationform_8")%>	<% ' get stateCodes mySQL="SELECT stateCode, stateName FROM stateCodes ORDER BY stateName" call getFromDatabase(mySql, rstemp2,"customerRegistrationForm") %> <%=dictLanguage.Item(Session("language")&"_orderform_17")%> <%do while not rstemp2.eof pStateCode2=rstemp2("stateCode")%> <%=rstemp2("stateName")%> <%rstemp2.movenext loop%>
<%=dictLanguage.Item(Session("language")&"_customerregistrationform_13")%>	<%textbox "state", "", 30, "textbox"%>
<%=dictLanguage.Item(Session("language")&"_customerregistrationform_9")%>	<%validate "city", "required"%> <%textbox "city", "", 30, "textbox"%>
<%=dictLanguage.Item(Session("language")&"_customerregistrationform_10")%>	<%validate "countryCode", "required"%> <% ' get CountryCodes mySQL="SELECT countryCode, countryName FROM countryCodes ORDER BY countryName" call getFromDatabase(mySql, rstemp2,"customerRegistrationForm") %> <%=dictLanguage.Item(Session("language")&"_orderform_19")%> <%do while not rstemp2.eof pCountryCode2=rstemp2("countryCode")%> ><%=rstemp2("countryName")%> <%rstemp2.movenext loop%>
">

<%call closeDb()%>