<% dim conn, strSQL, rs Set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open Server.mapPath("cipher.mdb") strSQL = "SELECT * FROM gasttbl order by gastID desc;" set rs = conn.execute(strSQL) dim fel fel = request.queryString("fel") %> <%server.execute("jscript.asp")%>

<%server.execute("meny.asp")%>      Guestbook     # = Required Fields <%=fel%> Name: # Mail: Homepage: From: Message: #     <% do while not rs.eof %> <% rs.movenext loop %> <%=rs("datum")%> | "> <%=rs("namn")%> | <% if rs("stad") = "" then%> <% Else %> <%=rs("stad")%> | <% end if %> " target="_blank"><%=rs("hemsida")%> <%=rs("inlagg")%> <%server.execute("ned.asp")%>    <%server.execute("bilder4.asp")%>