<%@ CodePage=1256 Language="VBScript"%> <% FP_CharSet = "windows-1256" FP_CodePage = 1256 %> 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 %>
 

* اضغط على الشركة لتصفح البيانات الكاملة للشركة .                         

<% do while Not rs.EOF %><%i=i+1 %>

<% rs.movenext loop else%>
 
 
 
 
 

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

<% end if rs.close set rs=nothing %>
اسم الشركة   التخصص
"><%=rs.fields("Comp_Name")%>   <%=rs.fields("Type_Desc")%>

رجـــوع