12/05/2007, 01:05
|
| | | Fecha de Ingreso: julio-2002
Mensajes: 195
Antigüedad: 22 años, 8 meses Puntos: 0 | |
| Re: Qué hago mal?
Cesar, creo que he hecho los cambios que me has comentado (dentro de lo mal que controlo el ASP), pero me sigue dando siempre el resultado positivo, escriba lo que escriba de usuario y contraseña. Te pongo el código rectificado con tus indicaciones, a ver si lo he hecho bien. Muchas gracias de antemano por tu paciencia.
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY background="">
<%On Error resume next%>
<%
'----------------------- XML
dim fso, archivo
Set fso = createobject("scripting.filesystemobject")
Set archivo = fso.CreateTextFile(Server.MapPath("siono.xml"), True)
'----------------------- XML
'Creación de la conexion
set conexion = CreateObject("ADODB.Connection")
conexion.connectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("noticias/datos/ofertas.mdb")
conexion.connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "& Server.MapPath("noticias/datos/ofertas.mdb") &";Persist Security Info=False"
conexion.Open
'Creacion del recordset
set fila =CreateObject("ADODB.RecordSet")
ls_select = "SELECT count(*) FROM descarga WHERE usuario="& usuario&" AND contra="&contra&""
encontrado = false
fila.Open ls_select, conexion,1,3
usuario = Request("user")
contra = Request("pass")
if not fila.EOF then
if not isnull(fila(0)) then
if cint(fila(0))>0 then
encontrado = true
end if
end if
end if
if not encontrado then
archivo.WriteLine("<resultado ok=no>")
else
archivo.WriteLine("<resultado ok=si>")
end if
%>
</BODY>
</HTML>
__________________
EL conocimiento es la base del poder |