CODIGO FUENTE

Cómo acceder con ASP desde un móvil WAP a una base de datos de Access

Aqui tienes un ejemplo de ASP, contra ACCESS que consulta una tabla llamada "nombres" y muestra el nombre y el apellido de todos los que existen en la tabla:

<%
'------------------------------------------
'-- Indicar el tipo MIME y eliminar caché
'------------------------------------------
Response.ContentType = "text/vnd.wap.wml"
Response.AddHeader "cache-control","no-cache"

'------------------------------------------
'-- Abrir la conexión con la base de datos
'------------------------------------------
Dim oConn
Set oConn = CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=D:\datos\links.mdb"

'---------------------
'-- Obtener los datos
'---------------------
Set oRS = oConn.Execute( "SELECT nombre, apellidos FROM nombres" )

%><?xml version="1.0" ?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
"http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card>
<do type="prev">
<prev/>
</do>
<% Do While Not oRS.EOF
%> <p><small>Nombre: <%= oRS.Fields("Nombre").Value
%><br/>
Apellidos<%= oRS.Fields("Apellidos").Value
%><br/></small></p>
<% oRS.MoveNext
Loop
%> </card>
</wml>

Enviado por Pablo Almunia a la lista de correo del wmlclub, 28-3-2000