%
'response.Write(request("captcha")&"--request-1
")
'response.Write(session("captcha")&"--session-1
")
if request("action") = "captcha" then
' response.Write(".")
' response.Write(request("captcha")&"--request
")
' response.Write(session("captcha")&"--session
")
'response.End()
if cstr(request("captcha")) = cstr(session("captcha")) then
response.write "
|
Please select at least one product" end if End Sub %> <% function ProperCase(txt) if txt<>"" then txt=trim(txt) varTxt=split(txt," ") putSpace="" for i=0 to ubound(varTxt) if varTxt(i)<>"" then txtVal=txtVal & putSpace & ucase(left(varTxt(i),1)) & lcase(right(varTxt(i),len(varTxt(i))-1)) end if putSpace=" " next ProperCase=txtVal end if End function %>