---
title: "Asp sök"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/5792-asp-sök"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Lazerzubb"
published: "2000-06-04T15:22:00.000Z"
updated: "2000-06-06T18:31:00.000Z"
replies: 12
views: 198
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/5792-asp-sök"
---

# Asp sök

## #1 — Lazerzubb, 2000-06-04T15:22Z

Jag skulle behöva söka igenom en mdb(access) fil.
om ordet som jag söker finns någonstans i filen 
så vill ja att den raden ska vissas.

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

## #2 — PatrikB, 2000-06-04T15:47Z

Hello,

har tagits upp förut på denna url:
 <http://cgi.webforum.nu/wf/Forum11/HTML/000267.html> 

//PatrikB

\[Redigerat av PatrikB den 04 jun 2000\]

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

## #3 — Lazerzubb, 2000-06-04T20:29Z

såå här är min kod fungerar ej
//\<html\>

\<!-- #include virtual="/databas/sok/adovbs.inc" --\>
\<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=d:\\inetpub\\wwwroot\\databas\\sok\\sok.mdb" 

If Request.Form("Land") = "Land" Then
SQL = "SELECT \* From sok WHERE Land LIKE '" & Request.Form("Land")& "%'" 
End If
SQL, Connect, MinCon
%\>
\<li\>\<% =RecSet("Land") %\> 
\</html\>//

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

## #4 — emission, 2000-06-04T20:55Z

Nu hänger jag inte riktigt med på vad du vill göra, men...

Det som händer i ditt skript är:

om formulärfältet "land" innehåller ordet "land" så skapas en SQL-sats "SQL"
sedan händer inte mycket mer, förutom att det blir fel på raden under

Kanske vill du ha det så här:

```
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\inetpub\wwwroot\databas\sok\sok.mdb" 

If Request.Form("Land") <> "" Then
SQL = "SELECT * From sok WHERE Land LIKE '%" & Request.Form("Land")& "%'" 

set RecSet=Connect.execute(SQL)
do until RecSet.eof
   %><li><%=RecSet("Land")%><%
   RecSet.movenext
loop

else

  %>Du angav inget land<%
 
End If
%>
```

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

## #5 — Lazerzubb, 2000-06-06T12:54Z

Jag har en databas som heter sok.
Där finns 2 rader.
land Stad
Usa New York
Sverige Lund
Och så vidare.
om man skriver in typ usa så
kommer då new york upp.

\<form method="post" action="sok.asp?Land=?"\>
Land:\<input name="Land" size="22"\>\<br\>
Stad:\<input namn="Stad size="24"\>\<br\>
\<input type="submit" value="Sök"\>
\</form\>

Hur ska jag sedan skriva för att den ska skriva ut och hitta new yotk i databasen.

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

## #6 — emission, 2000-06-06T15:16Z

\<form method="post" action="sok.asp?Land=?"\>

onödigt/fel att lägga med ?Land=? i slutet. Dels kommer värdet från formuläret, dels är ? inte tillåtet i querystring:en.

```
SQL = "SELECT * From sok WHERE Land LIKE '" & Request.Form("Land")& "%'"

set rs=Connect.Execute(SQL)

if not rs.eof then
   do until rs.eof
   %>Hittade staden <%=rs("Stad")%><BR>
   <%rs.movenext
   loop
else
   %>Hittade ingen stad i det landet<%
end if

rs.close
est rs=Nothing
Connect.close
set connect=nothing
```

\[Redigerat av emission den 06 jun 2000\]

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

## #7 — Lazerzubb, 2000-06-06T17:38Z

Detta kommer fram
Error Type:
Active Server Pages, ASP 0116 (0x80004005)
The Script block lacks the close of script tag (%\> ).
/databas/sok/sok1.asp, line 16

Browser Type:
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0) 

Page:
POST 5 bytes to /databas/sok/sok1.asp

POST Data:
Land= 

\<html\>

\<!-- #include virtual="/databas/sok/adovbs.inc" --\>
\<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=d:\\inetpub\\wwwroot\\databas\\sok\\sok.mdb" 
If Request.Form("Land") \<\> "" Then
SQL = "SELECT \* From sok WHERE Land LIKE '" & Request.Form("Land")& "%'"
set rs=Connect.Execute(SQL)

if not rs.eof then
do until rs.eof
%\>Hittade staden \<%=rs("Stad")%\>\<BR\>
\<%rs.movenext
loop
else
%\>Hittade ingen stad i det landet\<%
end if

rs.close
est rs=Nothing
Connect.close
set connect=nothing

\</html\>

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

## #8 — emission, 2000-06-06T17:41Z

**Läs** felmeddelandet.

obs! ett litet feltryck där det står "est" i stället för "set"

\[Redigerat av emission den 06 jun 2000\]

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

## #9 — Lazerzubb, 2000-06-06T18:06Z

kommer samma fel
Error Type:
Active Server Pages, ASP 0116 (0x80004005)
The Script block lacks the close of script tag (%\> ).
/databas/sok/sok1.asp, line 16

Browser Type:
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0) 

Page:
POST 8 bytes to /databas/sok/sok1.asp

POST Data:
Land=Usa

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

## #10 — AG, 2000-06-06T18:09Z

Testa att byta ut:
Connect.close
set connect=nothing

\</html\>
mot:
Connect.close
set connect=nothing
%\>
\</html\>

Den letar ju nämligen efter en avslutning som aldrig kommer.
Andreas

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

## #11 — Lazerzubb, 2000-06-06T18:14Z

SÅ här ser all kod ut totalt
\<html\>

\<body\>

\<form method="post" action="sok1.asp"\>
Land:\<input name="Land" size="22"\>\<br\>
Stad:\<input namn="Stad size="24"\>\<br\>
\<input type="submit" value="Sök"\>
\</form\>

\</body\>
\</html\>
Sen sok1.asp
\<html\>

\<!-- #include virtual="/databas/sok/adovbs.inc" --\>
\<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=d:\\inetpub\\wwwroot\\databas\\sok\\sok.mdb" 
If Request.Form("Land") \<\> "" Then
SQL = "SELECT \* From sok WHERE Land LIKE '" & Request.Form("Land")& "%'"
set rs=Connect.Execute(SQL)

if not rs.eof then
do until rs.eof
%\>Hittade staden \<%=rs("Stad")%\>\<BR\>
\<%rs.movenext
loop
else
%\>Hittade ingen stad i det landet\<%
end if

rs.close
set rs=Nothing
Connect.close
set connect=nothing
%\>

\</html\>

felmeledande kommer
Error Type:
Microsoft VBScript compilation (0x800A03F6)
Expected 'End'
/databas/sok/sok1.asp, line 22

Browser Type:
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0) 

Page:
POST 8 bytes to /databas/sok/sok1.asp

POST Data:
Land=Usa

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

## #12 — sgtpepper, 2000-06-06T18:21Z

Du måste **LÄSA** feltexten!

'End expected' betyder just det, att du inte avslutat ett programblock med END.

Lägg in ett 'end if' efter loop'en:
....
if not rs.eof then
  do until rs.eof
    %\>Hittade staden \<%=rs("Stad")%\>\<BR\>
    \<%rs.movenext
  loop
end if

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

## #13 — Lazerzubb, 2000-06-06T18:31Z

Älskar detta forumet det rular så jävla fett och tänk att jag har träffat 
han som startade det.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/5792-asp-sök