| |
|
|
<%
on error resume next
strNewsId = Request.QueryString("newsId")
filePath ="db/optiquemks1.mdb"
'filePath ="..db/brainwise.mdb"
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &server.MapPath(filePath)
SET rsTemp = Server.CreateObject("ADODB.Recordset")
rsTemp.Open "select * from news where newsId="&strNewsId,con,3,3
strNewsId=rsTemp("NewsId")
strTitle=rsTemp("newsTitle")
strDescription1=rsTemp("newsDes1")
strDescription2=rsTemp("newsDes2")
strDescription3=rsTemp("newsDes3")
strDescription4=rsTemp("newsDes4")
strdate=rsTemp("newsDate")
%>
|
|
| |
<%
rsTemp.Close
Set con=Nothing
%>