<% 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") On Error Resume Next Dim Query_id: Query_id =Request.QueryString("id") Dim Rs_LoadFeatures Response.Write Query_id Dim SqlLoadFeatures : SqlLoadFeatures ="Select * from News_Feature where SubCatid=7 AND FeatureId=33" Set Rs_LoadFeatures = conn.Execute(SqlLoadFeatures) Dim intFeatureID intFeatureID = trim(Request.QueryString("id")) strFeatureHeader = Rs_LoadFeatures("Paragraphy1") 'Rs_LoadFeatures.MoveFirst 'Do While Not Rs_LoadFeatures.EOF ' Response.Write "------------------------------------" ' Response.Write Rs_LoadFeatures("Articleid") & "
" ' Response.Write "Sub cat = " & Rs_LoadFeatures("SubCatid") & "
" ' Response.Write Rs_LoadFeatures("FeatureId") & "
" ' Response.Write Rs_LoadFeatures("Date") & "
" ' Response.Write Rs_LoadFeatures("Image") & "
" ' Response.Write Rs_LoadFeatures("Paragraphy1") & "
" ' Response.Write "------------------------------------" ' Rs_LoadFeatures.MoveNext 'Loop %>

<%if not Rs_LoadFeatures.eof then%> "> <%=strFeatureHeader%> <%=Rs_LoadFeatures("Paragraphy2")%> <%=Rs_LoadFeatures("Paragraphy3")%> << BACK        Date Posted : <%=Rs_LoadFeatures("Date")%>        FORWARD >>      <%End if%> <%Rs_LoadFeatures.close%> <%Set Rs_LoadFeatures=nothing%>

<% Conn.Close set conn = nothing %>