Testa detta scriptet istället som PatrikB lagt upp
http://script.webforum.nu/wf/Forum1/HTML/000063.html
Frågan#1
Har en databas med bilder. En bild ska visas per sida. Var för funkar inte koden nedan. Alla de 3 bilder som finns nu visas på första sidan. På andra sidan visas bild 2 och 3 och på den tredje sidan visas bild 3
<%
'## -- hur många inlägg ska visas per sida --
intPageSize = 1
'## -- vilken sida ska visas --
intPage = Request.QueryString("page")
'## -- om ingen querystring med sidvärde hittas, visa då första sidan --
If intPage = "" Then intPage = 1
%>
</head>
<body bgcolor="#FFCC66">
<table width="550" border="0" cellspacing="1" cellpadding="1" align="center">
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#663300">Här
ser du medlemmarnas egna bilder!!</font></td>
</tr>
<tr valign="middle">
<td height="400"> <%
Set conn = Server.CreateObject("ADODB.Connection")
sql = "SELECT \* FROM egnabilder"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.PageSize = intPageSize
rs.Open sql, conn,3,1
%\> \<%
If rs.EOF Then
Response.Write "Det finns inga bilder än."
Else
'## -- vilken sida i recordset uppdelningen ska visas --
rs.AbsolutePage = intPage
'## -- hur många sidor finns i recordset uppdelningen --
intTotalPages = rs.PageCount
%>
<%
Do Until rs.EOF or intRecordCount >= intPageSize
%>
<div align="center"><img src="image_egnabilder/<%=rs("bild")%>">
<% rs.MoveNext
Loop%>
</div>
</td>
</tr>
<tr>
<td>
<b><font size="1"><%
Call PageNavigation(intPage, intTotalPages)
%></font></b>
<%
End If
rs.close
conn.close
%>
</td>
</tr>
</table>
</body>
<%
'## -- skapa sid-navigering --
Sub PageNavigation(ByVal WichPage, ByVal HowManyPages)
Dim strScriptName
Dim I
'## -- vilken sida ska navigeringen länka till --
strScriptName = Request.ServerVariables("SCRIPT_NAME")
'## -- visa föregående, länkat eller olänkat beroende på vilken sida som visas --
If CInt(WichPage) > 1 Then
Response.Write "<A href='" & strScriptName & "?" & _
"page=" & WichPage - 1 & "&search=" & search & "'><< Förra</A> "
Else
Response.Write "<font size=1><< Förra </font>"
End If
'## -- lista ut alla sidnummer --
For I = 1 To HowManyPages
If CInt(WichPage) <> I Then
Response.Write "<A href='" & strScriptName & "?" & _
"page=" & I & "&search=" &search &"'>" & I & "</A> "
Else
Response.Write "[ <B><font size=1>" & I & "</font></B> ] "
End If
Next
'## -- visa Nästa, länkad eller olänkad beroende på vilken sida som visas --
If CInt(WichPage) < CInt(HowManyPages) Then
Response.Write "<A href='" & strScriptName & "?" & _
"page=" & WichPage + 1 & "&search=" & search &"'> Nästa >>"
Else
Response.Write "<font size=1> Nästa</font>"
End If
End Sub
%>
[Redigerat av pellsäter den 29 nov 2001]