<%@ CodePage=1256 Language="VBScript"%> <% FP_CharSet = "windows-1256" FP_CodePage = 1256 %> بيانات الشركة <% dim cn,strdsn,rs,sqlstm,cunt,rs1,rqst,rs2,sql 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 rqst=request.querystring("id") Set rs =Server.CreateObject("ADODB.Recordset") Set rs1 =Server.CreateObject("ADODB.Recordset") Set rs2 =Server.CreateObject("ADODB.Recordset") sqlstm="Select * FROM info where info.Comp_ID="&rqst rs.Open sqlstm,cn,2 cunt="select * from country where country.id="&rs("Country_ID") rs1.open cunt,cn sql="select * from info,Types where info.comp_id="&rqst& " and Types.Type_ID=Info.Type1" rs2.open sql,cn %>

 

<%=rs1("Full_name_a")%>

Company Name <%=rs("Comp_Name")%> اســم الشــركـة
Address <%=rs("Address")%> العنـوان
E-Mail <%=rs("E_Mail")%> البـريــد الالكتـروني
Telephone <%=rs("Tel")%> تليـفـون
Fax <%=rs("Fax")%> الـفــاكـــس
Web-Site <%=rs("Web")%> الموقع الالكتروني
City <%=rs("City")%> الـمـديـنـــة
Postal Code <%=rs("Postal_No")%>  الرمز البــريدي
Company Description <%=rs("Comp_Desc")%> وصف الشـركـة
Company Field <%=rs2("Type_Desc")%> التخـصص
Main Product <%=rs("main_product")%> المنتجات الرئيسية

رجـــوع

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