<% 'Dimension variables Dim rs 'Database Recordset Variable Dim strSQL 'Database query sring Dim tempStr Dim strVendorIDList 'Create a recordset object Set rs = Server.CreateObject("ADODB.Recordset") 'Show selected Vendor if Request("vendorID") > 0 then strSQL = "SELECT * from Vendors where ID = " & Request("vendorID") rs.Open strSQL, Application("Vendor_Connection") if not rs.eof then %>

<%= rs("Company") %>

<%= rs("Description") %>

<% if (rs("URL") <> "") then response.Write("

URL:
" & rs("URL") & "

" end if %> <% if (rs("Email") <> "") then response.Write("

E-mail:
" & rs("Email") & "

") end if %>

<% if (rs("Address1") <> "") then response.Write("Address:
" & rs("Address1") & "
") end if %> <% if (rs("Address2") <> "") then response.Write(rs("Address2") & "
") end if %> <% if (rs("City") <> "") then response.Write(rs("City") & ", ") end if %> <% if (rs("State") <> "") then response.Write(rs("State") & " ") end if %> <% if (rs("Zip") <> "") then response.Write(rs("Zip") & "
") end if %> <% if (rs("Phone") <> "") then response.Write("Phone: " & rs("Phone") & "
") end if %> <% if (rs("Fax") <> "") then response.Write("Fax: " & rs("Fax") & "
") end if %> <% if (rs("FirstName") & rs("LastName") & rs("Title") <> "") then response.Write("

Sales Contact:
") end if %> <%= rs("FirstName") & " " & rs("LastName") %> <% if (rs("Title") <> "") then response.Write(", " & rs("Title")) end if %>

<% end if rs.close 'Show all Vendors else %> <% 'Generate list of vendor IDs that are enabled to appear in VT strSQL = "Select ID from Institution where VT = -1" rs.Open strSQL, Application("Security_Connection") strVendorIDList = "0" while not rs.eof strVendorIDList = strVendorIDList & "," & rs("ID") rs.MoveNext wend rs.close 'Show all vendors in categoryID if Request("categoryID") > 0 then 'If selected Category is a parent Category, get all of it chidren and display their vendors rs.Open "select categoryID from Category where parentCategoryID = " & Request("categoryID"), Application("Vendor_Connection") if rs.eof then strSQL = "SELECT Distinct Vendors.Company, Vendors.ID from Vendors, VendCat Where Vendors.ID = VendCat.VendorID and VendCat.categoryID = " & Request("categoryID") & "and Vendors.ID in (" & strVendorIDList & ") order by Company" else while not rs.eof catlist = catlist & ", " & rs("categoryID") rs.MoveNext wend strSQL = "SELECT Distinct Vendors.Company, Vendors.ID from Vendors, VendCat Where Vendors.ID = VendCat.VendorID and VendCat.categoryID in (0" & catlist & ") and Vendors.ID in (" & strVendorIDList & ") order by Company" end if rs.close else strSQL = "SELECT Company, ID from Vendors where Vendors.ID in (" & strVendorIDList & ") order by Company" end if rs.Open strSQL, Application("Vendor_Connection") tempStr = "G" if rs.eof then ' No records were found Response.write "

Browse these exhibitors to find solutions for your HR needs. Click here for Exhibitor List and Floor Plan View All <% strSQL = "SELECT * from Category order by categoryID, parentCategoryID" rs.Open strSQL, Application("Vendor_Connection") while not rs.eof if cint(Request("categoryID")) = cint(rs("categoryID")) then isSelected = " selected" else isSelected = "" end if if rs("parentCategoryID") > 0 then isSubCategory = " - " else isSubCategory = "" end if Response.Write("" & isSubCategory & rs("categoryName") & "") rs.MoveNext() wend rs.Close %>
A - G	H - R	S - Z
None found for this category " else response.write "	" end if while not rs.eof if UCase(Left(rs("Company"),1)) > tempStr then Response.write("	") if tempStr = "G" then tempStr = "R" else tempStr = "Z" end if end if if UCase(Left(rs("Company"),1)) > tempStr then Response.write("	") if tempStr = "G" then tempStr = "R" else tempStr = "Z" end if end if Response.write("" & rs("Company") & " ") rs.movenext wend rs.close %>

<% end if %>