Periódico virtual de la escuela de comunicaciones
Universidad Tecnológica de El Salvador
Edición septiembre-octubre
<%
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
%>