<% ' Comersus Shopping Cart ' Comersus Open Technologies ' United States ' Software 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 pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode") pCurrencySign = getSettingKey("pCurrencySign") pDecimalSign = getSettingKey("pDecimalSign") pCompany = getSettingKey("pCompany") pCompanySlogan = getSettingKey("pCompanySlogan") pAboutUsLink = getSettingKey("pAboutUsLink") pHeaderKeywords = getSettingKey("pHeaderKeywords") pAuctions = getSettingKey("pAuctions") pAllowNewCustomer = getSettingKey("pAllowNewCustomer") pNewsLetter = getSettingKey("pNewsLetter") pStoreNews = getSettingKey("pStoreNews") pSuppliersList = getSettingKey("pSuppliersList") pRssFeedServer = getSettingKey("pRssFeedServer") pRandomPassword = getSettingKey("pRandomPassword") pDisableState = getSettingKey("pDisableState") ' custom field names pCustomerFieldName1 = getSettingKey("customerFieldName1") pCustomerFieldName2 = getSettingKey("customerFieldName2") pCustomerFieldName3 = getSettingKey("customerFieldName3") pIdCustomer = getSessionVariable("idCustomer",0) pIdCustomerType = getSessionVariable("idCustomerType",1) %>

<%=getMsg(235,"Cust reg")%>

<%if pRandomPassword="0" then%> <%else%> <%end if%> <%if pDisableState<>"-1" then%> <%end if%> <%if pCustomerFieldName1<>"" then%> <%end if%> <%if pCustomerFieldName2<>"" then%> <%end if%> <%if pCustomerFieldName3<>"" then%> <%end if%>

<%=getMsg(236,"name")%>
<%=getMsg(237,"last")%>
<%=getMsg(238,"comp")%>
<%=getMsg(239,"phone")%>
<%=getMsg(240,"email")%>
<%=getMsg(241,"pwd")%>	(A-Z 0-9)
<%=getMsg(242,"addr")%>
<%=getMsg(243,"zip")%>
<%=getMsg(244,"state")%>	<% ' get stateCodes mySQL="SELECT stateCode, stateName FROM stateCodes ORDER BY stateName" call getFromDatabase(mySql, rstemp2,"customerRegistrationForm") %> <%=getMsg(245,"select")%> <%do while not rstemp2.eof pStateCode2=rstemp2("stateCode")%> ><%=rstemp2("stateName")%> <%rstemp2.movenext loop%>
<%=getMsg(250,"non listed")%>
<%=getMsg(246,"city")%>
<%=getMsg(247,"ctry")%>	<% ' get CountryCodes mySQL="SELECT countryCode, countryName FROM countryCodes ORDER BY countryName" call getFromDatabase(mySql, rstemp2,"customerRegistrationForm") %> <%=getMsg(248,"select")%> <%do while not rstemp2.eof pCountryCode2=rstemp2("countryCode")%> <% if pCountryCode=pCountryCode2 then response.write "selected" end if %>><%=rstemp2("countryName")%> <%rstemp2.movenext loop%>
<%=pCustomerFieldName1%>
<%=pCustomerFieldName2%>
<%=pCustomerFieldName3%>
">

<%call closeDb()%>