Sök

<%
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>

------------------
Lazerzubb

<!-- #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]

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>

------------------
Lazerzubb

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

Andreas

Error 500

Jag vill ha ett sökscript

------------------
Lazerzubb