galeria

<%@LANGUAGE="VBSCRIPT"%> <% Public Rs,Cx %> <%Response.Expires = 0 dim Recmt, rsblitz, connnews, cnpath, vlogin, vsenha, objRS, varSQL, lin, col, rsdata, vmes, vdia, vano dim rsblitz2, connnews2, cnpath2, varSQL2 Call OpenDb() if trim(request("codigo"))="" then varSQL = "SELECT codigo, imggrande, titulo, resenha from fotosgaleria where galeria="& trim(request("galeria")) & " order by codigo DESC" else varSQL = "SELECT codigo, imggrande, titulo, resenha from fotosgaleria where codigo = "& trim(request("codigo")) end if set rsblitz=Cx.execute(varSQL) %> galeria

<% if (trim(rsblitz("titulo"))<>"") and not(isnumeric(rsblitz("titulo"))) then response.write rsblitz("titulo") end if %>

<% if (trim(rsblitz("resenha"))<>"") and not(isnumeric(rsblitz("resenha"))) then response.write rsblitz("resenha") end if %>

<% Call CloseCx() %>