<% newsID = trim(request.querystring("comunicaID")) if newsID = "" OR isNumeric(newsID) = false then response.redirect "default.asp" end if Set Con = Server.CreateObject ("ADODB.Connection") Con.Open strCon sql = "Select * from news where comunicaID = "& newsID set Rec = Con.execute(sql) response.write "" & Rec("headline") & "
" & vbcrlf response.write ""& vbcrlf response.write "Fecha de publicación : " & Rec("newsDate") & "   Fuente : "& rec("source") &"

"& vbcrlf response.write ""& vbcrlf response.write Rec("newsBody") & "
" if NOT Rec("newsUrl") = "" then response.write "" & rec("newsUrl") & "" end if response.write "" response.write "" Rec.Close Con.Close set Rec = nothing set Con = nothing %>