"Jens Gyldenkærne Clausen" <jens@gyros.invalid> skrev i en meddelelse
news:Xns9628ECAB6B6ABjcdmfdk@gyrosmod.cybercity.dk...
> S. larsen skrev:
>
>> Her er det ønskede.
>
> Det ser umiddelbart fint nok ud. Har du evt. et link til siden?
> Hvis ikke, så prøv at tjekke kildekoden i en browser - står der det
> du forventer der skal stå (<a href="dinside.asp?page=42">42</a>)
> --
> Jens Gyldenkærne Clausen
> Svar venligst under det du citerer, og citer kun det der er
> nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
> hvordan på
http://usenet.dk/netikette/citatteknik.html
Hej Jens.
Der står
Side: [1] <a href="?page=2">2</a>
Jeg er ikke ekspert i asp, og dette er under alle omstændigheder ud over min
begrebsverden, for jeg mener altså også at det hele ser meget rigtigt ud.
Her er så hele koden for hele siden, hvis det kan være til hjælp.
<%
Function InsertBR(str)
InsertBR = (Replace(str, vbCrlf, "<br>"))
End Function
%>
<%
Dim intPage
intPage = Request.QueryString("page")
If intPage <> "" Then
If IsNumeric(intPage) Then
If intPage < 1 Then
intPage = 1
End If
Else
intPage = 1
End If
Else
intPage = 1
End If
set rsItems = Server.CreateObject("ADODB.Recordset")
rsItems.ActiveConnection = connSTR
rsItems.Source = "SELECT * FROM ITEMS WHERE CAT_ID=" &
request.QueryString("CAT_ID") & " ORDER BY ITEM_NAME ASC"
rsItems.CursorType = 3
rsItems.CursorLocation = 2
rsItems.LockType = 3
rsItems.CacheSize = 10
rsItems.PageSize = 10
rsItems.Open()
%>
<table width="95%" cellspacing="0" cellpadding="1" align="center"
border="0">
<%
If Not rsItems.EOF Then
If CInt(intPage) > CInt(rsItems.PageCount) Then
intPage = Int(rsItems.PageCount)
End If
rsItems.AbsolutePage = CInt(intPage)
for i=1 to rsItems.PageSize
if not rsItems.EOF then
%>
<tr>
<td>
<a href="<%=(rsItems.Fields.Item("URL_LINK").Value)%>"
target=_blank><%=(rsItems.Fields.Item("ITEM_NAME").Value)%></a>
</td>
</tr>
<tr>
<TD height=30 align="left"
valign="top"><%=InsertBR(rsItems.Fields.Item("ITEM_DESC").Value)%></TD>
</tr>
<%
rsItems.MoveNext
end if
next
Else%>
<tr>
<td>
Der er ingen links !!!
</td>
</tr>
<%
End If
%>
</table>
<%
Dim strPage
strPage = Request.ServerVariables("SCRIPT_NAME")
%>
<table width="60%" cellspacing="0" cellpadding="1" align="center"
border="0">
<tr>
<td>
<%
For i = 1 To rsItems.PageCount
if cint(i)=1 then
Response.Write("Side: ")
end if
If cint(i) <> cint(intPage) Then
Response.Write("<a href=""" & strpage & _
"?page=" & i & """>" & i & "</a> ")
Else
Response.Write("[" & i & "] ")
End if
Next
rsItems.Close
rsItems=null
%>
</td>
</tr>
</table>
Hilsen
Søren