::::::Asistencia Hogar:::::: 800 207 960

<% 'Primero nos fijamos si ambos campos fueron completados. 'Si no se cumple, redireccionamos a pagina1.asp Dim usuario, oConn, RS, text, servic, imag, vin 'Guardamos los datos del Form en variables. 'num = Request.QueryString("menu") usuario = Request.QueryString("menu") usuario2 = Request.Cookies("nombre") If usuario > 25 then Response.Redirect("default.asp") End If If usuario = 0 then Response.Redirect("servicios_lista.asp") End If 'Conectamos a nuestra BD. Set oConn = Server.CreateObject ("ADODB.Connection") Set RS = Server.CreateObject ("ADODB.RecordSet") oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/servicios.mdb") 'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form. sql = "SELECT * FROM servicios WHERE num='"&usuario&"'" RS.Open sql, oConn, 1, 1 'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario. 'Si el campo de la tabla es igual a nuestra variable, estas logueado. text = Rs.Fields("texto") servic = Rs.Fields("servicio") imag = Rs.Fields("imagen") vin = Rs.Fields("vin") RS.Close oConn.Close Set RS = Nothing %> ::::::Asistencia Hogar:::::: 800 207 960

<% if usuario2 <> "" then Response.Write ("Welcome ") Response.Write usuario2 End If %>

<% Response.Write(text) %>

In order to ask for our services call us:
800 20 79 60

Services