ASP
Hvordan ser dette ud, er programmeringen iorden?<% response.buffer = true %>
<html>
<head>
<body background="Arkiv/Baggrundsbilleder/papir/beige.jpg">
<p><b><font size="5">Skriv i min gæstebog.</font></b></p>
<form action="send.asp" method="POST" class="css">
<table width="415">
<tr>
<td width="146"><font face="Bookman Old Style" size="3"><b>Dit
navn</b></font>
<td width="255"><input type="text" size="35" maxlength="256" name="Navn">
</tr>
</table>
<table width="414">
<tr>
<td width="145"><font face="Bookman Old Style" size="3"><b>Fra</b></font>
<td width="255"><input type="text" size="35" maxlength="256" name="Fra">
</tr>
</table>
<table width="413">
<tr>
<td width="144"><font face="Bookman Old Style" size="3"><b>Din emailadresse</b></font>
<td width="255"><input type="text" size="35" maxlength="256" name="email">
</tr>
</table>
<p><textarea name="Kommentar" rows="8" cols="52"></textarea></p>
<p><input type="submit" value="Send kommentarer"> <input type="reset" value="Ryd kommentarer"><br>
<br>
</table>
</center></div>
</form>
<br>
<em>Når du har sendt dine kommentarer, skal du klikke på "opdater"
(eller trykke F5) for at
få vist det, du har tilføjet i gæstebogen..</em></p>
</form>
<!--webbot bot="Include" TAG="BODY" U-INCLUDE="guestlog.htm" startspan -->
<%
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
%>
<hr>
<dl><dt><b>Navn: </b></dt><dd><%=RS("Navn")%></dd><dt><b>Fra: </b></dt><dd><%=RS("Fra")%></dd><dt><b>Email: </b></dt><dd><A HREF="mailto:<%=RS("email")%>"><%=RS("Navn")%></A></dd></dl><h3>Kommentarer</h3><p><%=RS("kommentar")%></p>
<%RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing%>
<br>
en masse html
</body>
</html>
