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...

01-06-2001, 14.49.41	#2
EcHo2K WT programmer Registrato: 05-01-2001 Loc.: Siena Messaggi: 523	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... ___________________________________ Wintricks.it script programmer vuoi un sito internet professionale??? www.hor-net.com ! ...the Penguin Power

01-06-2001, 11.24.45	#1
Carnauser Newbie Registrato: 28-12-2000 Loc.: nowere Messaggi: 32	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!

Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti)

Strumenti discussione
Visualizza versione stampabile Invia questa pagina via e-mail