Domanda su window.navigate

[galgen]

Ragazzi buongiorno ho realizzato il segunte script in vbscript:
<script language=vbscript>
sub vercon()
if msgbox ("Per usufruire dei servizi è necessario fornire il consenso al trattamento dei dati personali (L.675/96)."& vbcr &"Vuoi usufruire del servizio e quindi autorizzare il trattamento dei dati personali (L.675/96).",vbYesNo + vbExclamation,"CONSENSO") = vbyes then
window.navigate("/MerlinoLog/consenso.asp?Consenso=true&LinkEst=dettaglio")
end if
end sub
</script>
ma il window.navigate funziona solo con IE 6

1000 grazie a chi mi possa dare una mano.

[$$$]

in realta non ti devi preoccupare se funziona su IE6 o meno...
il fatto è ke VBScript è supportato SOLO su ie o con makkine
col plugin scrauso

il window.navigate(url) funzia da IE3 in su...
cmq lo puoi sostituire cosi

location.href = "/MerlinoLog/consenso.asp?Consenso=true&LinkEst=dettaglio";

[galgen]

Carissimo grazie per la tua disponibilità ma anche con il location.href non va'

la pagina e' la seguente:

<script language=vbscript>
sub vercon()
if msgbox ("Per usufruire dei servizi è necessario fornire il consenso al trattamento dei dati personali (L.675/96)."& vbcr &"Vuoi usufruire del servizio e quindi autorizzare il trattamento dei dati personali (L.675/96).",vbYesNo + vbExclamation,"CONSENSO") = vbyes then
window.navigate("/MerlinoLog/consenso.asp?Consenso=true&LinkEst=dettaglio")
end if
end sub
</script>

<% Dim strCorpo, k, n, x, strtesto, strtesto1, z, y, strindirizzo, strindirizzo1
strCorpo=RSVISIBILITA("Corpo")
k=instr(strCorpo,"<TESTO>")
if k=0 then
strCorpo=strCorpo
else
n=instr(strCorpo,"<TESTO>")
x=instr(strCorpo,"</TESTO>")
if n<>0 And x<>0 then
strtesto=mid(strCorpo,n+7,x-n-7)
strtesto1=left(strCorpo,n-1)
end if
z=instr(strCorpo,"<INDIRIZZO>")
y=instr(strCorpo,"</INDIRIZZO>")
if z<>0 And y<>0 then
strindirizzo=mid(strCorpo,z+11,y-z-12)
strindirizzo1=mid(strCorpo,y)
end if
Dim SQLUTE, rsUTE
SQLUTE = "SELECT * FROM Utenti_Sito"
SQLUTE = SQLUTE & " WHERE ID_Utente='" & Session("ID_Utente") & "' And Cons1=true"
Set rsUTE=Conn.Execute(SQLUTE)
If not rsUTE.Eof Then
strCorpo=strtesto1 & strindirizzo & strindirizzo1
Else
strCorpo=strtesto1 & "" & strtesto & ""
End If
end if
Response.Write strCorpo%>

e questa con IE6 funfiona e con 5 no mi sapresti dire dove' che sbaglio.

[$$$]

e se cambi...

<script language=vbscript>
sub vercon()
if msgbox ("Per usufruire dei servizi è necessario fornire il consenso al trattamento dei dati personali (L.675/96)."& vbcr &"Vuoi usufruire del servizio e quindi autorizzare il trattamento dei dati personali (L.675/96).",vbYesNo + vbExclamation,"CONSENSO") = vbyes then
window.navigate("/MerlinoLog/consenso.asp?Consenso=true&LinkEst=dettaglio")
end if
end sub
</script>


in


<script type="text/javascript">
<!--

function vercon()
{
var msg = "Per usufruire dei servizi è necessario fornire il consenso al trattamento dei dati personali (L.675/96).\nVuoi usufruire del servizio e quindi autorizzare il trattamento dei dati personali (L.675/96)."

if ( confirm(msg) )
location.href = "/MerlinoLog/consenso.asp?Consenso=true&LinkEst=dettaglio";

}

//-->
</script>

[galgen]

sarebbe stato facile ma questi rompi c... vogliono la msgbox personalizzata con i tasti SI e NO

[galgen]

tieni conto pero quando non racchiudo msgbox in una sub mi funziona come ho fatto in questaltra pagina:

