<% dim cn,cnstr Set cn = Server.CreateObject("ADODB.Connection") cnstr="provider=microsoft.jet.oledb.4.0;" cnstr=cnstr & "data source=c:\inetpub\wwwroot\stud_asp_example\sem6_2002\c208\kim.mdb;" cn.connectionstring=cnstr cn.Open dim sql, oe, ole ,olle,ollle oe=Trim(request.form("navn")) ole=Trim(request.form("efternavne")) olle=Trim(request.form("mail")) ollle=date() sql="insert into data(navn,efternavn,mail,dato) values(' "& oe &" ',' "& ole &"',' "& olle &" ',#"& ollle &"#)" cn.execute sql cn.close set cn=nothing %> <html> <body background="baggrund.jpg"> Tak fordi du indskrev dig.<br><a href="gestebog.html"><img src="tilbage2.gif"></a> </body> </html>