<% dim conn function OpenConn( DBName ) Set Conn = Server.CreateObject("ADODB.Connection") ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\")) Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}" end function OpenConn("../log/guestbook.mdb") if request ("mode") = "opret" then SQL = "insert into guestbook (guest_name, comments, email) values ('" & request("guest_name") & "', '" & request("comments") & "', '" & request("email") & "' )" Conn.execute( SQL ) response.redirect "../log/viewguest.asp" end if %> <% if request ("mode") = "" then %>
">

Skriv i vores Gæstebog

Navn
E-mail
Giv dit bidrag til vores gæstebog...



<% End If %>
Se i gæstebogen