<%@ LANGUAGE="VBSCRIPT" %> <% Nusername=Replace(Request.Form("username"),"'","''") Npass1=Replace(Request.Form("pass1"),"'","''") Npass2=Replace(Request.Form("pass2"),"'","''") Nfname=Replace(Request.Form("fname"),"'","''") Nlname=Replace(Request.Form("lname"),"'","''") Ncct=Replace(Request.Form("cct"),"'","''") Nccn=Replace(Request.Form("ccn"),"'","''") Nexpdate=Replace(Request.Form("expdate"),"'","''") Nemail=Replace(Request.Form("email"),"'","''") IF Npass1<>Npass2 THEN response.redirect("signup.asp?e=badpw") End IF %> Add New YVV User

Thanks for your signing up.

Click here to return to Your Virtual Vacation and start traveling!, Click Here <% strDBPath = Server.MapPath("fpdb/yvv.mdb") Set SurveyDB=Server.CreateObject("ADODB.Connection") SurveyDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" strSQL = "INSERT INTO yvv " _ & "( FirstName, LastName, UserName, Password, Email ) " _ & "SELECT '" & Nfname & "' AS fname, '" _ & Nlname &"' AS lname, '" _ & Nusername &"' AS username, '" _ & Npass1 &"' AS pass1, '" _ & Nemail &"' AS email; " response.write(strSQL) SurveyDB.Execute(strSQL) SurveyDB.Close %>