mmmh,
, tengo un archivo que hace esas conexiones tal vez te sirva.
conectbd.asp
/////////////
<%
' Declaramos el objeto de conexión a la base de datos
dim ConexionBD, rs,sql,table
' inicializamos objetos
sub inic()
Set ConexionBD = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset") ' Abrimos el objeto con el driver específico
' ConexionBD.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.Mappath("bd/datos_cursos.mdb")
ConexionBD.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " & server.Mappath("bd/datos_cursos.mdb")
end sub
' abrimos la conexion con la base de datos
sub conexion(table, sql)
rs.Open table, ConexionBD ' indicamos el nombre de la tabla y la base de datos
Set rs = ConexionBD.Execute(sql)
end sub
' cerramos la conexion con la base de datos
sub closecon()
ConexionBD.close
set rs = nothing
set ConexionBD = nothing
end sub
%> ' el bd/dato_cursos.mdb, es la ruta de la base de datos en el server
////////////////////////////
y la llamas asi
////////////////////
<%@ LANGUAGE="VBScript" %>
<HTML>
<BODY>
<!-- #include file="conectBD.asp" -->
<%
dim sql1,re,re1
if request.form("usuario") <> "" and request.form("contraseña") <> "" then
' checa que los datos de entrada no sean nulos, no esta cerrado el if por motivos de flojera, lo debes cerrar
inic()
' esta es la rutina en el otro archivo que llama a la BD
sql1 = "select * from personal where usuario= '"&request.form("usuario")&"' and password = '"&request.form("contraseña")&"'"
'hago un string con la instruccion SQL
call conexion("personal",sql1)
'llamo a la subrutina conexion en el otro archivo
if not(rs.EOF) then
re = rs("nivel") 'checo que no sea vacia la tabla y le asigno el campo nivel de la tabla a una variable
if re = 1 then
response.write("<center> Hola "&rs("nombre"))
%>
aqui irían fragmentos en html
<%
'aqui deberías cerrar los ifs y eso
%>
</BODY>
</HTML>
///////////////
ojala te sirva, trata de entenderlo para que le compongas a tu conveniencia
