הוספת תלמידים לטבלת נתונים
<%
Function rep(strInout)
		strTemp=Replace(strInput,"","`")
		rep=strTemp
end funcion
pna=rep(request.QueryString("Pname"))
sek=rep(request.QueryString("seker"))
f=rep(request.QueryString("Fname"))
s=rep(request.QueryString("sex"))
i=rep(request.QueryString("Id"))
p=rep(request.QueryString("pass"))
e=rep(request.QueryString("email"))
sq="insert into main(Pname,Fname,seker,sex,Id,pass,email) values" & _ 
"('"&pna&"','"&sek&"','"&f&"','"&s&"','"&i&"','"&p&"','"&e&"')"
path=server.mappath("data/movies.mdb")
set c=server.createobject("ADODB.Connection")
c.open "driver={Microsoft Access Driver (*.mdb)} DBQ=C:\Inetpub\wwwroot\deta\movies.mdb"
c.Execute sq 
%>
<br>
הוספת בהצלחה את המשתמש
<%=f%>