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%>