Jag håller på med en wap sida som innehåller ASP kod, ASP koden ska lista alla evenmang ifrån en speciel stad och ett specielt datum.
Följande sträng skickas till filen:
even.asp?stad=G%F6teborg&datum=Tor%203%2f9
Alltså stad=Göteborg och datum=Tor 3/8
Filen ser ut så här:
!--#include file="conn.asp" --><%
'send the right MIME type
Response.ContentType = "text/vnd.wap.wml"
Dim SQLquery
Dim rsNoje
Dim strEven
Dim strStad
Dim strDatum
strStad = Request("stad")
strDatum = Request("datum")
%>
<?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="card1" title="Visar evenemang.">
<p>
<%
SQLquery = "SELECT [even] FROM data WHERE stad = '" & strStad & "' AND datum = '" & strDatum & "'"
response.write(SQLquery)
set rsNoje = conn.Execute(SQLquery)
if rsNoje.eof then
rsNoje.close
set rsNoje = nothing
Response.write("Sorry, nothing happens in <br/>" & strStad & " at " & strDatum)
Response.write("</p></card></wml>")
Response.end
end if
Do while not rsNoje.eof
strEven = rsNoje("even")
Response.write("<br/><br/>- " & strEven &vbcrlf)
rsShows.MoveNext
loop
%>
<br/><br/>
<small>
<a href="index.asp">Tillbaka</a>
</small>
</p>
<% rsNoje.close
set rsNoje = nothing
%>
</card>
</wml>
conn.asp:
<% option explicit
Dim conn 'connesione al database access
Set conn = Server.CreateObject("ADODB.Connection")
'DSN-less connection to access
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("databas.mdb") & ";"
%>
databas.mdb innehåller en table: data.
Data innehåller: stad, datum och even.
När jag kör detta fryser WinWap (programmet som kan läsa wap sidor).
Vad är fel?
OBS!Skicka ej över till wml forumet, det är fel på ASP-koden i detta fall!
------------------
Gaski: Viktig IT-profil!!!