<% response.buffer = true %>
<html>
<head>
<META NAME="Generator" CONTENT="Microsoft FrontPage 5.0">
<meta name="robots" content="NOINDEX">
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<!-- Minus AutoDato -->
<title>Gæstebog</title>
<style type="text/css">
.css
{
font-family:verdana;
font-size:8pt;
background-color:#ffffff;
border-bottom:dotted 1px;
border-color:#000000;
border-left:dotted
1px;
border-color:#000000;
border-right:dotted 1px;
border-color:#000000;
border-top:dotted 1px;
border-color:#000000;
}
<!--
A:link {
font-weight: normal;
color: black;
text-decoration: underline;
}
A:visited {
font-weight: normal;
color: black;
text-decoration: underline;
}
A:active {
color: black;
text-decoration: underline;
}
A:hover {
font-weight: normal;
color: #808080;
text-decoration: overline;
}
-->
</style>
</head>
<body bgcolor="#FFFFFF" topmargin="10" leftmargin="0"
rightmargin="0">
<div align="left">
<A HREF="tilfoej.asp" TARGET="_top">Skriv i gæstebogen.</A><br>
<HR SIZE="1" color="#000000">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
strSQL = "select* from gaestebogen ORDER BY ID DESC"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write "<font face=""Arial"" size=""2"">Gæstebogen er tom.</font>"
else
Do Until rs.EOF
%>
Fra: <A HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A><br>
Hjemmeside: <A HREF="
http://<%=RS("Hjemmeside")%>" TARGET="_blank"><%=RS("Hjemmeside")%></A><br>
<%=RS("Besked")%>
<HR SIZE="1" color="#000000">
<p><%RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing%></p>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
