Search Result Societies & Associations

<%@ 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 "unlogon.asp" END IF %>

<%= FormatDateTime (date, vbLongDate) %>

<% DIM nameTemp nameTemp = Request.QueryString("socname") Set IndustryNetSQL = Server.CreateObject("ADODB.Connection") IndustryNetSQL.ConnectionTimeout = Session("IndustryNetSQL_ConnectionTimeout") IndustryNetSQL.CommandTimeout = Session("IndustryNetSQL_CommandTimeout") IndustryNetSQL.Open "thaiindustry", "tinhosting", "tinhosting" sql = "SELECT socname, socAddress, soctel, socfax, socemailaddress, soczipcode, socCity, socCountry, category FROM Societies " & _ " WHERE socname LIKE '" & nameTemp & "%'" & _ " ORDER BY Societies.category ASC, Societies.socName ASC" Set RS = IndustryNetSQL.Execute(sql) %>

Category :

<% = RS("Category")%>

Company Information

Society Name :

<% = RS("socname") %>

Address :

<% =RS("socAddress")%>

Zipcode :

<% = RS("socZipcode") %>

City :

<% = RS("socCity") %>

Country :

<% = RS("socCountry") %>

Telephone :

<% = RS("socTel") %>

Fax :

<% = RS("socFax") %>

E-mail :

<% = RS("socEmailaddress") %>

<% RS.close %> <% IndustryNetSQL.close %>