Newsgroup: it.aiuto
Titolo: Problemi con I.E. 4.0

Stò usando I.E. 4.0.
    Quando clicco sulla finestra CERCA mi compare la scritta che sotto
allego.
Ho provato anche a reinstallare I.E. 4.0 ma tutto rimane come prima.
Qualcuno sa dirmi cosa succede e come posso fare per avere la piena
funzionalità del pulsante CERCA.
Grazie
 
gi...@icmnet.net
<%</XMP><XMP>'Declare variables
Dim sLanguage, sPosition, sAcceptstring, sRedir
'obtain characters of Accept-language string before the comma (if 2
languages set) to set the primary language
sAcceptstring = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
sPosition = Instr(sAcceptstring, ",")
'If there is a comma, set sLanguage = the characters before it, otherwise
use the entire string.
If sPosition = 0 then
  sLanguage = sAcceptstring
Else
  sLanguage = Left(sAcceptstring, sPosition -1)
End If
'Mapping table for redirect
Select Case sLanguage
 case "pt-br" sRedir = "br"
 case "zh-cn" sRedir = "cn"
 case "cs" sRedir = "cs"
 case "da" sRedir = "da"
 case "de" sRedir = "de"
 case "de-at" sRedir = "de"
 case "de-ch" sRedir = "de-ch"
 case "de-li" sRedir = "de"
 case "de-lu" sRedir = "de"
 case "el" sRedir = "el"
 case "en-au" sRedir = "en-au"
 case "en-gb" sRedir = "en-gb"
 case "en-za" sRedir = "en-za"
 case "eu" sRedir = "es"
 case "ca" sRedir = "es"
 case "es" sRedir = "es"
 case "es-gt" sRedir = "es-la"
 case "es-cr" sRedir = "es-la"
 case "es-pa" sRedir = "es-la"
 case "es-do" sRedir = "es-la"
 case "es-co" sRedir = "es-la"
 case "es-pe" sRedir = "es-la"
 case "es-ar" sRedir = "es-la"
 case "es-ec" sRedir = "es-la"
 case "es-cl" sRedir = "es-la"
 case "es-uy" sRedir = "es-la"
 case "es-py" sRedir = "es-la"
 case "es-bo" sRedir = "es-la"
 case "es-sv" sRedir = "es-la"
 case "es-hn" sRedir = "es-la"
 case "es-ni" sRedir = "es-la"
 case "es-pr" sRedir = "es-la"
 case "es-mx" sRedir = "es-mx"
 case "es-ve" sRedir = "es-ve"
 case "fi" sRedir = "fi"
 case "sv-fi" sRedir = "fi"
 case "fr" sRedir = "fr"
 case "fr-be" sRedir = "fr-be"
 case "fr-ch" sRedir = "fr-ch"
 case "fr-lu" sRedir = "fr-lu"
 case "hu" sRedir = "hu"
 case "it" sRedir = "it"
 case "it-ch" sRedir = "it"
 case "ja" sRedir = "ja"
 case "ko" sRedir = "ko"
 case "nl" sRedir = "nl"
 case "nl-be" sRedir = "nl-be"
 case "no" sRedir = "no"
 case "pl" sRedir = "pl"
 case "pt" sRedir = "pt"
 case "ru" sRedir = "ru"
 case "sv" sRedir = "sv"
 case "tr" sRedir = "tr"
 case "uk" sRedir = "ru"
 case "zh-tw" sRedir = "tw"
 case "ar-dz" sRedir = "me"
 case "ar-bh" sRedir = "me"
 case "ar-iq" sRedir = "me"
 case "ar-eg" sRedir = "me"
 case "ar-jo" sRedir = "me"
 case "ar-kw" sRedir = "me"
 case "ar-lb" sRedir = "me"
 case "ar-ly" sRedir = "me"
 case "ar-ma" sRedir = "me"
 case "ar-om" sRedir = "me"
 case "ar-qa" sRedir = "me"
 case "ar-sa" sRedir = "me"
 case "ar-sy" sRedir = "me"
 case "ar-tn" sRedir = "me"
 case "ar-ae" sRedir = "me"
 case "ar-ye" sRedir = "me"
 case "be" sRedir = "ru"
 'All other LCIDs are mapping to US
 case else sRedir = "us"
