<!-- #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\sok1.mdb"
If Request.QueryString("sok2") <> "" Then
SQL = "SELECT * From sok WHERE Land LIKE '" & Request.QueryString("sok2")& "%'"
set RS=Connect.Execute(SQL)
If RS.EOF Then
Do until RS.EOF
%>
<?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>
<%=RS("Land")%>
</p>
</card>
<%
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
%>
------------------
Lazerzubb