קוד:
<%@ LANGUAGE="VBSCRIPT" %>
<%
dim sqlText,conn
set con = Server.CreateObject("ADODB.Connection")
con.Open "DSN=DATA" sqlText= "INSERT INTO People (user,password,NAME,Last_name,ID,address,CITY,zip_ code,telephone,cellular,email)"
sqlText=sqlText & "values ('" & Request.form("user") & "','"
sqlText=sqlText & Request.form("password") & "','"
sqlText=sqlText & Request.form("NAME") & "','"
sqlText=sqlText & Request.form("Last_name") & "','"
sqlText=sqlText & Request.form("ID") & "','"
sqlText=sqlText & Request.form("address") & "','"
sqlText=sqlText & Request.form("CITY") & "','"
sqlText=sqlText & Request.form("zip_code") & "','"
sqlText=sqlText & Request.form("telephone") & "','"
sqlText=sqlText & Request.form("cellular") & "','"
sqlText=sqlText & Request.form("email") &"')"
con.Execute sqlText
con.Close
set con = Nothing
%>