<%@ 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")%>

<%do while not rs.eof%> <%rs.movenext loop%>

أسماء الشـــركـــات

"> <%=rs("Comp_Name")%>
<%else%>

<%Response.write "لاتوجد معلومات متوفرة عن هذه الدولة " %> <% end if%>

الصفحــة الرئيســية