Thanks for the offer I shall post the two files and the database to you now. Would really appreciate your help as it's driving me mad.
As a final attempt I tried having the form and scrip all in one page but still no joy :-(
<%@ Language=VBScript %>
<%
Dim strSearchtxt
Dim Con
Dim rsPage
Dim Page
Dim RowCount
Dim PageCounter
Dim strQuote
If Request.ServerVariables("QUERY_STRING") <> "" Then
strSearchtxt = Trim(Request.QueryString("cool"))
'Get the Current page
Page = Request.QueryString("Page")
'If there is no page set it to page 1
If Page = "" then Page = 1
RowCount = 0
set con = server.CreateObject("ADODB.Connection")
Set rsPage = Server.CreateObject("ADODB.Recordset")
lsSQL = "SELECT * FROM review WHERE title = '" & strSearchtxt & "'"
Con.Open "DSN=brewster"
'Need a rich cursor type to support paging
rsPage.CursorType = 3 'adOpenStatic
'Set the number of records in each page to 10
rsPage.PageSize = 5
'Open recordset
rsPage.Open lsSQL, Con
'Set the current page based on the QueryString value
'Must cast it as an integer or else it will have problems.
rsPage.AbsolutePage = cInt(Page)
%>
<html><body>
Writing table:
<%
If Response.IsClientConnected = true then
Response.Write "<TABLE>"
'Loop though each of the records and break out when we
'have reached the max for this page
Do while not rsPage.eof and RowCount < rsPage.PageSize
'Write out content
Response.Write "<tr><td>" & rsPage("title") & "</td></tr>"
rsPage.Movenext
RowCount = RowCount + 1
Loop
Response.Write "</TABLE><p>"
For PageCounter = 1 to rsPage.PageCount
Response.Write "<a href='fiveon.asp?Page=" & PageCounter & "'>" & _
PageCounter & "</a> "
Next
rsPage.Close
set rsPage = Nothing
End if
%>
</body>
</html>
<%
else
%>
<html>
<body>
Enter a search criteria<br>
<FORM ACTION="<%=Request.ServerVariables("SCRIPT_NAME") %>" METHOD="GET">
First name: <INPUT TYPE="Text" NAME="cool"><BR>
<INPUT TYPE="Submit" NAME="submit" VALUE="Submit Form">
</FORM>
</body>
</html>
<% End If%>
Gaz
