") String = Replace(String, CHR(10), "
") FormatStr = String End Function If Request.QueryString("mode") = "doit" then if Request.Form("search") <> "" then ' Build Nightmare SQL Statement - Kill Server!!! keywords = split(Request.Form("search"), " ") keycnt = ubound(keywords) StrSql ="SELECT Forum.*, Reply.*, Topics.* FROM (Forum LEFT JOIN Topics " StrSql = StrSQl & "ON Forum.Forum_ID = Topics.Forum_id) LEFT JOIN Reply ON Topics.Topic_ID = Reply.Topic_ID " StrSQl = StrSql & "WHERE " if Request.Form("forum") <> 0 then StrSql = StrSql & "Forum.Forum_ID = " & Request.Form("forum") & " and " End If StrSQL = StrSql & "(" if Request.Form("searchdate") <> 0 then dt = cint(Request.Form("searchdate")) StrSql = StrSql & "T_date > #" & dateadd("d", -dt, now) & "#) and (" End if cnt = 0 For Each word in keywords StrSql =StrSql & "Forum.F_Description Like '%" & word & "%' or Reply.R_Message Like '%" StrSql =StrSql & word & "%' or Topics.T_Message Like '%" StrSql =StrSql & word & "%' " if cnt < keycnt then StrSql = StrSql & Request.Form("andor") cnt = cnt + 1 next StrSql =StrSql & ") order by topics.topic_id" mypage=request("whichpage") If mypage="" then mypage=1 end if rs.Open StrSql, my_Conn, 3,1 If rs.Eof or rs.Bof then ' No categories found in DB Response.Write "No matches found" Else %>

Veterinarios Criadores Adiestradores

Volver al Foro <% End If Else ' Search = "" %> Debe introducir alguna palabra clave Volver al Foro <% Response.End End if ' Search = "" Else %>   <% rec_id="" do until rs.Eof '## Display Forum if rec_id = rs("topic_id") then ' Don't do anything Else Response.Write "" Response.Write "" Response.Write "" Response.Write "" End if rec_id = rs("topic_id") rs.MoveNext loop %> Tema Fecha Foro " Response.Write "" & rs("T_Subject") & " " & rs("T_date") & " " & rs("F_Name") & "     Veterinarios Criadores Adiestradores   Tema Fecha Foro Búsqueda de: todas las palabras cualquier palabra Foro : Todos los Foros <% StrSql = "SELECT * FROM Forum" set rs = my_conn.execute (strSql) On Error Resume Next do until rs.eof Response.Write "" & left(rs("F_name"), 40) & "" & vbcrlf rs.movenext loop %> Búsqueda por Fecha : Cualquier fecha Desde ayer Desde hace 5 días Desde hace 10 días Desde hace 30 días   <% End If on error resume next set rs = nothing my_conn.Close set my_conn = nothing %>   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 Consulta Veterinaria Online, no te pierdas esta  posibilidad: PERROS - GATOS EXÓTICOS ¿TE GUSTAN LOS DEBATES? LEE nuestras noticias Y EXPRESA tu opinión. ¿ESTÁS BUSCANDO un nuevo amigo?. ¿HAS PERDIDO a tu mascota? ¡Cuéntanoslo. ENTRA en la casa! ¿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 %>