Dim intID, strEsterno, strConsenso
intID=Session("ID")
Dim SQLUTE, rsUTE
SQLUTE = "SELECT * FROM Utenti_Sito"
SQLUTE = SQLUTE & " WHERE ID_Utente='" & Session("ID_Utente") & "' And Cons1=true"
Set rsUTE=Conn.Execute(SQLUTE)
Select Case intID
Case "36"
If not rsUTE.Eof Then
strEsterno="http://www.xxx.asp?IDUser=" & rsUTE("ID_Utente") & "&FirstName=" & rsUTE("Nome") & "&LastName=" & rsUTE("Cognome") & "&Gender=" & rsUTE("Sesso") & "&BirthDate=" & rsUTE("Data_Nascita") & "&Address=" & rsUTE("Indirizzo") & " " & rsUTE("Num_Civ") & "&CAP=" & rsUTE("Cap") & "&City=" & rsUTE("Localita") & "&IDProvince=" & rsUTE("Provincia") & "&Telephone=" & rsUTE("Tel_Casa") & "&Fax=" & rsUTE("Tel_Ufficio") & "&MobilePhone=" & rsUTE("Cellulare") & "&Email=" & rsUTE("Email")
Else
strConsenso="No"%>
<script language=vbscript>
if msgbox ("Per usufruire dei servizi è necessario fornire il consenso al trattamento dei dati personali (L.675/96)."& vbcr &"Vuoi usufruire del servizio e quindi autorizzare il trattamento dei dati personali (L.675/96).",vbYesNo + vbExclamation,"CONSENSO") = vbyes then
window.navigate("/MerlinoLog/consenso.asp?Consenso=true")
end if
</script>
<%End If
Case "84"
If not rsUTE.Eof Then
strEsterno="http://www.xxx.asp?IDUser=" & rsUTE("ID_Utente") & "&FirstName=" & rsUTE("Nome") & "&LastName=" & rsUTE("Cognome") & "&Gender=" & rsUTE("Sesso") & "&BirthDate=" & rsUTE("Data_Nascita") & "&Address=" & rsUTE("Indirizzo") & " " & rsUTE("Num_Civ") & "&CAP=" & rsUTE("Cap") & "&City=" & rsUTE("Localita") & "&IDProvince=" & rsUTE("Provincia") & "&Telephone=" & rsUTE("Tel_Casa") & "&Fax=" & rsUTE("Tel_Ufficio") & "&MobilePhone=" & rsUTE("Cellulare") & "&Email=" & rsUTE("Email")
Else
strConsenso="No"%>
<script language=vbscript>
if msgbox ("Per usufruire dei servizi è necessario fornire il consenso al trattamento dei dati personali (L.675/96)."& vbcr &"Vuoi usufruire del servizio e quindi autorizzare il trattamento dei dati personali (L.675/96).",vbYesNo + vbExclamation,"CONSENSO") = vbyes then
window.navigate("/MerlinoLog/consenso.asp?Consenso=true")
end if
</script>
<%End If
End Select
rsUTE.Close
Set rsUTE=Nothing
%>

[$$$]

ASPEEEE

ma l'errore te lo da LATO SERVER o LATO CLIENT ???

[galgen]

no non mi da nessun errore ma no mi va window.navigate("/MerlinoLog/consenso.asp?Consenso=true") ma nel ciclo if entra ho verificato.

[$$$]

<script language="vbscript" type="text/vbscript">
<!--
	Public Sub vercon
		Dim theMsg
		theMsg = "Per usufruire dei servizi è necessario fornire il consenso al trattamento dei dati personali (L.675/96)." & Chr(13) & "Vuoi usufruire del servizio e quindi autorizzare il trattamento dei dati personali (L.675/96)."

		If MsgBox (theMsg, vbYesNo + vbExclamation, "CONSENSO") = vbYes Then
			location = "/MerlinoLog/consenso.asp?Consenso=true&LinkEst=dettaglio"
		End If
	End Sub

-->
</script>

prova questo qua

[galgen]

modificando lo script secondo le tue indicazioni resta il tutto inalterato cioe' con IE 6 OK con IE 5 no

ma forse credo di aver scoperto qualcosa e sta proprio al richiamo della sub strCorpo=strtesto1 & "" & strtesto & "" non e' quel # che da fastidio a IE 5???