<%@ LANGUAGE=VBScript %> <% Response.Buffer = True %> Search Result Societies & Associations <% 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 socTemp, cateTemp, cat_v, v_add, i cat_v = "" IF Request.Form("lc_society") = "<-Select Society->" Then socTemp = "%" Else socTemp = Request.Form("lc_society") End IF IF Request.Form("lc_catalog") = "All" Then cateTemp = "%" Else cateTemp = Request.Form("lc_catalog") End IF Set IndustryNetSQL = Server.CreateObject("ADODB.Connection") IndustryNetSQL.Open "thaiindustry", "tinhosting", "tinhosting" sql = "SELECT socName, socAddress, socCity, socZipcode, socCountry, socTel, socFax, socEmailAddress, category " & _ " FROM Societies " & _ " WHERE socname LIKE '" & socTemp & "%' AND" & _ " category LIKE '" & cateTemp & "%'" & _ " ORDER BY Societies.category ASC, Societies.socName ASC" Set RS = IndustryNetSQL.Execute(sql) %>

<% Do WHILE not RS.eof %> <%IF RS("category") <> cat_v THEN%> <%cat_v = RS("Category") %> <% END IF%> <%RS.MoveNext%> <% IF not RS.eof THEN %> <%IF RS("category") <> cat_v THEN%> <%cat_v = RS("category") END IF%> <% RS.MoveNext %> <%END IF%> <% Loop %>
Societies Address
<% =RS("category")%>
"><%=RS("socName")%> <% =RS("socAddress")%>
<% =RS("category")%>
"><%=RS("socName")%> <% =trim(RS("socAddress"))%>

<% RS.close IndustryNetSQL.close %>