<%if Request.QueryString.Count=0 then 'dim connStr 'dim dbLoc dim strSQL 'dbLoc=Server.MapPath(".") & "http://www.ankurlighting.com/AnkurDB.mdb" 'connStr="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dbLoc strSQL="SELECT * FROM tblNews" dim conn dim rs set conn=Server.CreateObject("ADODB.Connection") 'conn.Open connStr conn.Open "Ankur" set rs=Server.CreateObject("ADODB.Recordset") rs.ActiveConnection=conn rs.CursorType=3 rs.LockType=2 rs.Source=strSQL rs.Open if rs.EOF and rs.BOF then%> <% conn.Close set conn=nothing if not rs is nothing then if not rs.State=adStateClosed then rs.Close end if end if set rs=nothing end if%> <%end if%>