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