---
title: "Hjälp med script"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13090-hjälp-med-script"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "His Divine Shadow"
published: "2001-12-08T17:54:00.000Z"
updated: "2001-12-08T23:32:00.000Z"
replies: 1
views: 190
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13090-hjälp-med-script"
---

# Hjälp med script

## #1 — His Divine Shadow, 2001-12-08T17:54Z

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

Permalänk: https://www.webforum.nu/p/13090

## #2 — iceM2, 2001-12-08T23:32Z

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.

Permalänk: https://www.webforum.nu/p/300228

---

Tråden på webben: https://www.webforum.nu/amne/asp/13090-hjälp-med-script