WML: using ASP to show text from MS Access

 
<%@ Language = "JScript"; %><% Response.ContentType = "text/vnd.wap.wml";
%><?xml version="1.0"?>

<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.2//EN"
                     "http://www.wapforum.org/DTD/wml_1.2.xml">

'not sute if all of above is needed

<wml>
   <card id="card1" title="Testing">
      <p>
         Testing<br/>
<%
dim Conn 
dim FilePath 
dim SQL 
Dim RsUser 

'Connection to Database 
Set Conn = Server.CreateObject("ADODB.Connection") 
FilePath = Server.MapPath("db/database.mdb") 
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & FilePath & ";" 

'SQL Query String 
SQL = "Select * FROM news ORDER By headlines" 

'Set the Recordset 
Set RSUser = Conn.Execute (SQL) 

'Print the Recordset 
RSUser.movefirst 
Do while not RSUser.EOF 



   Response.Write (RSUser("headlines"))

RSUser.movenext

Loop 


%>
      </p>

   </card>
</wml>