<% sqlDocuments1="select * from Documents where id_idioma=" & session("lang" & prj)& " and DocumentID=3" set rsDocuments1=server.CreateObject("ADODB.Recordset") rsDocuments1.Open sqlDocuments1,con,1,2 if not rsDocuments1.EOF then strContents=rsDocuments1("content") title=rsDocuments1("ptitle") description=rsDocuments1("pdescription") keywords=rsDocuments1("pkeywords") end if %> <%if strMessage = "" then%> <%=strContents%>
<%end if%> <% Response.Write (request.form("text1")) %>

?step=<%=stepf%>" onSubmit="return CheckForm();"> <%if strMessage = "" then%> <%if Request.Form("oldemail")<>"" then %> "> "> <%End if%> <%if Request.QueryString("step")=2 then %> <%End if%> <% dim cntc, strChk,ProdsInOneRow 'The code for generating product options ends here 'The code for generating extra signup fields starts here if not eRs.eof then while not eRs.eof fieldname=eRS("dname") 'Response.Write instr(Request.QueryString(),"step") if Request.QueryString("step")<>"" and Request.QueryString("step")<>3 and Request.QueryString("step")<>1 and Request.QueryString("step")<>4 then if rs(fieldname) <>"" or not isnull(rs(fieldname)) then v=rs(fieldname) end if end if %> <%eRs.movenext wend end if%> <%ProdsInOneRow=1 'Number of products displayed in one row cntc=1 if not prodRs.eof then %> <%end if set eRS = nothing 'The code for generating extra signup fields starts ends here if request("step")<>2 then%> <%end if%> <%end if%>

<%if strMessage<>"" then %> <%=strMessage%>
<%end if%> <%if request("step")=2 then %> <%=t_(124)%> <%=fname%> <%=lname%>
<%=t_(125)%> <%end if%> <%if request.QueryString("step")<>"" and request.QueryString("step")<>"4" and request("verificationCode") <> session("verificationCode") then %> <%=t_(179)%>
<%end if%>

<%=t_(174)%>

<%=t_(126)%> :

<%=t_(127)%> :

<%=t_(101)%>:

<%=t_(102)%>:

<%=t_(103)%>:

<%=t_(163)%>:

<%=t_(104)%>:

<%=t_(105)%>:

<%=t_(106)%>:

<%=t_(107)%>:

<%=t_(23)%>:

<%=eRS("fname")%>:

<%=t_(109)%>:

<%=t_(108)%>

<%'The code for generating product options starts here%> <%while not prodRs.eof if products<>"" then aPro = split(products, ", ") for i = 0 to Ubound(aPro) strChk="" if prodRs("ProdID")=cInt(aPro(i)) then strChk = "checked" if strChk <> "" then exit for next end if response.write "" if cntc mod ProdsInOneRow =0 and cntc<>0 then Response.Write "" end if cntc=cntc+1 prodRs.movenext wend set prodRS = nothing %>

" & prodRs("prodName") & "

<%=t_(180)%>:

<%IF request.QueryString("step")<>"" and request.QueryString("step")<>"4" and request("verificationCode") <> session("verificationCode") THEN %> <%=t_(181)%> <%end if%>

<%if strMessage = "" then%> <%end if%>