End Select
'Build up the URL and redirect; only if US search isn't used
If not sRedir = "us" Then
 sRedir = "/intl/" + sRedir + "/search/search.asp"
 Response.Redirect(sRedir)
End If
Response.Buffer = true
%>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title>Search Frame2</title>
</head>
<%
' These are the URL's first one is blank for pickoday
' for new URL's add them to the end of the list, insert them into
serachpicker.asp
' with the "next" index BUT in the correct alphabetical place; then adjust
' the hackl in hoptoit to remap the index.  This is so the cookie is
maintained
' and people do not have to lose their setting
 SPs = Array(_
  "",_
  "
http://www.aol.com/netfind/refer/microsoft.ie4.html
",_
  "
http://www.excite.com/microsoft/ie40/
",_
  "
http://www.infoseek.com/Home?pg=Home.html&sv=M6
",_
  "
http://www.lycos.com/ie.html
",_
  "
http://www.yahoo.com/search/ie.html
"_
 )
 if Request.QueryString("SP") <> "" then
  engine = Int(Request.QueryString("SP"))-1
  Response.Cookies("Searcher")("engine") = engine
  Response.Cookies("Searcher").Expires = #December 31, 1999#
  if engine = 0 then
   engine = Request.Cookies("Searcher")("pickoday")
  end if
  Response.Redirect(SPs(engine))
 end if
 'Response.Cookies("Searcher") = ""   ' uncomment & reload to clear the
cookie for debug
 if (Request.Cookies("Searcher") = "") then
  engine = 0
  pickoday = -1
  setdate = 21397  ' magic date
 else
  engine = Request.Cookies("Searcher")("engine")
  pickoday =  Request.Cookies("Searcher")("pickoday")
  setdate =  Request.Cookies("Searcher")("setdate")
 end if
 if Int(setdate) <> Int(DatePart("y",Date())) then   ' no choice yet
  prev = pickoday
  pickoday = (Second(Time()) mod UBound(SPs)) + 1
  if prev = pickoday then pickoday = ((pickoday+1) mod UBound(SPs)) + 1
  setdate = DatePart("y",Date())
 end if
 Response.Cookies("Searcher")("engine") = engine
 Response.Cookies("Searcher")("pickoday") = pickoday
 Response.Cookies("Searcher")("setdate") = setdate
 Response.Cookies("Searcher").Expires = #December 31, 1999#
 if engine = 0 then engine = pickoday
%>
<SCRIPT LANGUAGE="JavaScript">
 var engineer = <%=engine%>
 // this is the main funkshun used to go to a new page
hey emma
 function HopToIt( index ) {
  engineer = index;
  parent.SPContent.location.href ='Search.asp?SP=' + index;
 }
</SCRIPT>
<%If instr(request.servervariables("HTTP_USER_AGENT"), "MSIE 4.0; Mac") > 0
then%>
<FRAMESET FRAMEBORDER="0" BORDER=NO FRAMESPACING="0" ROWS="31,*">
<%else%>
<FRAMESET FRAMEBORDER="0" BORDER=NO FRAMESPACING="0" ROWS="21,*">
<%end if%>
  <FRAME SRC="SearchPicker.asp"
 NAME="SPPicker" NORESIZE SCROLLING="no">
 <FRAME id=Results SRC="<%= SPs(engine) %>"
 NAME="SPContent" NORESIZE >
</FRAMESET>
</HTML>

serachpicker.asp
Non conosco l'ASP ma da quanto ho capito .. l'errore STA' sul server... 
a voglia a installare e RI-Installare Explorer.... tanto il problema una volta
tanto non e' quello... 
E' lo script ASP !!!! (che risiede sul server) da modificare ... 
dovresse essere quella la linea in questine .. un carattere di troppo ... 
--
MicroSoft? is that some kind of a toilet paper?


-- 
I support you