<% dim objRS dim strSQL dim strRef ' hold our article ID dim strHeadline 'hold our headline dim strBody 'hold our article body dim strPublishDate 'hold the article date 'grab our article ID from the querystring strRef = CInt("0" & request.querystring("articleID")) set objSecure = server.createobject("InetSolution.Secure") set objRS = server.CreateObject("ADODB.RecordSet") strSQL = "select HEADLINE,BODY,PUBLISHDATE from NEWSARTICLES where REF=" & strRef &"" objRS.Open strSQL,objSecure.Conn, adOpenForwardOnly,adLockReadOnly,adCmdText 'put our data into variables so we can close our objects and clean them up strHeadline = objRS("HEADLINE") strBody = objRS("BODY") strPublishDate = objRS("PUBLISHDATE") 'clean up our objects objRS.Close set objRS = nothing %> John J. Boyd

<%=strHeadline%>

<%=strPublishDate%>

<%=strBody%>