| Qué hago mal?
Estoy intentando hacer una página en asp que recoga unas variables que le llegan via flash, las recoja, compruebe una base de datos y me de un resultado, pero no me sale, siempre da sólo el resultado "si". Me podeis ayudar???
Este es el código:
<%@ 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)
archivo.WriteLine("<resultado>")
'----------------------- 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 * from descarga"
fila.Open ls_select, conexion,1,3
conexion.BeginTrans
usuario = Request("user")
contra = Request("pass")
for i = 0 to fila.MaxRecords()
if usuario = fila(i) then
if contra = fila(i) then
encontrado = true
return
else
encontrado = false
mensaje = "El password es incorrecto"
end if
else
encontrado = false
mensaje = "Usuario inexistente"
end if
next
if not encontrado then
archivo.WriteLine("no")
else
archivo.WriteLine("si")
end if
%>
</BODY>
</HTML>
__________________
EL conocimiento es la base del poder |