Just nu i M3-nätverket
Gå till innehåll

Begränsning av visade poster


Marcus I.

Rekommendera Poster

Håller som bäst på med sökmotor i asp, och vill begränsa antalet träffar som visas till ex. 10 st. Såg på mikrodatorns sida "8 tips för asp" där just det fanns med, men det fungerar inte. jag får felmedelandet:

 

Kompileringsfel i Microsoft VBScript fel '800a040e'

 

'loop' utan 'do'

 

/**/cgi-bin/search.asp, rad 29

 

Loop

^

Någon som kan hjälpa mig med detta?

Länk till kommentar
Dela på andra webbplatser

Nej, det underliga är att jag har en sådan rad, hela sidan ser ut så här:

 

<%@ LANGUAGE="VBScript" %>

<!--#include file="ADOVBS.inc"-->

<!--#include file="IASUtil.asp"-->

<%

sokning = Request("sokning")

 

Set Connection = Server.CreateObject("ADODB.Connection")

 

Connection.Open "DSN=westgota.nu"

 

SQLStmt = "SELECT * FROM Link "

SQLStmt = SQLStmt & "WHERE beskrivning LIKE '%" & sokning & "%' AND granskad = true "

SQLStmt = SQLStmt & "OR "

SQLStmt = SQLStmt & "Namn LIKE '%" & sokning & "%' AND granskad = true "

SQLStmt = SQLStmt & "ORDER BY namn "

 

Set RS = Connection.Execute(SQLStmt)

%>

<html>

 

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link rel="stylesheet" href="../style/stc.css" type="text/css" title="Style">

<META NAME="robots" CONTENT="NOINDEX,NOFOLLOW">

<TITLE></TITLE>

 

</head>

<base target="_top">

<body bgcolor="#080884">

 

 

 

<table border="0" width="400">

<tr>

<td>

<%

CurrentRecord = 0

 

Do Until RS.EOF %>

<h4><%= RS("namn") %></h4>

</TD>

</TR>

 

<TR>

<TD>

<p>

<%= RS("beskrivning") %>

</TD>

</TR>

<TR>

<TD>

<A HREF="<%= RS("url")%>"><%= RS("url")%></a><font size="2"> - <%= RS("datum") %></font>

</TD>

</TR>

 

<TR>

<TD>

<%

CurrentRecord = CurrentRecord + 1

If CurrentRecord > 9 then

RS.Close

Connection.Close

Else

RS.MoveNext

Loop

RS.Close

Connection.Close

End if

%>

<p> </p>

<p align="center"><% If CurrentRecord = 0 Then %><h4>Tyvärr fanns det ingenting som matchade din sökning.</h4><br>

<a href="../sok/index.htm" target="content">Klicka här för att försöka igen</a><% End If %></td>

</tr>

</table>

</body>

</html>

 

 

:-Marcus

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...