<% response.expires = 0 %>

DIRECTORY LIST for <%= request("persontype") %>

BACK<<

EXIT

<% if request("year") <> "" then sql = "SELECT * FROM [lookupeveryone] where noshowpersontype= '"& request("persontype") & "' and [last year] = " & request("year") else sql = "SELECT * FROM [lookupeveryone] where noshowpersontype= '"& request("persontype") & "'" ' '" & request("lastname") & "*'" end if Set products = Server.CreateObject("ADODB.Recordset") products.Open sql, connection , adopendynamic, adlockoptimistic if request("lastname") <> "" then products.filter = "lastname like '" & request("lastname") & "*'" call simpleshoppingcart("#FFFFFF", "#FFFFFF") 'SIMPLE SHOPPING CART - CHANGE COLORS HERE***************************************************************** sub simpleshoppingcart(colorrow1, colorrow2) rowcolor = colorrow1 if products.eof then response.write("There is no one listed for those specific criteria. Please try again.") else response.write("
") For Each oField In products.Fields if ucase(left(ofield.name,6)) <> "NOSHOW" then response.write("") end if Next do until products.eof 'response.write("") 'response.write("") response.write("") For Each oField In products.Fields if ucase(left(ofield.name,6)) <> "NOSHOW" then response.write("") end if Next 'response.write("") response.write("") products.movenext if rowcolor = colorrow1 then rowcolor = colorrow2 else rowcolor = colorrow1 end if countertxt = countertxt + 1 loop response.write("
"& oField.Name &"
") If IsNull(ofield.value) or ofield.value = "" Then Response.Write " " elseif ucase(ofield.name) = "EMAIL" then Response.Write("" & ofield.value &"") elseif ucase(ofield.name) = "THUMBNAIL" and ofield.value <> "" and ofield.value <> "no picture" and not isnull(ofield.value) then response.write("") Else Response.Write(ofield.value) End If response.write("Delete
") end if products.close set products = nothing end sub %>