AYUDA ASP
Publicado por Luis (1 intervención) el 26/04/2009 19:43:04
Amigos:
En dias pasados pedí ayuda con mi asp. pero para explicarme mejor, le vuelvo a exponer el tema:
tengo un programa en vb6 que desde una pc local se "valida" con un sitio mediante el paso del siguiente parametro:
http://www.xxxx.comVerificacionUsuario.asp?cUsuario=" & Usuario
Obviamente que la variable usuario se cambia por otra.
Esa URL es recibida por mi sitio, mediante lo siguiente:
http://www.xxxx.comVerificacionUsuario.asp?cUsuario=" & Usuario
<%
cUsuario = Request.querystring("cUsuario")
Dim Conex, RS, ConsBol
Dim Camino
Camino= Server.MapPath("Tablas/ActBdSystem.mdb")
Set Conex = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Conex.Open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Camino
cSQL = "SELECT COUNT(*) AS nCount FROM UsuarioInhabilitado WHERE cCodigo = '" & cUsuario & "'"
Rs.open cSQL, Conex
If Rs.Fields("nCount") = 0 Then
Response.write "SI"
Else
Response.write "NO"
End If
%>
mi base no tiene clave.
si el parametro que recibe es correcto envia a la pc local un SI ó un NO en caso contrario.
y no me devuelve nada nada,
alguien me puede ayudar por favor !
En dias pasados pedí ayuda con mi asp. pero para explicarme mejor, le vuelvo a exponer el tema:
tengo un programa en vb6 que desde una pc local se "valida" con un sitio mediante el paso del siguiente parametro:
http://www.xxxx.comVerificacionUsuario.asp?cUsuario=" & Usuario
Obviamente que la variable usuario se cambia por otra.
Esa URL es recibida por mi sitio, mediante lo siguiente:
http://www.xxxx.comVerificacionUsuario.asp?cUsuario=" & Usuario
<%
cUsuario = Request.querystring("cUsuario")
Dim Conex, RS, ConsBol
Dim Camino
Camino= Server.MapPath("Tablas/ActBdSystem.mdb")
Set Conex = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Conex.Open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Camino
cSQL = "SELECT COUNT(*) AS nCount FROM UsuarioInhabilitado WHERE cCodigo = '" & cUsuario & "'"
Rs.open cSQL, Conex
If Rs.Fields("nCount") = 0 Then
Response.write "SI"
Else
Response.write "NO"
End If
%>
mi base no tiene clave.
si el parametro que recibe es correcto envia a la pc local un SI ó un NO en caso contrario.
y no me devuelve nada nada,
alguien me puede ayudar por favor !
Valora esta pregunta


0