|
<%
DIM ComTemp
If Request.Form("lc_catalog") = "All" Then
ComTemp = "%"
Else
ComTemp = Request.Form("lc_catalog")
End IF
Set IndustryNetSQL = Server.CreateObject("ADODB.Connection")
IndustryNetSQL.ConnectionTimeout = Session("IndustryNetSQL_ConnectionTimeout")
IndustryNetSQL.CommandTimeout = Session("IndustryNetSQL_CommandTimeout")
IndustryNetSQL.Open "Industry", "sa", ""
sql = "SELECT Name, Offaddress, OffZipcode, Offcity, OffCountry, Offtel,"
sql = sql & " Offfax, Offcontactname, Offemail, Category "
sql = sql & " FROM Company WHERE Name LIKE '" & ComTemp & "%'"
Set RS = IndustryNetSQL.Execute(sql)
'RS.Movefirst
%>
| Company Description |
<% Do WHILE not RS.eof %>
| Company Name : |
<% = RS("Name") %> |
| Address : |
<% = RS("Offaddress")%> |
| |
<%= RS("Offzipcode") & " " & RS("Offcity") & " " & RS("Offcountry")%> |
| Telphone : |
<% = RS("Offtel") %> |
| Fax : |
<% = RS("Offfax") %> |
| Contact Name : |
<% = RS("Offcontactname") & " " & RS("Offemail") %> |
| Category : |
<% = RS("Category") %> |
<% RS.MoveNext
Loop %>
<% RS.close
IndustryNetSQL.close %>
|
