Articles
<%
sql = "SELECT * FROM tblPressRelease WHERE PK_PressRelease = " & Request.QueryString("news")
Set rsContent = Server.CreateObject("ADODB.Recordset")
rsContent.Open sql, conn, 3, 3
'check to some Press Releases Exist
if not rsContent.eof then
response.write("" & rsContent("NewsHeadline") & "
")
response.write("Contact:
" & rsContent("ContactName") & "
" & rsContent("ContactTitle")& "
" & rsContent("Phone") & "
" &rsContent("EmailAddress") & "
")
response.write("" & rsContent("DateofRelease") & "
")
response.write(rsContent("NewsDetails"))
'if not set an error message
else
response.write("There are no current releases")
end if
'close connections
rsContent.close
Set rsContent = Nothing
%>
