<% '## Default.asp '## Open DataBase Connection '## (Change to include file soon!) set my_conn= Server.CreateObject("ADODB.Connection") my_Conn.Open ConnString '## Get Totals set rs1 = Server.CreateObject("ADODB.Recordset") strSQL = "Select * from Totals" rs1.open strSQL, my_conn Users = rs1("U_Count") Posts = rs1("P_Count") rs1.Close set rs1 = nothing '## Get all Forums From DB strSql = "SELECT * FROM Category" set rs = my_conn.Execute (StrSql) '## Do some Cookie bits to see when last here session("last_here_date") = Request.Cookies("date") Response.Cookies("Date") = now() Response.Cookies("Date").Expires = dateadd("d",365,now()) ' if never been here before, set last_here_date to -10 days if Session("last_here_date") = "" then Session("last_here_date") = dateadd("d",-10,now()) End if '## Function to display new icon Function isNew(dt) if datediff("s", session("last_here_date"), dt) > 1 then isNew = "Nuevo" Else isNew = " " End If End Function %> Serveis Veterinaris Baix Llobregat - Profesionales - Foro
serveis veterinaris serveis veterinaris
menú opciones

 

  

Volver al Inicio

  

Selecciona el tema que te interesa y comparte tus opiniones.
Si no lo encuentras, proponlo

perfil | registrar | buscar
Mensajes : <%= Posts %>
Usuarios : <%= Users %> 		Tu última visita fue - <%= session("last_here_date")%>
<% strSql = "SELECT Forum.Forum_ID, Forum.F_Name, Forum.F_Description, Forum.F_Cat, Forum.F_Count, Forum.F_Last_Post, Forum.F_Moderator, Members.M_Name " strSql = strSql & "FROM Members INNER JOIN Forum ON Members.Member_id = Forum.F_Moderator " strSql = strSql & "where Forum.F_Cat = " & rs("cat_id") set rsForum = my_conn.Execute (StrSql) %>
<% =""%>

<% rsForum.movenext %>

 <% =""%>

<%rsForum.movenext %>

 <% = ""%>

<%rsForum.movefirst %>
Mensajes: <%= rsForum("F_Count")%>
Último envío:
<% = "" & rsForum("F_Last_Post") & ""%>
<%rsForum.movenext %> 		Mensajes: <%=rsForum("F_Count")%>
Último envío:
<% = "" & rsForum("F_Last_Post") & ""%>
<%rsForum.movenext %> 		Mensajes: <%= rsForum("F_Count")%>
Último envío:
<% = "" & rsForum("F_Last_Post") & ""%><%rsForum.movefirst %>
Veterinarios, criadores y adiestradores, todos necesarios para que podamos disfrutar plenamente de nuestra mascota. Pero...,

¿es oro todo lo que reluce?

Seguro que tienes tu opinión. Inscríbete en nuestros foros y participa con tu opinión.



 
 
 

Copyright © 2000 Serveis Veterinaris Baix Llobregat
Doctor Barraquer, 27 - 08750 Molins de Rei
Tel. 93 668 21 22 - Fax. 93 668 21 22   eulalia@veterinaris.com
Diseño IBS

Ir al foro de discusión
¿TE GUSTAN LOS DEBATES?

Noticias de prensa

LEE nuestras noticias Y EXPRESA tu opinión.
¿ESTÁS BUSCANDO
un nuevo amigo?. ¿HAS PERDIDO a tu mascota?

La Protectora

¡Cuéntanoslo.
ENTRA en la casa!

viejoordenador.gif (5117 bytes)

Consulta Veterinaria Online, no te pierdas esta  posibilidad:

PERROS - GATOS
EXÓTICOS

¿POR QUÉ VACUNAMOS?

A nuestros animales de compañía.
¡No consigues medicar a tu animal!

SIGUE NUESTROS CONSEJOS

¿Sabes qué son?

LAS GLANDULAS ANALES
<% my_conn.Close set my_conn = nothing set rs = nothing set rsForum = nothing %>