&

Server Variables
") BlankVars="

Blank Server Variables
" & vbcrlf quote=chr(34) For Each Key in Request.ServerVariables If instr(Key,"_ALL")+instr(key,"ALL_")=0 then tempvalue=trim(request.servervariables(Key)) If len(tempvalue)=0 then BlankVars=BlankVars & Key & ", " Else response.write "request.servervariables(" & quote response.write Key & quote & ") " response.write " =
" & tempvalue & "

" & vbcrlf End If end if Next response.write mid(BlankVars,1,len(BlankVars)-2) %>