Flet ind i Reponse.Write
Hejsa NG.Hvordan fletter jeg denne her kode:
<%
AntalKommentarer=0
if isNumeric(ID) then
Set rs1=objConn.Execute("SELECT COUNT(*) FROM commentsnyhed where nyhedid=" & ID)
AntalKommentarer=rs1(0).Value
Response.Write "(<font color='#FF9C00'>" & AntalKommentarer & "</font>)"
end if
%>
Ind i denne her kode:
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM arkiv ORDER BY id DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../db/data.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
Response.Write "<center><div id='boxnews'><table border='0' width='435' cellspacing='0' cellpadding='0'>"
Response.Write "<tr><td width='398' colspan='2' class='headline'><font color='#FF9C00'>»</font>" & rs("overskrift") & "</td>"
Response.Write "</tr><tr><td width='337' class='text'>"
Response.Write "<table width='100%' height='100%' cellpadding='2'>"
Response.Write "<tr>"
Response.Write "<td class='font'>" & rs("tekst") & "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</td>"
Response.Write "<td width='100' valign='top' class='tom'>"
Response.Write "<table border='0' width='100%' cellspacing='0' cellpadding='2'>"
Response.Write "<tr>"
Response.Write "<td width='100' height='100' class='pic' align='center' valign='bottom'>"
Response.Write "<img border='0' src='../pics/" & rs("pic") & "' width='65' height='80'><br><img src='gfx/nyhedbar.gif'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='100%' class='info' valign='middle'>"
Response.Write " <font color='#FF9C00'>»</font> <a href='newscom.asp?id=" & rs("Id") & "'>Diskuter</a><br>"
Response.Write " <font color='#FF9C00'>»</font> <a href='" & rs("kilde") & "' target='_new'>Kilde</a><br>"
Response.Write " <font color='#FF9C00'>»</font> <a href='" & rs("link") & "' target='_new'>Læs mere</a><br>"
Response.Write " <font color='#FF9C00'>Af:</font>" & rs("navn") & "</td>"
Response.Write "</tr>"
Response.Write "</table><br>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</div>"
Response.Write "<br>"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=newsarkiv.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=newsarkiv.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=newsarkiv.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
