---
title: "Sök"
type: "forum-thread"
url: "https://www.webforum.nu/amne/webbutveckling/20367-sök"
topic: "Webbutveckling"
topic_url: "https://www.webforum.nu/amne/webbutveckling"
author: "Lazerzubb"
published: "2000-08-12T16:39:00.000Z"
updated: "2000-08-15T12:19:00.000Z"
replies: 5
views: 409
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/webbutveckling/20367-sök"
---

# Sök

## #1 — Lazerzubb, 2000-08-12T16:39Z

//\<%
Response.ContentType = "text/vnd.wap.wml"

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

if not rs.eof then
do until rs.eof
%\>dim period3
\<%rs.movenext
loop
end if
else
%\>Hittade inga hus i Landet eller Staden\<%
end if

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

%\>

%\>\<?xml version="1.0"?\> 
\<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"\> 
 
\<wml\> 

	\<card id="index" title="hej.com" newcontext="true"\>  
\<p\>

\<%=rs("period3")%\>
\</p\>
\</card\>
// vad är fel

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

## #2 — Lazerzubb, 2000-08-12T16:40Z

\<%
Response.ContentType = "text/vnd.wap.wml"

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

if not rs.eof then
do until rs.eof
%\>dim period3
\<%rs.movenext
loop
end if
else
%\>Hittade inga hus i Landet eller Staden\<%
end if

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

%\>\<?xml version="1.0"?\> 
\<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"\> 
 
\<wml\> 

	\<card id="index" title="rentonwww.com" newcontext="true"\>  
\<p\>

\<%=rs("period3")%\>
\</p\>
\</card\>

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

## #3 — AG, 2000-08-13T16:30Z

```
<!-- #include virtual="/land/adovbs.stm" -->
<%
Response.ContentType = "text/vnd.wap.wml"

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=D:\inetpub\wwwroot\land\sok1.mdb"
If Request.Form("sok") <> "" Then
SQL = "SELECT * From sok WHERE stad LIKE '" & Request.Form("sok")& "%'"
set rs=Connect.Execute(SQL)
%>

<?xml version="1.0"?> 
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> 
<wml> 
<card id="index" title="rentonwww.com" newcontext="true"> 
<p>
<%
If RS.EOF Then
Response.write("Hittade inga hus i Landet eller Staden!")
Else
%>
<%
Do until RS.EOF
%>
<%=rs("period3")%>
<%
RS.MoveNext
Loop
End If
%>
</p>
</card>
<%
rs.close
set rs=Nothing
Connect.close
set connect=nothing
%>
```

Nåt sånt här borde fungera bättre.

Andreas

\[Redigerat av AG den 13 aug 2000\]

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

## #4 — Lazerzubb, 2000-08-15T08:25Z

Fungerar inte testade även att ändra till denna koden men funkade inte heller
\<!-- #include virtual="/land/adovbs.stm" --\>
\<%
Response.ContentType = "text/vnd.wap.wml"
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=D:\\inetpub\\wwwroot\\land\\sok1.mdb"
If Request.Form("sok2") \<\> "" Then
SQL = "SELECT \* From sok WHERE Land LIKE '" & Request.Form("sok2")& "%'"
set RS=Connect.Execute(SQL)
%\>

\<?xml version="1.0"?\> 
\<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"\> 
\<wml\> 
\<card id="visa" title="rentonwww.com" newcontext="true"\> 
\<p\>
\<%
If RS.EOF Then
Do until RS.EOF
%\>\<%=RS("Land")%\>
\<%
RS.MoveNext
Loop
end if
else
%\>Hittade inga hus i Landet eller Staden!\<%
End If

RS.close
set RS=Nothing
Connect.close
set connect=nothing
%\>
\</p\>
\</card\>

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

## #5 — AG, 2000-08-15T08:44Z

Vad händer då när du använder min kod?

Andreas

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

## #6 — Lazerzubb, 2000-08-15T12:19Z

Error 500

Jag vill ha ett sökscript

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

---

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