<% 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") %> Gæstebog - Indlæg - ToonCompany
<% SQL = "select * from guestbook order by created desc" set guestbook = conn.execute( SQL ) if guestbook.eof then Response.Write "" Else 'Visning af 25 elementer 'dim i 'i = 0 'do until i = 25 or guestbook.eof 'Visning af samtlige elementer do while not guestbook.eof Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" guestbook.movenext loop End If %>

ToonCompany's Gæstebog

Gæstebogen er tom !
Navn :" & guestbook("guest_name") & "
E-mail :" & guestbook("email") & "
Oprettet :" & guestbook("created") & "
Kommentar :" & guestbook("comments") & "

Klik her for at skrive i gæstebogen