<% 'Dim intArticleID 'Dim strArticleHeadline, strArticleBody, strArticleDate 'intArticleID = trim(Request.QueryString("intArticleid")) 'Local personal web server 'strConnection ="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("voiceofthecape.mdb") & ";" 'Live IIS 'strConnection ="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../database/voiceofthecape.mdb") & ";" 'strConnection = "Driver={MySQL ODBC 3.51 Driver}; Server=sql2b.your-server.co.za; Database=voiceofthecape; UID=vocfma_1; PWD=MJHEufA5; Option=3" 'Set Conn = Server.CreateObject("ADODB.Connection") 'Conn.Open(strConnection) 'set rs = Server.CreateObject("ADODB.recordset") 'Dim Sql 'Sql = "Select * from news_article where ArticleId = " & intArticleID & " " 'set rs = conn.Execute(sql) 'response.write "Article id to query is " & intArticleID & "
" 'response.write "Article headline is:" & "
" & rs("Header") 'response.write "Article body is " & rs("Article") & "
" 'response.write "Article date is " & rs("Date") & "
" 'strArticleHeadline = rs("Header") 'strArticleBody = rs("Article") 'strArticleDate = rs("Date") %> <% 'rs.Close() 'set rs = nothing 'Conn.Close 'set conn =nothing %>

Voice of the Cape Newsroom article: Email article to: