jeg er stadig ikke helt med, her hele scriptet,
det må det her eller hvad hele scriptet står længere ned
If rs("icq") = "ingen" then %><b><p>Ingen ICQ
<% Else %>
<b>ICQ Status</b> <img src="
http://wwp.icq.com/scripts/online.dll?icq=<%=RS("icq")%>&img=9" alt="<%=RS("IP")%>">
<% end if %>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN
strSQL = "Select * from jwgbog"
set rscount = conn.execute("select count(id) as antal from jwgbog")
antal = rscount("antal")
set rscount = nothing
%>
<html>
<head>
<title>GæsteBog</title>
</head>
<body bgcolor="#000000" text="#FFFFFF" link="#006699" vlink="#006699" alink="#006699">
<tr>
<td width="61%" height="11">
<p></td>
<td width="39%" height="11">
<p></td>
</tr>
<tr>
<td>
<p align="center"> </td>
</tr>
<tr>
<td> <u><i><b><font size="5"> </td>
</tr>
<tr>
<td>
Bimse`s GæsteBog</font></b></i></u></p>
<p align="center"><u><font size="2"><b><i></i></b></font></u></p>
<table border="0" width="700" bgcolor="#000000" cellspacing="1" cellpadding="0" align="center">
<tr>
<td width="100%" bgcolor="#FFFFFF" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr bgcolor="#FFFFFF">
<td width="50%" bgcolor="#000000"> </td>
<td align="right" valign="bottom" nowrap width="50%" bgcolor="#000000">
<div align="right"></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table border='0' cellspacing='0' cellpadding='0' width='700' align="center" height="19">
<tr>
<td width='1' valign='top' bgcolor='#000000'><img src="images/intet.gif" width='1'></td>
<td width='698' valign='top' bgcolor='#f7f7f7'>
<table width="100%" border="0" cellspacing="4" cellpadding="0">
<tr>
<td width="59%" bgcolor="#000000"><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="2">[
</font><i>
<a href="index.asp"><font color="#0000FF">Hjem</font></a></i><font size="2"> |
</font><i>
<a href="add.asp"><font color="#0000FF">Tilføj</font></a></i><font size="2">
| </font><i> <a href="guestbook.asp"><font color="#0000FF">Vis Gæstebogen</font></a></i></b></font>
<font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="2">
| </font><i><a href="admin/login.asp"><font color="#0000FF">
Webmaster</font></a><a href="admin/login.asp" target="_self"><font color="#0000FF">
</font> </a></i><font size="2">
]
</font></b></font></td>
<td width="40%" bgcolor="#000000">
<div align="right"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<font color="#0000FF">Skrevet
i min gæstbog:</font> <%=antal%></font> </b></div>
</td>
</tr>
</table>
</td>
<td width='1' valign='top' bgcolor='#000000'><img src="intet.gif" width='1'></td>
</tr>
</table>
</td>
</tr>
<table border="0" width="700" bgcolor="#000000" cellspacing="1" cellpadding="0" align="center">
<tr>
<td bgcolor="#000000" valign="top" colspan="2">
<div align="center">
<p>
<p>
<p><br>
<p>
<%
PageSize = 10
Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
If Request("PageTo") <> "" Then
strPageTo = Request("PageTo")
If strPageTo <> "" Then
nPageTo = int(strPageTo)
If nPageTo < 1 Then
nPageTo = 1
End If
Else
nPageTo = 1
End If
Set RS = Session("ListingRS")
RS.AbsolutePage = nPageTo
else
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionTimeout=15
Conn.CommandTimeout=30
Conn.Open Conn_String
Set Cmd=Server.CreateObject("ADODB.Command")
Set RS=Server.CreateObject("ADODB.Recordset")
Cmd.CommandType = 1
Set Cmd.ActiveConnection = Conn
Cmd.CommandText="SELECT * From jwgbog order by ID desc;"
RS.Open Cmd, , 1, 1
RS.PageSize = PageSize
Set Session("ListingRS") = RS
nPageTo = 1
If not (RS.BOF and RS.EOF) Then
Set RS = Session("ListingRS")
RS.AbsolutePage = nPageTo
End If
end if
If RS.EOF Then
Response.Write(" <br><br><font size=4 color='red'<b>No Script were found <br></b></font><br>")
Else
nRowCount = RS.PageSize
While not RS.EOF and nRowCount > 0
Count = 0
for i = 1 to Count
next
dagar=DateDiff("d", Dato, RS("Dato"))+2
if dagar >= 0 then
%>
<table border="0" width="100" bgcolor="#000000" cellspacing="1" cellpadding="0" align="center">
<tr>
<td bgcolor="#FFFFFF" valign="top" class="menuoverskrift" colspan="2">
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td width="34%" bgcolor="#000000"> <img src="<% = rs("pic") %>.gif" width="15" height="15"></td>
<td width="66%" bgcolor="#000000">
<div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<%
If rs("icq") = "ingen" then %><b><p>Ingen ICQ
<% Else %>
<b>ICQ Status</b> <img src="
http://wwp.icq.com/scripts/online.dll?icq=<%=RS("icq")%>&img=9" alt="<%=RS("IP")%>">
<% end if %>
</font> </div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" valign="top" class="menuoverskrift" colspan="2">
<table width="400" border="0" cellspacing="0" cellpadding="0" bgcolor="#e5e5e5" height="17">
<tr>
<td bgcolor="#f7f7f7">
<table width="400" border="0" cellspacing="0" cellpadding="3" class="1px_ganz" height="69">
<tr>
<td colspan="2" bgcolor="#000000"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Tilføjet
Kl.
<% = rs("kl") %>
D.
<% = rs("dato") %>
</b></font></td>
</tr>
<tr> </tr>
<tr> </tr>
<tr>
<td width="193" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Dit
navn</b><br>
</font><font face="tahoma" size="2">
<% = rs("navn") %>
</font></td>
<td width="195" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Alder</b><br>
</font><font face="tahoma" size="2">
<% = rs("alder") %>
</font></td>
</tr>
<tr>
<td colspan="2" bgcolor="#000000"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Kommetare</font><br>
</b><font face="tahoma" size="2">
<% = rs("kommetare") %>
</font></td>
</tr>
<tr>
<td width="193" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Email</b> <img border="0" src="pix/buddy.gif" width="18" height="17"><br>
</font><font face="tahoma" size="2">
<% = rs("email") %>
</font></td>
<td width="195" bgcolor="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Hjemmeside</b></font><br>
<font face="Tahoma" size="2"> <a href="<% = rs("url") %>" target="_blank">
<font size="1" color="#0000FF">Tryk her for se min hjemmeside </font></a>
</font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<hr width="400" noshade size="1" align="center">
<%
end if
nRowCount = nRowCount - 1
RS.MoveNext
Wend
'Display Paging Buttons
Response.Write("<center><table border=0 cellpadding=4 cellspacing=4><tr>")
' Display <<
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form1>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = 1 Then
Response.Write(vbcr & "<input type=submit value=' << Første ' style='{font-weight:bold}' DISABLED id=submit2 name=submit2><input type=hidden name=PageTo value=1>")
Else
Response.Write(vbcr & "<input type=submit value=' << Første ' style='{font-weight:bold}' id=submit1 name=submit1><input type=hidden name=PageTo value=1>")
End IF
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
' Display <
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form2>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = 1 Then
Response.Write(vbcr & "<input type=submit value=' < Tilbage ' id=submit1 name=submit1 style='{font-weight:bold}' DISABLED><input type=hidden name=PageTo value=1>")
Else
Response.Write(vbcr & "<input type=submit value=' < Tilbage ' id=submit1 name=submit1 style='{font-weight:bold}'>")
Response.Write(vbcr & "<input type=hidden name=PageTo value=" & nPageTo-1 & ">")
End If
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
' Display >
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form3>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = int(RS.PageCount) Then
Response.Write(vbcr & "<input type=submit value=' Næste > ' id=submit1 name=submit1 style='{font-weight:bold}' DISABLED><input type=hidden name=PageTo value=" & nPageTo & ">")
Else
Response.Write(vbcr & "<input type=submit value=' Næste >' id=submit1 name=submit1 style='{font-weight:bold}'>")
Response.Write(vbcr & "<input type=hidden name=PageTo value=" & nPageTo+1 & ">")
End IF
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
' Display >>
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form4>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = int(RS.PageCount) Then
Response.Write(vbcr & "<input type=submit value=' Sidste >> ' id=submit1 name=submit1 style='{font-weight:bold}' DISABLED><input type=hidden name=PageTo value=" & nPageTo & ">")
Else
Response.Write(vbcr & "<input type=submit value=' Sidste >> ' id=submit1 name=submit1 style='{font-weight:bold}'><input type=hidden name=PageTo value=" & RS.PageCount & ">")
End IF
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td colspan=4 align=center><font face='Verdana' size=2 ><b>Side </font><font face='Verdana' size=2 color='red'><b>" & nPageTo & "</font><font face='Verdana' size=2><b>/</font><font face='Verdana' size=2 color='red'><b>" & RS.PageCount & "</font></b>")
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("</table>")
end if
%><br>
</div>
</td>
</tr>
</table>
<p> </p>
<p> </p>
</body>
</html>
