<%@ Language=VBScript %> <% Option Explicit %> <% Dim sTitle, sName, sLastName, sEmail, sCell, sCName, sPostition, sBike, sAgree, sDate, sTime, sIP, sOS 'sTitle = Request.Form("Title") 'sName = Request.Form("FName") 'sLastName = Request.Form("LName") 'sEmail = Request.Form("Email") 'sCell = Request.Form("Cell") 'sCName = Request.Form("CName") 'sPostition = Request.Form("Position") 'sBike = Request.Form("Bike") 'sAgree = Request.Form("Agree") 'sDate = Date 'sTime = Time 'sIP = Request.ServerVariables("remote_addr") 'sOS = Request.ServerVariables("HTTP_USER_AGENT") Dim strSQL, rs strSQL = "SELECT * FROM UserList" 'strSQL = "INSERT INTO UserList (Title, Name, LastName, Email, Cell, Company, Position, Bike, Subscribe, Date, Time, IP, OS)"_ ' & "VALUES ('" & sTitle & "','" & sName & "','" & sLastName & "','" & sEmail & "','" & sCell & "','" & sCName & "','"_ ' & sPostition & "','" & sBike & "','" & sAgree & "','" & sDate & "','" & sTime & "','" & sIP & "','" & sOS & "')" 'response.write(strSQL) Set rs = objConn.Execute(strSQL) Do while not rs.eof ' Do until it reaches end of db Response.Write rs("Name") & " " & rs("Email") & "
" rs.MoveNext ' Next record loop 'Dim returntoFlash 'returntoFlash = "success=True&MSG=Thank you. Your details have been submitted." 'Response.Write %>