<%Dim nid,rs2,con1,strThought1,strPhoto1,strTitle,strUrl nid = Request("id") Set con1 = Server.CreateObject("ADODB.Connection") con1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("society\jainevents\GJE2011\News.mdb") Dim newsSELsite,newsObj newsSELsite = "SELECT EventID,Title,Description, ImagePath,Url,PublishedDate FROM News WHERE EventID = " & nid Set newsObj = Server.CreateObject("ADODB.Recordset") newsObj.Open newsSELsite,con1 strTitle=newsObj(1) strThought1= newsObj(2) if IsNull(newsObj(3)) then strPhoto1 = "Jainism.jpg" elseif(newsObj(3)="") then strPhoto1 = "Jainism.jpg" else strPhoto1 = newsObj(3) end if strUrl = newsObj(4) %>
Jainworld

<%=strTitle%>

 



<%=strThought1%>

<% set rs2=nothing set con1=nothing %>