File Not Found

<% set conn = server.createObject("ADODB.Connection") ' Conn.Open "PIDoCs", "sa","" Conn.Open "PAHOWeb", "PAHOInternet","1651581111" ErrorURL = UCase(request.ServerVariables("Query_String")) pos = instr(ErrorURL,"/ENGLISH/") if pos > 0 then pos = pos + 9 if pos = 0 then pos = instr(ErrorURL,"/SPANISH/") if pos > 0 then pos = pos + 9 end if if pos = 0 then pos = instr(ErrorURL,"/FRENCH/") if pos > 0 then pos = pos + 8 end if if pos = 0 then pos = instr(ErrorURL,"/PORTUGUESE/") if pos > 0 then pos = pos + 12 end if Response.write "The requested document (" & Mid(request.ServerVariables("Query_String"),5) _ & ") was not found.

" if pos > 0 then strPath = mid(ErrorURL,pos) pos2 = instr(strPath,"/") strUnit = mid(strPath,1,(pos2-1)) SQLStr = "Select UserEM From PIDocSUsers where UserDept = '" & strUnit & "'" _ & " and UserType = 'F'" Set rsFP = Conn.Execute(SQLStr) If IsObject(rsFP) Then i = 0 while not rsFP.EOF if i = 0 then Response.write "Please send any questions to
" Response.write "        " & rsFP("UserEM") & "
" i = i + 1 rsFP.moveNext wend end if Else Response.write "Please send any questions to webmaster@paho.org." end if %>