Women in black- for Justice against War

<%@ language="VBScript"%> <% option explicit %> <% dim rsVigil dim arrContinent dim arrContAnchor dim rc dim strStatus, strSQL, bIsAdmin, strViewMode, strQuery dim strMsg dim strGotoPage arrContinent = array("Africa","Asia","Australia","Europe","Middle East","North America","South America") arrContAnchor= array("africa","asia","australia","europe","me","namerica","samerica") rsVigil = Server.Createobject("ADODB.Recordset") call openDB() if session("bIsAdmin") = true then strStatus = Request("ps") strQuery = "qryWorldWideAdmin" strViewMode="REVIEW MODE" bIsAdmin=true strMsg= "ADMIN VIEW" else strQuery = "qryWorldWide" bIsAdmin=false end if rc = getBasicList(strQuery,"", rsVigil) %> Women in black- for Justice against War

Home
About WIB
History of WIB
WIB Worldwide
Start a Vigil

<% if (bIsAdmin) then Response.write "" strGotoPage = "admin/surveyReview.asp" else strGotoPage = "worldwide/vigil.asp" end if dim x dim strFind dim strAnchor, strAdmin for x = 0 to ubound(arrContinent) ''Response.write "" Response.write "
" & vbcrlf rsVigil.Filter = adFilterNone rsVigil.movefirst strFind = "[continent]='" & arrContinent(x) & "'" rsVigil.filter = strFind if not(rsVigil.EOF) then do while not (rsVigil.eof) if not isNull(rsVigil("city")) AND not isNull(rsVigil("state")) then strAnchor = rsVigil("city") & ", " & rsVigil("state") else strAnchor = rsVigil("city") & rsVigil("state") end if ''

strAnchor = " " & strAnchor & "" if (bIsAdmin) then strAdmin = " pub status: " & rsVigil("pubStatus") & " (" & rsVigil("orgID") & ")
" else strAdmin ="
" end if Response.Write strAnchor & strAdmin & "
" & vbcrlf rsVigil.movenext loop else response.write "

" 'response.write "not found: " & strFind & "
" end if next rsVigil.close set rsVigil=nothing call closeDB() %>