 |
 |
 |
| INICIO | | | SERVICIOS | | | DESCARGAS | | | ACCESO CLIENTES | | | PRINCIPALES PROYECTOS | | | TIENDA ON-LINE | | | PARTNERS | | | MAPA WEB |
ACCESO Teléfono: 94 453 0694 |
<% If request.Form("submit") <> "" then Dim DB, TBL, existuser existuser = "0" Set DB = Server.CreateObject("ADODB.Connection") Set TBL = Server.CreateObject("ADODB.RecordSet") DB.Mode = adModeReadWrite DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("clientes.mdb")) TBL.Open "clientes" ,DB,1,2 While NOT TBL.EOF If (TBL("nombre")=Request.Form("nombre")) AND (TBL("contrasena")=Request.Form("contrasena")) Then existuser="1" End If TBL.MoveNext Wend TBL.Close DB.Close Set DB = Nothing Set TBL = Nothing If ((existuser="1") AND ("redxxi"=Request.Form("nombre"))) Then session("autorizado") = redxxi response.redirect "redxxi.asp" Else If (existuser="1") Then Response.Write "Todavia no se ha creado su espacio personal en la web. Estará disponible proximamente." Else response.redirect "acceso.asp" End If end if else %> <% End If %> |