<%@ LANGUAGE = VBScript %>
<% Option Explicit
Response.Buffer =true
%>
Bharat Information
<%
' on error resume next
Dim hl ,vl
Dim con
dim oRs ,rsv,SRS,CRS,DRS
Dim filePath
Dim u
Dim p
filePath = Server.MapPath("telecom.mdb")
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
Set CRS = con.Execute (" select * from cat order by cat ")
Set SRS = con.Execute (" select * from state order by state ")
Set DRS = con.Execute (" select * from district order by district ")
Set rsv = con.Execute (" select distinct(state) from state order by state ")
if err.number>0 then
response.write "
