<%Dim nid2,rs3,con2,strThought2,strPhoto2,strTitle2,strUrl2,temp nid2 = Request("id") Set con2 = Server.CreateObject("ADODB.Connection") con2.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("News.mdb") Dim newsSELsite1,newsObj1 newsSELsite1 = "SELECT EventID,Title,Desc, ImagePath,Url,PublishedDate FROM News WHERE EventID = " & nid2 Set newsObj1 = Server.CreateObject("ADODB.Recordset") newsObj1.Open newsSELsite1,con2 strTitle2=newsObj1(1) strThought2= newsObj1(2) strPhoto2=newsObj1(3) strUrl2 = newsObj1(4) %>
Jainworld

<%=strTitle2%>

<%=strUrl2%>

 


<%=strThought2%>

<% set rs3=nothing set con2=nothing %>