<% if not Request("usuario") = "" then Dim Conex Set Conex = Server.CreateObject ("ADODB.Connection") Conex.open "Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=C:\Inetpub\wwwroot\neumaticosleioa.com\BBDD\neumaticosleioa.accdb;Uid=Admin;Pwd=;" set Registro = Server.CreateObject("ADODB.Recordset") SQLQuery = "Select * FROM Usuarios WHERE usuario = '" + Request("usuario") + "' AND password = '" + Request("password") + "'" Registro.open SQLQuery,Conex if not Registro.EOF then Session("Usuario") = Registro("Usuario") Session("IdUsuario") = Registro("Id") Session("Nombre") = Registro("Nombre") Session("Apellidos") = Registro("Apellidos") else Mensaje="Error en el usuario o la contraseña" end if Registro.close Conex.close end if %>

Área de clientes

<%if Session("Usuario") = "" then%>
<%=Mensaje%>

<%else%>

Bienvenido al area privada <%=Session("Nombre")%> <%=Session("Apellidos")%>
Salir del area privada

<% Set Conex = Server.CreateObject ("ADODB.Connection") Conex.open "Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=C:\Inetpub\wwwroot\neumaticosleioa.com\BBDD\neumaticosleioa.accdb;Uid=Admin;Pwd=;" set Registro = Server.CreateObject("ADODB.Recordset") SQLQuery = "SELECT productos.Id,productos.NombreProducto, productos.Referencia, productos.Descripción, productos.Precio, productos.Imagen, Subfamilias.NombreSubfamilia, Familias.NombreFamilia FROM (productos INNER JOIN Subfamilias ON productos.IdSubfamilia = Subfamilias.Id) INNER JOIN Familias ON Subfamilias.IdFamilia = Familias.Id ORDER BY Familias.Id DESC , Subfamilias.Id DESC;" Registro.open SQLQuery,Conex NombreFamilia="" NombreSubFamilia="" do while not Registro.eof if NombreFamilia <> Registro("NombreFamilia") then NombreFamilia = Registro("NombreFamilia") response.write "

" + Registro("NombreFamilia") + ":

" end if if NombreSubFamilia <> Registro("NombreSubfamilia") then NombreSubfamilia = Registro("NombreSubfamilia") response.write "

--- " + Registro("NombreSubfamilia") +"

" response.write "
    " end if %>
    <%=Registro("NombreProducto")%>
    " alt="Imagen de producto" width="170" height="170">
    <%=Registro("Descripción")%>
    PRECIO:<%=Registro("Precio")%> EUROS/UNIDAD
    Cantidad:
    " name = "X<%=Registro("Id")%>" type='text' value='0' />
    <% Registro.movenext if Registro.EOF then response.write("
") else if NombreSubfamilia <> Registro("NombreSubfamilia") then response.write("") end if end if loop Conex.close %>
DATOS DE ENVIO









<%end if%>