<% 'Create and establish data connection Set dbConn = Server.CreateObject("ADODB.Connection") dbConn.Open Connection("membership") Set objRS = Server.CreateObject("ADODB.Recordset") objRS.ActiveConnection = dbConn objRS.Source = "SELECT * FROM MEMCAT WHERE LEFT(COMPANY,1)=" & "'" & request.Querystring("ID") & "' ORDER by Company ASC" objRS.CursorType = 0 objRS.CursorLocation = 2 objRS.LockType = 3 objRS.Open objRS_numRows = 0 %><% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 objRS_numRows = objRS_numRows + Repeat1__numRows %> <% flag = 0 While ((Repeat1__numRows <> 0) AND (NOT objRS.EOF)) myAddress = objRS.Fields.Item("WEBADDR").Value %> <%If flag=0 then%> <%Else%> <%End If%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 objRS.MoveNext() If flag = 0 then flag = flag + 1 Else flag = 0 End If Wend %>

Your search for member listings beginning with <%=request.Querystring("ID")%> returned the following results:

Company Name: <%=(objRS.Fields.Item("company").Value)%> Business Category: <%=(objRS.Fields.Item("BUSCAT1").Value)%> Representative Name: <%=(objRS.Fields.Item("repFname"))%> <%=(objRS.Fields.Item("repLname"))%> Address: <%=(objRS.Fields.Item("ADDRLINE1").Value)%> <% If objRS.Fields.Item("ADDRLINE2").Value = "" then 'Dont print it out Else response.write "" & objRS.Fields.Item("ADDRLINE2").Value & " " End If %><%=(objRS.Fields.Item("CITY").Value)%>, <%=(objRS.Fields.Item("STATE").Value)%> <%=(objRS.Fields.Item("ZIP").Value)%> Phone:(<%=(objRS.Fields.Item("PHONE1AC").Value)%>) <%=(objRS.Fields.Item("PHONE1").Value)%> Fax:(<%=(objRS.Fields.Item("FAXAC").Value)%>) <%=(objRS.Fields.Item("FAX").Value)%> <% If objRS.Fields.Item("EMAIL").Value = "" OR isNull(objRS.Fields.Item("EMAIL").Value) then 'Dont print it out Else response.write "Email: " & objRS.Fields.Item("EMAIL").Value & " " End If If myAddress = "" OR isNull(myAddress) then 'Dont print it out Else response.write "Website: " & myAddress & " " End If %>

Company Name: <%=(objRS.Fields.Item("company").Value)%> Business Category: <%=(objRS.Fields.Item("BUSCAT1").Value)%> Representative Name: <%=(objRS.Fields.Item("repFname"))%> <%=(objRS.Fields.Item("repLname"))%> Address: <%=(objRS.Fields.Item("ADDRLINE1").Value)%> <% If objRS.Fields.Item("ADDRLINE2").Value <= "" then 'Dont print it out Else response.write "  " & objRS.Fields.Item("ADDRLINE2").Value & " " End If %> <%=(objRS.Fields.Item("CITY").Value)%>, <%=(objRS.Fields.Item("STATE").Value)%> <%=(objRS.Fields.Item("ZIP").Value)%> Phone:(<%=(objRS.Fields.Item("PHONE1AC").Value)%>) <%=(objRS.Fields.Item("PHONE1").Value)%> Fax:(<%=(objRS.Fields.Item("FAXAC").Value)%>) <%=(objRS.Fields.Item("FAX").Value)%> <% If objRS.Fields.Item("EMAIL").Value = "" OR isNull(objRS.Fields.Item("EMAIL").Value) then 'Dont print it out Else response.write "Email: " & objRS.Fields.Item("EMAIL").Value & " " End If If myAddress = "" OR isNull(myAddress) then 'Dont print it out Else response.write "Website: " & myAddress & " " End If %>