קוד:
<%
Dim CorrectDetails , mySQL,a,b,c,d,e,f,g,h,i
a= request.form("categoryID")
b=request.form("ISBN")
c= request.form("title")
d=request.form("author")
e=request.form("pubID")
f=request.form("yop")
g=request.form("price")
h=request.form("info")
i=request.form("pics")
mySQL = "INSERT into books ( categoryID, ISBN, title,author, pubID, [year of publish], price, info,pics ) VALUES "
mySQL = MySQL & "('" & ( a ) & "','" & ( b ) & "','" & ( c ) & "','" & ( d ) & "','" & (e ) & "','" & ( f ) & "','" & ( g ) & "',,'" & ( h ) & "','" & ( i )& "')"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/db.mdb")
Conn.Execute mySQL
response.redirect "myformtrue.asp"
conn.Close
set conn=nothing
%>