rätta ordet du söker e sidnavigering va? ;) finns ett sånt script här på wf, kolla det.
------------------
O Yeah!
I wouldn't if I couldn't
Frågan#1
Hej, e en nuubi!
Nu lägger sig alla gästboksinläggen på hög, det e inte bra...
Jag vill dela upp så att inläggen delas upp i hopar om tio...
Först de senaste tio meddelandena, sedan länkar till arkiv 1 som innehåller 10 inlägg, sedan ett nästa arkiv med 10 inlägg osv.
Hur gör jag det på ett smidigt sätt?
Min kod är följande:
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("guestbook.mdb")
SQL = "SELECT * From Guestbook ORDER BY Datum DESC"
Set rs = db.Execute(SQL)
%>
<html>
<head>
<title>Natur</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
<form action="check.asp" method="post">
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100"><b>Namn:</b></td>
<td width="300"><input name="namn" id="input"></td>
</tr>
<tr>
<td width="100" valign="top"><b>Meddelande:</b></td>
<td width="300"><textarea rows="5" cols="40" name="meddelande" id="input"></textarea></td>
</tr>
<tr>
<td colspan="2"> <input type="submit" value="Skicka" id="input"> <input type="reset" value="Rensa" id="input"></td>
</tr>
</table>
</form>
<table width="70%" border="0" cellspacing="0" cellpadding="0">
<%
Do Until rs.EOF
%>
<tr><td>
<table width="100%" border="0" cellspacing="1" cellpadding="2" height="67" bgcolor="#000000" align="left">
<tr>
<td bgcolor="295552" height="2"><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">
<%
meddelande=Replace(rs("meddelande"),vbCrLf, "<br>")
%>
<b><%=rs("namn")%></b> (<%=rs("datum")%> )
</td>
</tr>
<br>
<tr>
<td bgcolor="#999966">
<p><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="black"><%=meddelande%></font></p>
</td>
</tr>
</table>
</td></tr>
<%
rs.MoveNext
Loop
%>
</td>
</tr>
</table>
</body>
</html>
Tacksam för svar =)
------------------
/Patrik B