%@LANGUAGE="VBSCRIPT"%> <% Dim rsCountry Dim rsCountry_numRows Set rsCountry = Server.CreateObject("ADODB.Recordset") rsCountry.ActiveConnection = MM_marketing_STRING rsCountry.Source = "SELECT * FROM tblCountries order by ordernum" rsCountry.CursorType = 0 rsCountry.CursorLocation = 2 rsCountry.LockType = 1 rsCountry.Open() rsCountry_numRows = 0 %> <% Dim rsCompany__varID rsCompany__varID = "0" If (session("svUserID") <> "") Then rsCompany__varID = session("svUserID") End If %> <% Dim rsCompany Dim rsCompany_numRows Set rsCompany = Server.CreateObject("ADODB.Recordset") rsCompany.ActiveConnection = MM_marketing_STRING rsCompany.Source = "SELECT * FROM tblCustomers WHERE ID = " + Replace(rsCompany__varID, "'", "''") + "" rsCompany.CursorType = 1 rsCompany.CursorLocation = 2 rsCompany.LockType = 3 rsCompany.Open() rsCompany_numRows = 0 %> <% Response.expires = -1 Response.CacheControl = "Private" Response.AddHeader "pragma","no-cache" %> <% if session("svLogin") <> "InYouGo" then response.Redirect("../gettingStarted.html") end if %> <% if (Request.ServerVariables("CONTENT_LENGTH") >0) Then if request.form("password") <> request.form("confirmPassword") then response.redirect("../messages/WrongPassword.html") end if if request.form("country") = "999" or request.form("country") = "3" then response.redirect("../messages/chooseOne.html") end if '********************************************************* rsCompany("company") = request.form("company") rsCompany("address1") = request.form("address1") rsCompany("address2") = request.form("address2") rsCompany("town") = request.form("town") rsCompany("County") = request.form("state") rsCompany("country") = request.form("country") rsCompany("postcode") = request.form("postcode") rsCompany("email") = request.form("email") rsCompany("tel") = request.form("tel") rsCompany("fax") = request.form("fax") rsCompany("town") = request.form("town") rsCompany("title") = request.form("yourTitle") rsCompany("surname") = request.form("surname") rsCompany("firstname") = request.form("firstname") rsCompany("url") = request.form("website") rsCompany("password") = lCase(request.form("password")) rsCompany.update response.redirect("where_now.asp") 'response.redirect("where_now.asp?ID=" & rsCompany__varID & "&pwd=" & lCase(request.form("password"))) end if %>
|
||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||