<%@LANGUAGE="VBSCRIPT"%> <% Dim combo_rs Dim combo_rs_cmd Dim combo_rs_numRows Set combo_rs_cmd = Server.CreateObject ("ADODB.Command") combo_rs_cmd.ActiveConnection = MM_connec_bd_ee_STRING combo_rs_cmd.CommandText = "SELECT * FROM titulo_galeria" combo_rs_cmd.Prepared = true Set combo_rs = combo_rs_cmd.Execute combo_rs_numRows = 0 %> <% Dim galeria_RS__MMColParam galeria_RS__MMColParam = "1" If (Request.QueryString("id_titulo") <> "") Then galeria_RS__MMColParam = Request.QueryString("id_titulo") End If %> <% Dim galeria_RS Dim galeria_RS_cmd Dim galeria_RS_numRows Set galeria_RS_cmd = Server.CreateObject ("ADODB.Command") galeria_RS_cmd.ActiveConnection = MM_connec_bd_ee_STRING galeria_RS_cmd.CommandText = "SELECT * FROM galeria WHERE id_titulo = ?" galeria_RS_cmd.Prepared = true galeria_RS_cmd.Parameters.Append galeria_RS_cmd.CreateParameter("param1", 5, 1, -1, galeria_RS__MMColParam) ' adDouble Set galeria_RS = galeria_RS_cmd.Execute galeria_RS_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 galeria_RS_numRows = galeria_RS_numRows + Repeat1__numRows %> Choice Eventos

fotos <%=(galeria_RS.Fields.Item("titulo").Value)%>
     
<% While ((Repeat1__numRows <> 0) AND (NOT galeria_RS.EOF)) %>
<%=(galeria_RS.Fields.Item("titulo_foto").Value)%>
" target="foto">.jpg" alt="Clique aqui para mais informações: " width="150" height="110" border="0" />
 
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 galeria_RS.MoveNext() Wend %>

 

     
<% combo_rs.Close() Set combo_rs = Nothing %> <% galeria_RS.Close() Set galeria_RS = Nothing %>