Corazon Verde Arborizarte Subasta

Bogota

Grupos

Varios, Visual

<% Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open Application("str_conn_user") "Colarte_Usuarios_Internet" Response.Write Application("str_conn_user") FilasPorPagina=20 Set Peticion=Request.Form If Peticion("Buscar")="Buscar" Then strFiltro = " and (Nombre_ LIKE %" & Peticion("Nombre") & "% and Apellidos_ LIKE %" & Peticion("Apellido") & "%)" End If set RSConsulta = Server.CreateObject("ADODB.Recordset") strConsulta = _ "select Pintores.Nombre_ " _ & " , Pintores.Apellidos_ " _ & " , Pintores.Carpeta " _ & " , Cuadros.TítuloObra " _ & " , Cuadros.Referencia " _ & " , Pintores.CarpetaRecuentos " _ & " , Cuadros.Consecutivo " _ & " , Cuadros.Comentarios " _ & " from Pintores " _ & " inner join Cuadros ON Pintores.IdArtista = Cuadros.RefPintor " _ & " where ((comentarios like %animarte%) " _ & " or (comentarios like %arborizarte%) " _ & " or (comentarios like %equus%)) " _ & strFiltro response.write(strConsulta) RsConsulta.Open strConsulta, OBJdbConnection %> <% If RsConsulta.EOF Or RsConsulta.BOF then %>

No se encontraron aportes del artista referenciado

 

<% Else strArtista = "" If (Peticion("BuscarTodos") = "Buscar Todos") _ Or (Peticion("Nombre") = "" And Peticion("Apellido") = "") Then strArtista = "Aportes de los artistas a Corazón Verde" Else strArtista = "Aportes de " & RsConsulta("Nombre_") & " " & RsConsulta("Apellidos_") & " a Corazón Verde" End If %>

<%= strArtista %>

 

<% While Not RsConsulta.EOF %> <% RsConsulta.MoveNext Wend End If %>

<%=RsConsulta("Comentarios")%>

">/<%=RsConsulta("Referencia")%>.jpg">

<%=RsConsulta("TítuloObra")%>

/recuento.htm"><%=RsConsulta("Nombre_")%> <%=RsConsulta("Apellidos_")%>