<% strConnection ="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("database/voiceofthecape.mdb") & ";" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open(strConnection) set rs = Server.CreateObject("ADODB.recordset") Dim Sql: Sql = "Select * from News_Article where ArticleId =" & trim(Request.QueryString("Articleid")) &" " set rs = conn.Execute(sql) Dim intArticleID intArticleID = trim(Request.QueryString("Articleid")) intArticleHeader = rs("Header") %> <%if not rs.EOF = true then%>

<%=intArticleHeader%> Posted on:  <%=rs("Date")%> <%if not rs("Image_path") = "" then%>" hspace=6 align=left vspace=6 border=0 class='border1'><%end if%><%=rs("Article")%> << BACK                FORWARD >>

<% end if rs.Close() set rs = nothing%> <% Conn.Close set conn =nothing %>