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

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

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

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

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

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