<%
sNamn = request.form("namn")
sInlagg = request.form("inlagg")
sDatum = request.form("datum")
set db = Server.CreateObject("ADODB.Connection")
db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & request.Servervariables("Appl_physical_path") & "html/Gaster.mdb"
sql = "INSERT INTO tblGast(Namn,Inlagg,Datum)VALUES('" & sNamn & "','" & sInlagg & "','" & sDatum & "')"
db.execute(sql)
db.close
%>