%@ 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")%> |
المنتجات الرئيسية |
رجـــوع
الصفحــة الرئيســية