New Page 2
<%
dim cn,strdsn,rs,rqst,sql,rs2
Set cn = Server.CreateObject("ADODB.Connection")
'strdsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\216.247.160.70\Companies\fpdb\Imp_exp.mdb;User ID=;Password=;"
strdsn = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=;Password=;Data Source=" & server.mappath("/Companies/Imp_exp.mdb")
cn.open strdsn
set rs=server.createobject("Adodb.recordset")
set rs2=server.createobject("Adodb.recordset")
rqst=request.querystring("id")
sql="select * from info,types where info.Country_ID ="&rqst& " and Info.Type1=Types.Type_ID"
rs.open sql,cn,2
rqst2=request.querystring("comp_id")
sql2="select * from info,Types where info.type1=Types.Type_ID"
rs2.open sql2,cn,2
if not ((rs.bof) and (rs.eof)) then
rs.movefirst
i=0
%>