Buenas a todo el mundo, sobre todo por ser mi primer mensaje, tengo una primera pregunta, debido a que este no es mi campo la verdad ando un poco liado.
este es el script que he puesto para recojer el login de un formulario y lo compruebe en una base de datos --> base_inicio
El problema es que me da un error http 500, no he conseguido conectar la base de datos por ODBC, aunque la pongo en DSN de Usuario y tiene el mismo nombre "base_inicio.mbd", no me funciona he probado hacer ejemplitos.... pero sin conseguirlo.
Bueno muchas gracias y espero ayuda
www.idlight 3d.com
<script language="VBScript" RUNAT="Server">
dim Conn, str
set Conn = CreateObject("ADODB.Connection")
str = "DSN=base_inicio.mdb"
Conn.Open str
Function consulta(Conn)
Recogemos los valores del formulario
logins=Request.Form("login")
Instanciamos y abrimos nuestro objeto conexion
dim rs
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = Conn
SQL = "SELECT Clientes.login From Clientes"
rs.Open SQL
while Not rs.EOF
if (rs("login")=logins) then
strs=strs & rs("login") & "<BR>"
end if
strs=strs & "no hay nada por aqui" & "<BR>"
rs.MoveNext
Wend
consulta = strs
end Function
<%
dim Conn, str
set Conn = CreateObject("ADODB.Connection")
str = "DSN=base_inicio.mdb"
Conn.Open str
Response.Write consulta(Conn)
Conn.Close
%>
</script>
