%
Dim con
Dim rs,rs1
Dim i
Set con = server.CreateObject("ADODB.connection")
Set rs = Server.CreateObject("ADODB.recordset")
Set rs1 = Server.CreateObject("ADODB.recordset")
con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=e:\website\cyberweb\bhopalpage\bhopalpage.com\www\db\db2.mdb"
%>