<% Session.LCID = 1046 FonteDados = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("../../arquivos/_bds/c_festcoberturas.mdb") & ";" Set Conn = Server.CreateObject("ADODB.Connection") Conn.open FonteDados,"","" Set RS = Server.CreateObject("ADODB.Recordset") IF Request.QueryString("id") = "" Then idN = 0 elseif IsNumeric(Request.QueryString("id")) = false then idN = 0 elseif Request.QueryString("id") < 1 then idN = 0 else idN = Request.QueryString("id") End If SQL = "select * from coberturas where id=" & idN RS.Open SQL,Conn,3,3 %> <%If RS.EOF = true or RS.BOF = true then%> CaririFest! - Cobertura não econtrada! <%else%> CaririFest! - <%=server.HTMLEncode(RS("nome"))%> <%end if%> <%If RS.EOF = true or RS.BOF = true then%>

Cobertura não econtrada!

<%else%>

CaririFest! - Onde você é a atração!

<%=server.HTMLEncode(RS("data"))%>

<%=server.HTMLEncode(RS("nome"))%>

foto-1.jpg" alt=""/>

<%if Session("C_FestUserI") <> "" and Session("C_FestUserL") <> "" and Session("C_FestUserN") <> "" and Session("C_FestUserNi") <> "" and Session("C_FestUserE") <> "" and Session("C_FestUserCM") <> "" and Session("C_FestUserS") <> "" and Session("C_FestUserNa") <> "" and Session("C_FestCod") = "-.-- -.-- --.. ......" then%> Enviar para Album Enviar por Email <%end if%>

<%end if%>