<% Tester_ConnectionString = "DRIVER=SQL Server;SERVER=(local);DATABASE=manizales;User Id=manizales;PASSWORD=password;" Tester_ConnectionTimeout = 15 Tester_CommandTimeout = 30 'Generando el objeto de la conexion Set Conn = Server.CreateObject("ADODB.Connection") Conn.open Tester_ConnectionString Set rsMensajes = Conn.Execute("Select TOP 100 * From Mensajes order by DateTimeAdded Desc") Set rsNoticias = Conn.Execute("Select TOP 100 * From Noticias order by DateTimeAdded Desc") %> Manizales-USA.com - Fotos de Manizalitas en USA
 
   
 Manizales En USA
Toda la gente de Manizales en USA... Fotos de todos los paseos. Si tienen fotos de algun paseo de gente de Manizales aca en usa, mandenelas a fotos@manizales-usa.com
 Enviar un Mensaje
Nombre
Mensaje
Email (Opcional)

 Noticias / Paseos
<% While NOT rsNoticias.EoF %> <% If CBool(Trim(rsNoticias("Importante"))) Then vClass = "normalRed" Else vClass = "normal" End If %> <% rsNoticias.MoveNext Wend %>
<%=Trim(rsNoticias("TitNoticia"))%>
<%=Trim(rsNoticias("DateTimeAdded"))%>
<%=Trim(rsNoticias("Noticia"))%>


 Mensajes
<% While NOT rsMensajes.EoF %> <% rsMensajes.MoveNext Wend %>
<% If Not IsNull(Trim(rsMensajes("Email"))) And Len(Trim(rsMensajes("Email"))) > 0 Then response.write "" & Trim(rsMensajes("De")) & "" Else Response.write Trim(rsMensajes("De")) End If %> <%=FormatDateTime(Trim(rsMensajes("DateTimeAdded")))%>
<%=Trim(rsMensajes("Mensaje"))%>
 Media

 Patrocinadores:


 Manizales-USA.com
Manizales-USA.Com © - <%=Year(Now)%>