<% '========================================================================= ' MLP List by Chapters ' ' Ver Date Comments ' ---- -------- -------------------------------------------------- ' 1.00 02-28-07 -Initial version '========================================================================= Option Explicit Dim OPEN_STR, SQL_STR, Counter Dim oconn, ors, ChpName, DispName OPEN_STR = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/fpdb/MLPList.mdb") & ";" set oconn = Server.CreateObject("ADODB.Connection") set ors = Server.CreateObject("ADODB.Recordset") oconn.Open OPEN_STR 'prepare chapter name If Request.QueryString("chp")<>"" Then ChpName = Replace(Request.QueryString("chp"), "'", "''") If Left(ChpName,2)="z " then DispName = Mid(ChpName,3) else DispName = ChpName & " Chapter" end if end if function iif(psdStr, trueStr, falseStr) if psdStr then iif = trueStr else iif = falseStr end if end function %> <%= DispName %> <%= DispName %>
  WCLA 

Click here to return to the chapter list

<% SQL_STR = "SELECT * FROM tblList Where ChapterName='" & ChpName & "' ORDER BY Company, Contact;" ors.Open SQL_STR, oconn Counter=0 do while not ors.EOF '& "" & Counter & " " response.write "" response.write "" ors.MoveNext counter = counter + 1 loop if counter = 0 then response.write "" end if %>
" & ors.Fields("Company") & IIf(ors.Fields("TreeFarmer"), " (Tree Farmer)", "") response.write "
" & ors.Fields("CSZ") & "
" & ors.Fields("Contact") & "
" & ors.Fields("Phone") &"" response.write "
 (" & IIf(ors.Fields("WCLAMember?"), "", "non-") & "member)" response.write "
 
There are no companies.