<% 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) %> <%if not rs.EOF = true then%>

<%=rs("Header")%> "> <%=rs("Article")%>

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