<%@ LANGUAGE=VBScript %> <% Response.Buffer = True %> Search Result Industrial Catalogue <% IF Session("Common_Access") < 1 THEN 'msgbox "Invalid User Name OR Password",48,"Warning" Response.Clear 'error logon warning Response.Redirect "Default.asp" END IF %>

 

 
<%= FormatDateTime (date, vbLongDate) %>
<% DIM prodTemp prodTemp = Request.QueryString("productname") Set IndustryNetSQL = Server.CreateObject("ADODB.Connection") IndustryNetSQL.Open "thaiindustry", "tinhosting", "tinhosting" sql = "SELECT productname, brandname, " &_ " Productdescription, specification, packing " &_ " FROM Products, categories, company " &_ " WHERE products.companyid = company.companyid and " &_ " company.catid = categories.catid and " &_ " products.productName = '" & prodTemp & "'" Set RS = IndustryNetSQL.Execute(sql) sql2 = "SELECT name, categories.category, offaddress, " &_ " offzipcode, offcity, offcountry, " & _ " offtel, offFax, offcontactname, offemail " & _ " FROM Products, company, categories " & _ " WHERE products.companyid = company.companyid and " & _ " company.catid = categories.catid and " & _ " products.productName = '" & prodTemp & "'" Set RS2 = IndustryNetSQL.Execute(sql2)%>
<%RS2.close%>
Category :
<% = RS2("Category")%>
Company Information
Company Name :
<% = RS2("name") %>
Address :
<% = RS2("Offaddress") %>
Zipcode :
<% = RS2("Offzipcode") %>
City :
<% = RS2("Offcity") %>
Country :
<% = RS2("Offcountry") %>
Telephone :
<% = RS2("Offtel") %>
Fax :
<% = RS2("OffFax") %>
Contact Person :
<% = RS2("Offcontactname") %>
E-mail :
<% = RS2("Offemail") %>
Product Information
Product Name :
<% = RS("ProductName") %>
Brand Name :
<% = RS("BrandName")%>
Product Description :
<% = RS("ProductDescription")%>
Specification :
<% = RS("Specification")%>
Packing :
<% =RS("Packing")%>

<% RS.close IndustryNetSQL.close %>