nicht angemeldet
Suchergebnisse auf mehrere Seiten verteilen
Hallo miteinander,
ich habe folgendes Problem: Ich möchte die Ergebnisse einer Suche auf mehrere Seiten verteilt ausgeben (wie z.B. bei Google). Die Suche läuft über eine Spalte "Text" in einer Tabelle auf dem SQL-Server. Weiß jemand, wie ich z.B. 10 Suchergebnisse ausgeben kann und unten dann Links auf weiter Seiten einbauen kann?
MfG
Manfred
<%@ LANGUAGE=VBScript %>
<html>
<head>
<title>Ergebnisse der Suche</title>
</head>
<body>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
strConn = "provider=sqloledb;Data Source=(local);Initial Catalog=asptree;User Id=sa;password=;"
strSQL = "SELECT * FROM Partner WHERE Text LIKE '%" & Request.Form("Suchbegriffe") & "%'"
rs.Open strSQL, strConn
%><table border="0" width="100%">
<% dim i
i = 0 %>
<%
do until rs.EOF
%>
<% dim Text
Text = rs.Fields("Text")
%>
<tr>
<td width="20"><% i = i+1 %><% Response.Write (i) %></td>
<td valign="middle" width="80%"><b>Inhalt:</b> <% Response.Write(Left(Text,200)) %>...</td>
<td width="10%"> </td>
<tr>
<td></td>
<td colspan="2"><b>URL:</b> <a href="<%=rs.Fields("url")%>" target="Hauptframe"><% Response.Write rs.Fields("seite") %></a><p></p><br></td></tr>
</tr>
<%
rs.MoveNext
loop
rs.Close
%></table><b><% Response.Write (i) %> Ergebnisse gefunden</b>
</body>
</html>