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

Begränsning av visade poster

Rekommendera Poster

Marcus I.

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?

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Marcus I.

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

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...