<% dim secao
secao = "noticias"
call conectar()
strSQL = "SELECT * FROM noticias WHERE id = " & Request.QueryString("id")
on error resume next
set objResultSet = objConn.Execute(strSQL)
if Len(Err.Description) then
Session("ErroDesc") = Err.Description
Session("ErroNumber") = Err.number
Response.Clear
Response.Write ""
Response.End
end if
%>
Kampar Seguros
