Jeg har lavet det her til dig tpiil:
<%
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 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>
Det er en af mine første WAP sider, så bær over med mig hvis de ikke virker *GG*