PDA

Visualizza versione completa : AHHAHAHA DOV' L'ERRORE ? (asp +vbSCRIPT)


Carnauser
01-06-2001, 11.24.45
AHHAHAHA DOV' L'ERRORE ? (asp +vbSCRIPT)
PAGINA HTML



quote:
--------------------------------------------------------------------------------

<html>

<head>
<title>Esempio 7</title>
</head>

<body>
<p align="center"><i>Esempio 7</i></p>
<form method="POST" action="esempio_7.asp">

<p>Che browser stai utilizzando? <select size="1" name="Browser">
<option value="MSIE">Explorer</option>
<option value="NET">Netscape</option>
</select></p>
<p><input type="submit" value="Invia" name="T1"><input type="reset" value="Reimposta" name="T2"></p>
</form>

</body>

</html>


--------------------------------------------------------------------------------




PAGINA ASP

quote:
--------------------------------------------------------------------------------


<html>

<head>
<title>Esempio 7</title>

</head>

<body>
<p align="center"><i>Esempio 7</i></p>
<% Dim STRbrowser
Dim temp, temp2, STRtipo_br, STRper_browser_v
Response.write(" contenuto user agent: " &temp & "<BR>")

STRbrowser= Request.Form("Browser")
STRper_browser_v= Request.ServerVariables("HTTP_USER_AGENT")
temp =""+ STRper_browser_v
Response.write(" contenuto user agent: " &temp & "<BR>")
temp2 = temp.split(";")
STRtipo_br= temp2(0).substring(0,7)
STRper_browser_v= temp2(1).substring(1,5)

if STRtipo_br = "Mozilla" Then
if STRper_browser_v = "MSIE" Then
if STRbrowser = "MSIE" Then Response.write"VERO"
else Response.write"<B>FALSO</B>"
End if
else if STRbrowser = "NET" Then Response.write"VERO"
else Response.write"FALSO"
End if
End if
else Response.write"browser non in selezione"

End if

%>


</body>

</html>


--------------------------------------------------------------------------------





Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A03F6)
Previsto 'End'
/pippo/esempi/esempio_7.asp, line 30
else Response.write"FALSO"
%@ Language=VBscript %>





ahahahahah non rieco a trovare l'errore!

EcHo2K
01-06-2001, 14.49.41
if STRtipo_br = "Mozilla" Then
if STRBrowser="MSIE" then
if STRper_browser_v="MSIE" then
response.write "VERO"
else
Response.write"<B>FALSO</B>"
end if
else
if STRbrowser = "NET" Then
Response.write"VERO"
else
Response.write"FALSO"
end if
else
Response.write"browser non in selezione"
End if


prova un po' cosi'...non lo prenere per oro colato che con ASP sono un po arrugginito...