Aver si me saben ubicar en lo q quiero hacer (tengo q hacer)
Hay un pgma en access que manda mensajes a las radios nextel. El soft estaba hecho. tengo q cambiarlo. y me pasaron unas apginitas asp, pero lo que no entiendo es como organizarme..
Osea, no entiendo como un mensaje antes es una pagina, como hacer q de mi soft mande esos mensajes.. nose es raro, pero me parece q es raro de entender, nose..
por ejemplo.. esta es la pagina index.asp
Cita:
y la pagina mensaje.asp es esta..<%Response.ContentType = "text/vnd.wap.wml"%>
<%dim operacion, id, id_registro
id_celular = request("id_celular") 'id del celular que tiene que recibir la información
id_tel_control = Request.ServerVariables("HTTP_X_UP_SUBNO") 'obtención del id del celular que está navegando
%>
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "htt:/ww.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta forua="true" http-equiv="Cache-Control" content="no-cache"/>
</head>
<card id='card1' title='Bienvenido'>
<p align="center" mode="nowrap">
<b>Empresas</b><br/><br/>
<%
'if id_celular = "" or id_tel_control = "" or id_celular <> id_tel_control then
if id_celular = "" then
%>
Pagina Inicial.
<%
else%>
Mensajes
<br/>
<do type='Accept' label='ultimo'>
<go href="mensaje.asp?id_celular=<%=id_celular%>"/>
</do>
<do type='Accept' label='todos'>
<go href="mis_mensajes.asp?id_celular=<%=id_celular%>"/>
</do>
<%end if%>
</p>
</card>
</wml>
<%dim operacion, id, id_registro
id_celular = request("id_celular") 'id del celular que tiene que recibir la información
id_tel_control = Request.ServerVariables("HTTP_X_UP_SUBNO") 'obtención del id del celular que está navegando
%>
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "htt:/ww.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta forua="true" http-equiv="Cache-Control" content="no-cache"/>
</head>
<card id='card1' title='Bienvenido'>
<p align="center" mode="nowrap">
<b>Empresas</b><br/><br/>
<%
'if id_celular = "" or id_tel_control = "" or id_celular <> id_tel_control then
if id_celular = "" then
%>
Pagina Inicial.
<%
else%>
Mensajes
<br/>
<do type='Accept' label='ultimo'>
<go href="mensaje.asp?id_celular=<%=id_celular%>"/>
</do>
<do type='Accept' label='todos'>
<go href="mis_mensajes.asp?id_celular=<%=id_celular%>"/>
</do>
<%end if%>
</p>
</card>
</wml>
Cita:
Se entiende?? jeje---<%Response.ContentType = "text/vnd.wap.wml"%>
<%dim Conn, bandera, id_celular, id_mensaje, var_url_abordo, codigo_coche, id_viaje,destino, id_dueno
set Conn = Server.CreateObject("ADODB.Connection")
id_celular = request("id_celular")
%>
<!-- #include virtual="Siar301/includes/conexion.asp" -->
<%
'------------------
'SETEO DE RECORDSET
'------------------
Sql = "select top 1 *, dueños.[id dueno] from envios_celular "
Sql = Sql & "inner join dueños on envios_celular.id_telefono = dueños.id_celular "
Sql = Sql & " where id_telefono = '" & request("id_celular") & "'" & " "
Sql = Sql & " order by id_envio desc"
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = Conn
rs.CursorLocation = 3
rs.LockType = 4
rs.CursorType = 3
rs.Source = Sql
rs.Open
rs.ActiveConnection = Nothing
%>
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "htt://w.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta forua="true" http-equiv="Cache-Control" content="no-cache"/>
</head>
<card id="Card1" title="Ultimo">
<p align="left">
<%if rs.eof then%>
<small>
No existen mensajes.
</small>
<do type='Accept' label='inicio'>
<go href='index.asp?id_celular=<%=id_celular%>'/>
</do>
<%else%>
<%bandera = 1
id_mensaje = rs("id_envio")
codigo_coche = rs("codigo_coche")
id_viaje = rs("id_viaje")
destino = rs("destino")%>
<%=rs("fecha_envio")%>
<br/>
- - -
<br/>
<%if rs("importante") <> "" then%>
<img src="alerta.wbmp" alt=""/>
<br/>
<b>
<%=rs("importante")%>
</b>
<br/>
- - -
<br/>
<%end if%>
<%if rs("tipo_envio") = "mensaje" then%>
<small>
<%=rs("mensaje")%>
</small>
<%else%>
<small>
<%if rs("tipo_categoria") = "Cuenta Corriente" then%>
TIPO: Cta.Cte.
<br/>
EMP: <%=rs("emp")%>
<br/>
N CTA: <%=rs("nro_cuenta")%>
<br/>
<%else%>
TIPO: Efectivo
<br/>
<%end if%>
PAX: <%=rs("pax")%>
<br/>
HORA: <%=rs("hora")%>
<br/>
ORIGEN: <%=rs("origen")%>
<br/>
DESTINO: <%=rs("destino")%>
<br/>
OBSERV: <%=rs("observ")%>
</small>
<%if rs("numerovuelo") <> "" then%>
<br/>
AEROLINEA: <%=rs("aerolinea")%>
<br/>
NRO.VUELO: <%=rs("numerovuelo")%>
<br/>
PROCED.: <%=rs("procedenciavuelo")%>
<%end if%>
<%end if%>
<%
rs.close
set rs=nothing
if bandera = 1 then
sSQL = " SELECT acuse FROM envios_celular "
sSQL = sSQL & " WHERE id_envio=" & id_mensaje & " and acuse=0"
set rs = Conn.Execute(sSQL)
if not rs.eof then
sSQL = " UPDATE envios_celular SET acuse=1"
sSQL = sSQL & " WHERE id_envio=" & id_mensaje
Conn.Execute(sSQL)
end if
rs.close
set rs=nothing
end if
Conn.close
set Conn = nothing
%>
<do type='Accept' label='pax abordo'>
<go href='abordo.asp'>
<postfield name="id_celular" value="<%=id_celular%>" />
<postfield name="id_mensaje" value="<%=id_mensaje%>" />
</go>
</do>
<%'if id_celular = id_celular%>%>
<do type='Accept' label='liberar'>
<go href='liberado.asp'>
<postfield name="id_celular" value="<%=id_celular%>" />
<postfield name="id_mensaje" value="<%=id_mensaje%>" />
<postfield name="codigo_coche" value="<%=codigo_coche%>" />
<postfield name="id_viaje" value="<%=id_viaje%>" />
<postfield name="destino" value="<%=destino%>" />
<postfield name="id_dueno" value="<%=id_dueno%>" />
</go>
</do>
<%'end if%>
<do type='Accept' label='inicio'>
<go href='index.asp?id_celular=<%=id_celular%>'/>
</do>
<%end if%>
</p>
</card>
</wml>
<%dim Conn, bandera, id_celular, id_mensaje, var_url_abordo, codigo_coche, id_viaje,destino, id_dueno
set Conn = Server.CreateObject("ADODB.Connection")
id_celular = request("id_celular")
%>
<!-- #include virtual="Siar301/includes/conexion.asp" -->
<%
'------------------
'SETEO DE RECORDSET
'------------------
Sql = "select top 1 *, dueños.[id dueno] from envios_celular "
Sql = Sql & "inner join dueños on envios_celular.id_telefono = dueños.id_celular "
Sql = Sql & " where id_telefono = '" & request("id_celular") & "'" & " "
Sql = Sql & " order by id_envio desc"
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = Conn
rs.CursorLocation = 3
rs.LockType = 4
rs.CursorType = 3
rs.Source = Sql
rs.Open
rs.ActiveConnection = Nothing
%>
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "htt://w.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta forua="true" http-equiv="Cache-Control" content="no-cache"/>
</head>
<card id="Card1" title="Ultimo">
<p align="left">
<%if rs.eof then%>
<small>
No existen mensajes.
</small>
<do type='Accept' label='inicio'>
<go href='index.asp?id_celular=<%=id_celular%>'/>
</do>
<%else%>
<%bandera = 1
id_mensaje = rs("id_envio")
codigo_coche = rs("codigo_coche")
id_viaje = rs("id_viaje")
destino = rs("destino")%>
<%=rs("fecha_envio")%>
<br/>
- - -
<br/>
<%if rs("importante") <> "" then%>
<img src="alerta.wbmp" alt=""/>
<br/>
<b>
<%=rs("importante")%>
</b>
<br/>
- - -
<br/>
<%end if%>
<%if rs("tipo_envio") = "mensaje" then%>
<small>
<%=rs("mensaje")%>
</small>
<%else%>
<small>
<%if rs("tipo_categoria") = "Cuenta Corriente" then%>
TIPO: Cta.Cte.
<br/>
EMP: <%=rs("emp")%>
<br/>
N CTA: <%=rs("nro_cuenta")%>
<br/>
<%else%>
TIPO: Efectivo
<br/>
<%end if%>
PAX: <%=rs("pax")%>
<br/>
HORA: <%=rs("hora")%>
<br/>
ORIGEN: <%=rs("origen")%>
<br/>
DESTINO: <%=rs("destino")%>
<br/>
OBSERV: <%=rs("observ")%>
</small>
<%if rs("numerovuelo") <> "" then%>
<br/>
AEROLINEA: <%=rs("aerolinea")%>
<br/>
NRO.VUELO: <%=rs("numerovuelo")%>
<br/>
PROCED.: <%=rs("procedenciavuelo")%>
<%end if%>
<%end if%>
<%
rs.close
set rs=nothing
if bandera = 1 then
sSQL = " SELECT acuse FROM envios_celular "
sSQL = sSQL & " WHERE id_envio=" & id_mensaje & " and acuse=0"
set rs = Conn.Execute(sSQL)
if not rs.eof then
sSQL = " UPDATE envios_celular SET acuse=1"
sSQL = sSQL & " WHERE id_envio=" & id_mensaje
Conn.Execute(sSQL)
end if
rs.close
set rs=nothing
end if
Conn.close
set Conn = nothing
%>
<do type='Accept' label='pax abordo'>
<go href='abordo.asp'>
<postfield name="id_celular" value="<%=id_celular%>" />
<postfield name="id_mensaje" value="<%=id_mensaje%>" />
</go>
</do>
<%'if id_celular = id_celular%>%>
<do type='Accept' label='liberar'>
<go href='liberado.asp'>
<postfield name="id_celular" value="<%=id_celular%>" />
<postfield name="id_mensaje" value="<%=id_mensaje%>" />
<postfield name="codigo_coche" value="<%=codigo_coche%>" />
<postfield name="id_viaje" value="<%=id_viaje%>" />
<postfield name="destino" value="<%=destino%>" />
<postfield name="id_dueno" value="<%=id_dueno%>" />
</go>
</do>
<%'end if%>
<do type='Accept' label='inicio'>
<go href='index.asp?id_celular=<%=id_celular%>'/>
</do>
<%end if%>
</p>
</card>
</wml>
ayuda please
