Hjälp med script

Jag vill ha ett såntdär script som visar så många poster på en sida och om det finns mera så kan man gå vidare men dom exempel jag har sett är så totalt konstiga att jag fattar noll.

Jag skulle vilja anpassa denna sida på detta vis(så att det blir som i vanliga sök motorer) men jag vet inte hur.

<!-- #include file="connect.inc" -->
<%
dim searchTerm
searchTerm = request.form("searchTerm")
dim what
what = request.form("what")

      set Conn = server.createobject("ADODB.recordset")
      set RS_Prod = objCn.execute("SELECT * from quotes where "& what &" LIKE '%"& searchTerm &"%';") 
%>
<center>
	<font face="Verdana" size="2">Results for: <b>
			<%=searchTerm%>
		</b>
		<p>
	</font>
	<table cellpadding="2" cellspacing="0" border="0" width="600">
		<tr>
			<td>
				<% if RS_Prod.eof then %>
				<font face="Verdana" size="2">No results matched your query.
					<p>
						<b>
							<%=searchTerm%>
						</b>
					was not found.
					<p>
					Try another search</font>
</center>
<% else
  
Function Inverse(bryt)
bryt = Replace(bryt, vbCrLf, "<br>")
Inverse = bryt
end Function

do while not RS_Prod.eof %>
<b><font face="Verdana" size="2">
		<%=RS_Prod("Category")%>
		->
		<%=RS_Prod("Type")%>
		->
		<%=RS_Prod("SubCategory")%>
	</font></b>
<br>
<font face="Verdana" size="1">
	<%=Inverse(RS_Prod("Quote"))%>
	<br>
	<i>Submitted by:
		<br>
		<a href="mailto:<%=RS_Prod("Email")%>">
			<%=RS_Prod("Author")%>
		</a></font></i>
<p>
	<%RS_Prod.movenext%>
	<%loop%>
	<font face="Verdana" size="1">End of results
		<p>
		</p>
		</td></tr></table></font>
	<%end if%>
	<%objCn.close%>

------------------
His Divine Shadow is the most despicable being ever created.(så sade en fan)

Sprit löser inga problem. Men det gör inte mjölk heller.

T-bird 1200; GeForce 256 32MB; WinNT4/XP; 512MB RAM; Dialup

Det du vill ha kallas "paging" och för att hitta något passande skulle jag rekomendera dig att söka på paging i detta forumet, du kommer garanterat att hitta många trådar om just detta ämne.

------------------
"Ni tre går och bildar en kvadrat" (Rolf Zetterlund under ett träningspass)