<%@ Language=VBScript %> <%email = Request.Form("email") clave = Request.Form("clave")%> <% SET Conn=Server.CreateObject("ADODB.Connection") SET RS=Server.CreateObject("ADODB.Connection") 'Linea original 'ls_cadcon = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\webspace\resadmin\mercad\mercadeoypublicidad.com\db\RegistroDeUsuariosMyP.mdb;UID=admin;PWD=" ls_cadcon = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\mercadeoypublicidad.com\RegistroDeUsuariosMyP.mdb;UID=admin;PWD=" Conn.ConnectionString = ls_cadcon Conn.Open %> <% sql="Select email, Clave, nombre, apellidos from RegistroPersonas where email='"&email&"' and Clave='"&Clave&"'" set rs=conn.Execute (sql)%> <%if not rs.eof Then session("ingreso")="si" session("tipo")="persona" session("nombre")=rs("nombre") session("apellidos")=rs("apellidos") session("email")=email Response.Redirect("Primera_Pagina.asp")next to this code are more lines, please help me?