<% 'Access DB 'strConnection ="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("database/voiceofthecape.mdb") & ";" strConnection = "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Database=voiceofthecape; UID=; PWD=; Option=3" 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 ="& Query_id &" " Set Rs_LoadFeatures = conn.Execute(SqlLoadFeatures) Dim intFeatureID intFeatureID = trim(Request.QueryString("id")) strFeatureHeader = Rs_LoadFeatures("Paragraphy1") %>

<%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 %>