Antal kommentar
jeg sidder og pusler med et blog script. Mit problem er at jeg gerne vil have scriptet til at vise hvor mange kommentar, der er skrevet... hvordan fletter jeg dette:(<%
set antal = myConn.Execute("Select Count(*) From comments Where ID = "&request.querystring("id"))
response.write antal(0) & "</FONT>"
myConn.Close
Set myConn = Nothing
%>)
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * FROM users ORDER BY id DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("form.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 3
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<font face='Verdana' size='1'><center>Side " & intPage & " af " & intPageCount & "</center></FONT>"
Do While Not rs.EOF And intRecCount > 0
response.write "<table border='0' WIDTH='100%'>"
response.write "<td width='400' valign='top' colspan='2'><div id='tabel5'><b>" & rs("overskrift") & "</b></div>"
response.write "<FONT FACE='VERDANA' SIZE='1'><FONT COLOR='#473262'>" & rs("dato") & "</FONT><hr COLOR='#DCB7DC' SIZE='1'><p>" & rs("tekst") & ""
response.write "<hr COLOR='#DCB7DC' SIZE='1'>"
Response.write "<img src=""skrivkommentar.gif"" width=""18"" height=""17"" border=""0"">"
Response.write "<a href=""java script:window.open('kom.asp?Id=" & RS("id") & "','Detaljer','toolbar=0,status=0,scrollbars=yes,resizable=no,width=400,height=400,top=50,left=50').focus();void(0)"">Skriv en kommentar</a> "
response.write "</FONT>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "<br>"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<hr color='#DCB7DC' size='1'>"
For intNum = 1 To intPageCount
Next
Response.Write "<table border='0' cellpadding='0' cellspacing='0' width='400'>"
Response.Write "<tr>"
Response.Write "<td width='33%' align='left'> "
If Clng(intPage) > 1 Then
Response.Write "<a href=index.asp?page=" & intPage - 1 & "><font face='Verdana' size='1' COLOR='#473262'><b>Forrige</b> </a>"
Else
Response.Write "<font face='Verdana' size='1' COLOR='#473262'><b>Forrige</b>"
End If
Response.Write "</td>"
Response.Write "<td width='33%' align='center'></td>"
Response.Write "<td width='34%' align='right'>"
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=index.asp?page=" & intPage + 1 & "><font face='Verdana' size='1' COLOR='#473262'><b>Næste</b></a> </td>"
Else
Response.Write "<font face='Verdana' size='1' COLOR='#473262'><b>Næste</b>"
End If
Response.Write "</tr>"
Response.Write "</table>"
%>
