הוספת תלמידים לטבלת נתונים
<%  
function rep(strInput)
		strTemp=Replace(strInput,"'","`")
		rep=strTemp
end function
f=rep(Request.QueryString("fname"))
l=rep(Request.QueryString("lname"))
i=Request.QueryString("id")
s=Request.QueryString("sub")
cl=Request.QueryString("class")

sq="insert into main(id,fname,lname,sub,class) values ('"&i&"','"&f&"','"&l&"','"&s&"','"&cl&"')"
path = server.mappath("data/data.mdb")
set c=server.createobject("ADODB.Connection")
c.open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" &path
c.Execute sq
%>
<br>
הוספת בהצלחה את המשתמש 
<%=f%>

הוספת תלמידים לטבלת נתונים
<%  
function rep(strInput)
		strTemp=Replace(strInput,"'","`")
		rep=strTemp
end function
nick=rep(Request.QueryString("nickname"))
p=rep(Request.QueryString("pname"))
l=rep(Request.QueryString("lname")
gen=Request.QueryString("genere")
icq=Request.QueryString("icq")
id=Request.QueryString("id")
pass=Request.QueryString("pass")
m=rep(Request.QueryString("email")

sq="insert into main(nickname,pname,lname,genere,icq,id,pass,email) 
values ('"&nick&"','"&p&"','"&l&"','"&gen&"','"&icq&"','"&id&"','"&pass&"','"&m
&"')"
path = server.mappath("data/mydata.mdb")
set c=server.createobject("ADODB.Connection")
c.open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" &path
c.Execute sq
%>
<br>
הוספת בהצלחה את המשתמש 
<%=f%>