%@ CodePage=1256 Language="VBScript"%>
<%
FP_CharSet = "windows-1256"
FP_CodePage = 1256 %>
أسماء الشـــــركـــات
<%
Dim str,rs1,cunt
str=request.Querystring("id")
dim cn,strdsn,rs,sqlstm
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 rs1 =Server.CreateObject("ADODB.Recordset")
sqlstm="Select * FROM info where Type1 in (1,3) and Country_ID ="&str
rs.Open sqlstm,cn,2
cunt="select * from country where ID="&str
rs1.open cunt,cn
%>
<% if not (rs.eof and rs.bof) then %>
الشركات
الموردة لدولة <%=rs1("Full_name_a")%>
<%else%>
<%Response.write "لاتوجد معلومات متوفرة عن هذه الدولة " %>
<% end if%>
الصفحــة الرئيســية