DASNE.COM - Confección textil

<% If len(request.form("usuario")) > 0 AND len(request.form("password")) > 0 Then If request.form("password") = "dsn8895" Then session("autorizacion")=1 session("usuario")=request.form("usuario") 'Dim conexion, registros, basedatos 'basedatos = Server.MapPath("db\gestion.mdb") 'Set conexion = Server.CreateObject("ADODB.Connection") 'conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 'basedatos & ";" 'conexion.execute("INSERT INTO VISITAS(FECHA,USUARIO) VALUES(#"& 'now() &"#,'"& request.form("usuario") &"');") 'Dim conexion, registros, basedatos 'basedatos = Server.MapPath("db\gestion.mdb") 'Set conexion = Server.CreateObject("ADODB.Connection") 'conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";" 'set visitas = conexion.execute("SELECT * FROM VISITAS ORDER BY FECHA DESC") 'set visitas = conexion.execute("SELECT * FROM VISITAS")' 'visitas.addnew' 'visitas.fields("fecha") = date 'visitas.fields("usuario") = request.form("usuario") 'visitas.update Elseif request.form("password") = "dasne10" Then session("autorizacion")=9 response.redirect "default.asp?link=admin.asp" Else %> Usuario o contraseña incorrectos, por favor, vuelta a intentarlo. <% session("autorizacion")=0 session("usuario")=request.form("usuario") End If Else End If %> DASNE.COM - Confección textil

<% If session("autorizacion")=0 Then %> Bienvenido a nuestro catalogo online. Puede visualizar nuestras campañas activas, asi como las referencias necesaria. Necesita estar registrado como distribuidor para poder acceder al catalogo completo, aun así, a continuación puede disfrutar de algunos ejemplos de nuestro producto.

Para recibir su usuario y clave, pongase en contacto con nosotros a través de la información mostrada a pie de pagina. Si ya dispone de los datos necesario de autentificación, puede usar el formulario a su derecha para identificarse. Recuerde que su nombre de usuario es la direccion de e-mail con la que fue dado de alta en el sistema. <% Else %> Bienvenido usuario <%= session("usuario") %> (desconectar). <% End If %>

<% If session("autorizacion")<>1 Then %>

Acceso clientes

Usuario

Contraseña

<% End If %>

<% 'obtengo el directorio físico de la carpeta donde está este script nombre_carpeta = Server.MapPath("fotos/" & carpetaok) Set carpeta = FSO.GetFolder(nombre_carpeta) Set archivos = carpeta.Files x=1 for each nombre_archivo in archivos if x=1 Then %> <% Elseif x=4 Then %> <% x=0 Else %> <% End If x=x+1 next If x=2 Then %> <% ElseIf x=3 Then %> <% ElseIf x=4 Then %> <% End If %>

<% set FSO = server.createObject("Scripting.FileSystemObject") 'Set Carpeta = FSO.GetFolder(Server.MapPath("/fotos/")) Set Carpeta = FSO.GetFolder("c:\domains\dasne.com\wwwroot\fotos\") Set Subcarpetas = Carpeta.SubFolders If session("autorizacion") = 1 Then x=1 For Each SubCarpeta in Subcarpetas If SubCarpeta.Name <> "Publico" Then If x=1 and len(request.querystring("pestaña"))<1 Then %> <% x=x+1 End If next Else x=1 For Each SubCarpeta in Subcarpetas If SubCarpeta.Name = "Publico" Then If x=1 and len(request.querystring("pestaña"))<1 Then %> <% x=x+1 End If next End If %>

<% carpetaok=subcarpeta.Name ElseIf request.querystring("pestaña")=SubCarpeta.Name Then %> 'cambia el color para que sea esta la carpeta predeterminada

<% carpetaok=subcarpeta.Name Else %>

<% End If %>

<%= subcarpeta.name %>

<% carpetaok=subcarpeta.Name ElseIf request.querystring("pestaña")=SubCarpeta.Name Then %>

<% carpetaok=subcarpeta.Name Else %>

<% End If %>

<%= subcarpeta.name %>

REF: <%= replace(nombre_archivo.name,".jpg","") %>