<%' Get the Current Page
pg = TRIM( Request( "pg" ) )
IF pg = "" THEN pg = 1
' Open the Recordset
Set Con=Server.CreateObject("ADODB.Connection")
Con.Open openStr,"",""
Set pRS = Server.CreateObject( "ADODB.Recordset" )
pRS.ActiveConnection = Con
pRS.CursorType = adOpenStatic
pRS.PageSize = 2
sqlString = "SELECT Place, PlaceName, Manager, Position, Country, City, Email, Website, Description, Image, Date " &_
"FROM Added WHERE Place like 'Thai Temple' "
pRS.Open sqlString
pRS.AbsolutePage = pg %>
<table width="350" border=0 cellpadding=5 cellspacing=0>
<td colspan=2> <font color="darkblue" size="3"> <b>Place Show:</b> </font> </td>
<%WHILE NOT pRS.EOF AND rowCount < pRS.PageSize
rowCount = rowCount + 1
%><tr><td>
<% IF pRS( "Image" ) <> "?????" THEN %>
<IMG SRC="images\<%=pRS( "Image" )%>" BORDER="0" ALIGN="MIDDLE" WIDTH="130" HEIGHT="90" HSPACE="10">
<% END IF %></td>
<td><a href="tht.asp?pid=<%=pRS( "PlaceName" )%>">
<b><%=pRS( "Manager" )%></b></a>
<br><%=pRS( "Position" )%>
<br><a href="tht.asp?pid=<%=pRS( "City" )%>">get more information</a></td>
</tr>
<tr><td colspan=2 align="center"> </td>
</tr>
<%
prodRS.MoveNext
WEND
%>
</table>
<%IF prodRS.PageCount > 1 THEN
%> <font color="darkgreen"> <b>Go to page: </b>
<%FOR i = 1 to prodRS.PageCount
IF i <> cINT( pg ) THEN
%> <a href="default.asp?cat=<%=cat%>&pg=<%=i%>">
<%=i%></a>
<% ELSE %>
<b><%=i%></b>
<%END IF%>
<%NEXT%> </font>
<%END IF%>
===================================
It is Error!
"Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursurtype."
Load balance : Server 04
