<% '========================================================================= ' 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, Init 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 param If Request.QueryString("init")<>"" Then Init = Left(Request.QueryString("init"), 1) end if function iif(psdStr, trueStr, falseStr) if psdStr then iif = trueStr else iif = falseStr end if end function %> Master Logger Program List: <%= Init %> Master Logger Program List: <%= Init %>
  WCLA 

Click here to return to the main list

<% If Init = "~" then SQL_STR = "SELECT * FROM tblList Where Company NOT LIKE '[A-Z]%' ORDER BY Company, Contact;" else SQL_STR = "SELECT * FROM tblList Where Company Like '" & Init & "%' ORDER BY Company, Contact;" end if 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 ors.Fields("ChapterName") & "
 
There are no companies.