Hele koden (WAP) hvis det kan hjælpe:
<% Response.ContentType = "text/vnd.wap.wml" %>
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "
http://www.wapforum.org/DTD/wml_1.1.xml"><wml>
<card id="MainCard">
<%
sort = Request.QueryString("sort")
id = Request.QueryString("id")
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("../basen.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs = server.createobject("adodb.recordset")
if sort = 1 then
Query = "select * from brugere WHERE navn between 'a%' and 'g%' ORDER by navn"
elseif sort = 2 then
Query = "select * from brugere WHERE navn between 'h%' and 'n%' ORDER by navn"
elseif sort = 3 then
Query = "select * from brugere WHERE navn between 'o%' and 'u%' ORDER by navn"
elseif sort = 4 then
Query = "select * from brugere WHERE navn between 'v%' and 'å%' ORDER by navn"
end if
rs.open Query, conn
rs.movefirst
%>
<% if sort = 1 then %>
<small>Brugere A - G:</small><br/><br/>
<% elseif sort = 2 then %>
<small>Brugere H - N:</small><br/><br/>
<% elseif sort = 3 then %>
<small>Brugere O - U:</small><br/><br/>
<% elseif sort = 4 then %>
<small>Brugere V - Å:</small><br/><br/>
<% end if %>
<%
Do While NOt Rs.EOF %>
<small><%=rs("navn")%></small><br/>
<%
rs.movenext
Loop
rs.close
set rs= nothing
set conn = nothing
%>
<br/><small><a href="brugerinfo.asp"><< tilbage</a></small>
</card>
</wml>