17/05/2007, 10:35
|
| | | Fecha de Ingreso: julio-2002
Mensajes: 195
Antigüedad: 22 años, 8 meses Puntos: 0 | |
| Re: Qué hago mal?
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY background="">
<%
'----------------------- 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")
usuario = Request("user")
contra = Request("pass")
ls_select = "SELECT count(*) FROM descarga WHERE usuario='" & usuario & "' AND contra='" & contra &"'"
encontrado = false
fila.Open ls_select, conexion,1,3
if not fila.EOF then
if not isnull(fila(0)) then
if cint(fila(0))>0 then
encontrado = true
archivo.WriteLine("<si>")
archivo.WriteLine("El usuario es "& usuario &"")
else
archivo.WriteLine("<no>")
archivo.WriteLine("El usuario es "& usuario &"")
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 |