Singletons gæstebog

<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("guestbook.mdb") SQLstmt = "SELECT * FROM guestbook ORDER BY ID desc;" ' 'response.write SQLstmt Conn.Execute (SQLstmt) Set rs = conn.Execute(SQLstmt) %> Singletons gæstebog

Singletons Gæstebog - Skriv i gæstebogen

<% DO WHILE NOT rs.EOF ID = rs("ID") overskrift = rs("overskrift") besked = rs("besked") navn = rs("navn") Dato = rs("Dato") email = rs("email") %> <%=overskrift%>
<%=besked%>
skrevet af:<%=navn%>
(<%=dato%>)
<% rs.MoveNext LOOP RS.Close conn.Close Set conn = nothing Set SQLstmt = nothing %>

Design by DYT