<%
Dim Cadena, Actualiza_Foto, Usuarios__BNombre, Popular, Usuarios_todos
Dim Usuarios_cuentatodos, ParamsEntrada, Variables, Variable, Conn, Usuarios
Dim FSO, num_registros, Letra, Folder, Files, File
Cadena = "Público = TRUE"
if (Request("messenger") = "true") then Cadena = Cadena + " AND Messenger NOT LIKE ''"
if (Request("localidad") <> "") then Cadena = Cadena + " AND Población LIKE '" + Request("localidad") +"'"
if (Request("Id") <> "") then Cadena = Cadena + " AND Id = " + Request("Id")
if (Request("edad")="1") then Cadena = Cadena + " AND Edad <10"
if (Request("edad")="2") then Cadena = Cadena + " AND Edad >=10 AND Edad <=15"
if (Request("edad")="3") then Cadena = Cadena + " AND Edad >=16 AND Edad <=25"
if (Request("edad")="4") then Cadena = Cadena + " AND Edad >=26 AND Edad <=35"
if (Request("edad")="5") then Cadena = Cadena + " AND Edad >=36 AND Edad <=50"
if (Request("edad")="6") then Cadena = Cadena + " AND Edad >50"
if (Request("sexoH")<>"" AND Request("sexoM")="") then Cadena = Cadena + " AND Sexo = 'H'"
if (Request("sexoM")<>"" AND Request("sexoH")="") then Cadena = Cadena + " AND Sexo = 'M'"
If (Request("MSN")<>"") then Cadena = Cadena + " AND Messenger not like ''"
If (Request("foto") <> "") Then
Set Actualiza_Foto = Server.CreateObject("ADODB.Command")
Actualiza_Foto.ActiveConnection = MM_Usuarios_STRING
Actualiza_Foto.CommandText = "UPDATE Gente SET Tiene_Foto = 0"
Actualiza_Foto.Execute
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.MapPath(FotosGente))
Set Files = Folder.Files
For Each File In Files
If IsNumeric (Replace(lcase(File.Name),".jpg","")) Then
Actualiza_Foto.CommandText = "UPDATE Gente SET Tiene_Foto = 1 WHERE Id = " & (Replace(lcase(File.Name),".jpg",""))
Actualiza_Foto.Execute
End If
Next
Actualiza_Foto.ActiveConnection.Close
Cadena = Cadena + " AND Tiene_Foto = 1 AND Foto = 1 "
End If
Usuarios__BNombre = "%"
if (Request("nombre") <> "") then
Usuarios__BNombre = Request("nombre")
Usuarios__BNombre = Replace(Usuarios__BNombre, "a", "[aáâãäà]")
Usuarios__BNombre = Replace(Usuarios__BNombre, "e", "[eéêëè]")
Usuarios__BNombre = Replace(Usuarios__BNombre, "i", "[iíîïì]")
Usuarios__BNombre = Replace(Usuarios__BNombre, "o", "[oóôõöò]")
Usuarios__BNombre = Replace(Usuarios__BNombre, "u", "[uúûüù]")
End If
Cadena = Cadena +" AND (Nombre_Completo LIKE '%" + Replace(Usuarios__BNombre, "'", "''") +"%' OR Apodo LIKE '%" + Replace(Usuarios__BNombre, "'", "''") +"%')"
set Popular = Server.CreateObject("ADODB.Recordset")
Popular.ActiveConnection = MM_Usuarios_STRING
%> <%
set Usuarios_todos = Server.CreateObject("ADODB.Recordset")
Usuarios_todos.ActiveConnection = MM_Usuarios_STRING
Usuarios_todos.Source = "SELECT * FROM Gente_ WHERE " + Cadena + " ORDER BY Nombre, Apellidos"
Usuarios_todos.Open()
Usuarios_cuentatodos = 0
While (Not Usuarios_todos.EOF)
Usuarios_cuentatodos = Usuarios_cuentatodos + 1
Usuarios_todos.MoveNext
Wend
Usuarios_todos.Close()
%>
La Gente de San Esteban de Gormaz
Esta sección pretende unir a todos los sanestebeños y habitantes de la comarca, especialmente a aquellos que por unas u otras razones residen fuera de ella. Nunca fue tan fácil comunicarte con tus vecinos como lo es ahora.
A continuación encontrarás un listado con todos los que hayan querido unirse a la iniciativa y a los que podrás dejar mensajes. Si quieres participar tú también, date de alta y serás añadido automáticamente.
<%
ObjetoDB.ActiveConnection = MM_Usuarios_STRING
ObjetoDB.Source = "SELECT * FROM Abecedario"
ObjetoDB.Open()
While NOT ObjetoDB.EOF
Usuarios_todos.Source = "SELECT * FROM Gente_ WHERE " + Cadena +" AND Nombre LIKE '"+ ObjetoDB.Fields.Item("Letra").Value+"%'"
Usuarios_todos.Open()
If NOT Usuarios_todos.EOF Then
' Recuperación de parámetros de entrada
ParamsEntrada = "enviar=TRUE"
Variables = Array("localidad","nombre","tipo","edad","SexoM","SexoH","MSN","foto")
For Each Variable In Variables
If Request(Variable) <> "" Then ParamsEntrada = ParamsEntrada & "&"&Variable&"="&Request(Variable)
Next
%>&<%=ParamsEntrada%>"><%=(ObjetoDB.Fields.Item("Letra").Value)%> <% Else %> <%=(ObjetoDB.Fields.Item("Letra").Value)+" "%> <% End If %> <%
Usuarios_todos.Close()
ObjetoDB.MoveNext()
Wend
ObjetoDB.Close()
%>
<%
'actualizamos numero de pagina
If Request.QueryString("pag")<>"" Then
Session("pagina")=Request.QueryString("pag")
Else
Session("pagina")=1
End If
'constantes ADO VBScript
Const adCmdText = &H0001
Const adOpenStatic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Set Usuarios =Server.CreateObject("ADODB.RecordSet")
Conn.Open MM_Usuarios_STRING
Usuarios.Open "SELECT * FROM Gente_ WHERE Nombre_Completo LIKE '"+Request("letra")+"%' AND " + Cadena,Conn,adopenstatic,adcmdtext
'resultados por pagina a elegir arbitrariamente
num_registros = 10
'Dimensionamos las paginas y determinamos la pagina actual
Usuarios.PageSize=num_registros
Usuarios.AbsolutePage=Session("pagina")
If Request("enviar") <> "" Then
%>
Medido de popularidad calculada en función
del número de lecturas de la ficha en los últimos 3 días
<% If Usuarios.EOF And Usuarios.BOF Then %>
No se ha encontrado a nadie con ese nombre. Intenta realizar otra búsqueda.
NOTA: para obtener mejores resultados, no introduzcas ningún acento en tu búsqueda
<% End If %> <% Else %>
La gente nueva de SaNeSTeBaN.CoM - ¡ Bienvenid@s !
<%
Usuarios.Close()
Usuarios.Source = "SELECT TOP 5 * FROM Gente_ WHERE Público = TRUE ORDER BY Alta DESC;"
Usuarios.Open()
While NOT Usuarios.EOF
MuestraPersona()
Usuarios.MoveNext()
Wend %>
Los chicos más populares de SaNeSTeBaN.CoM
<%
Usuarios.Close()
Usuarios.Source = "SELECT TOP 5 * FROM Popularidad WHERE Sexo = 'H';"
Usuarios.Open()
While NOT Usuarios.EOF
MuestraPersona()
Usuarios.MoveNext()
Wend %>
Las chicas más populares de SaNeSTeBaN.CoM
<%
Usuarios.Close()
Usuarios.Source = "SELECT TOP 5 * FROM Popularidad WHERE Sexo = 'M';"
Usuarios.Open()
While NOT Usuarios.EOF
MuestraPersona
Usuarios.MoveNext()
Wend %> <% End If%>
Para añadirte a este listado DATE DE ALTA aquí