<% 'strConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("../database/voiceofthecape.mdb") & ";" 'Set Conn = Server.CreateObject("ADODB.Connection") 'Conn.Open(strConnection) set rs = Server.CreateObject("ADODB.recordset") Dim Sql Dim intArticleID Dim Queryid:Queryid=Request.QueryString("id") 'Response.Write Queryid select case Queryid Case "International" Sql = "Select * from News_Article where ArticleId =" & trim(Request.QueryString("Articleid")) &" " set rs = conn.Execute(sql) 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%> <%Case "Domestic"%> <%Sql = "Select * from News_Article where ArticleId =" & trim(Request.QueryString("Articleid")) &" " set rs = conn.Execute(sql) 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%> <%end Select%> <% Conn.Close set conn = nothing %>