Hvis du bruger denne kode, så skulle det virke:
<%
Set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("nyheder.mdb")
Response.ContentType = "text/vnd.wap.wml"
%>
<?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="Nyheder">
<select name='nyhed'>
<%
strSQL = "SELECT * FROM nyheder"
Set rs = Server.CreateObject("ADODB.Recordset")
set rs = DBConn.Execute(strSQL)
do until rs.EOF
Response.Write("<option value='" & rs("overskrift") & "'>" & rs("overskrift") & "</option>" & vbcrlf)
rs.movenext
loop
%>
</select>
<small>
<anchor title="Nyhed">Vis Nyhed
<go href="visnyhed.asp" method="get">
<postfield name="nyhed" value="$(nyhed)" />
</go>
</anchor>
</small>
</card>
</wml>
Bare gem den ovenstående som default.asp
Så laver du en fil som hedder visnyhed.asp
Heri ligger du:
<%
nyhed = Request.Querystring("nyhed")
'Sender MIME typen for WML
Response.ContentType = "text/vnd.wap.wml"
%>
<?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="Visnyhed">
<%=nyhed%>
</card>
</wml>
//>Rune