<%@ EnableSessionState=False %>
<% ' controllo parametri di ingresso
BtnTop = left(Request.QueryString("btn"),1)
Button = mid(Request.QueryString("btn"),2,1)
If BtnTop = "" Then
Response.Redirect("menu.asp?btn=00")
End If
If Not IsNumeric(BtnTop) Then
Response.Redirect("menu.asp?btn=00")
End If
If BtnTop <0 or BtnTop >8 Then
Response.Redirect("menu.asp?btn=00")
End If
If Button = "" Then
Response.Redirect("menu.asp?btn=00")
End If
If Not IsNumeric(Button) Then
Response.Redirect("menu.asp?btn=00")
End If
If button <0 or Button >6 Then
Response.Redirect("menu.asp?btn=00")
End If
%>
<html><head>
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>X-Ware Menu</title>
<base target="_self">
<!--#include virtual="protect.inc"-->
<!--#include virtual="rightmouse.inc"-->
<%
If BtnTop = 0 Then
If Button = 1 Then
btaon="images/b011.gif"
btaoff="images/b011.gif"
Else
btaon="images/b010.gif"
btaoff="images/b011.gif"
End If
End If
If BtnTop = 1 Then
If Button = 1 Then
btaon="images/b111.gif"
btaoff="images/b111.gif"
Else
btaon="images/b110.gif"
btaoff="images/b111.gif"
End If
End If
If BtnTop = 2 Then
If Button = 1 Then
btaon="images/b211.gif"
btaoff="images/b211.gif"
Else
btaon="images/b210.gif"
btaoff="images/b211.gif"
End If
If Button = 2 Then
btbon="images/b221.gif"
btboff="images/b221.gif"
Else
btbon="images/b220.gif"
btboff="images/b221.gif"
End If
If Button = 3 Then
btcon="images/b231.gif"
btcoff="images/b231.gif"
Else
btcon="images/b230.gif"
btcoff="images/b231.gif"
End If
If Button = 4 Then
btdon="images/b241.gif"
btdoff="images/b241.gif"
Else
btdon="images/b240.gif"
btdoff="i
