@LANGUAGE = VBScript%
 
' Dichiaro le variabili che mi servono nello script
Dim partizione, fso
 
partizione = "C" ' Ricavo la partizione che mi interessa
 
' Creo l'oggetto File System
Set fso = Server.CreateObject("Scripting.FileSystemObject")
 
' Mostro un messaggio che formatta il risultato numerico a video
With Response
.Write "La partizione "  partizione  " contiene "
.Write FormatNumber(fso.GetDrive(partizione).FreeSpace, 0)
.Write " byte di memoria"
End With
 
' Un po di pulizia...

<%
    Dim nominativo, mittente, destinatario, oggetto, messaggio
    nominativo = "Nome Mittente"
    mittente = "indirizzo@mittente.ext"
    destinatario = "indirizzo@destinatario.ext"
    oggetto = "Oggetto della mail..."
    messaggio = "Corpo della mail..."
    Dim objemail
    Set objemail = CreateObject("CDO.Message")
    config = "http://schemas.microsoft.com/cdo/configuration/"
    With objemail
        .From = nominativo & ""
        .To = destinatario
        .Subject = oggetto
        .TextBody = messaggio
        .Send
    End With
    Set objemail = nothing
    Response.Write "Email inviata con successo!"
%>

%
' Creo una variabile dove inserisco la URL esatta
' della pagina HTML che continene il frameset
Dim MainFrm
MainFrm = "http://www.sito.com/main_frm.htm"
 
' Verifico la pagina chiamante (referrer)
' se questà è vuota oppure è diversa da MainFrm
' effettuo un redirect al frameset
If (Request.ServerVariables("HTTP_REFERER") = "") Or _
(Left(Request.ServerVariables("HTTP_REFERER"),42) MainFrm) Then
Response.Redirect MainFrm
End If
%

%
function pulisci(stringa)
pulisci = replace(stringa, "'", "''")
end function
%

 
%
' Specifichiamo 4 variabili numeriche
Dim Val_A, Val_B, Val_C, Val_D
Val_A = 10
Val_B = 30
Val_C = 5
Val_D = 15
 
' Troviamo il numero più grande grazie ad una serie di confronti...
Dim MaxNum
MaxNum = 0
if Val_A > MaxNum then MaxNum = Val_A
if Val_B > MaxNum then MaxNum = Val_B
if Val_C > MaxNum then MaxNum = Val_C
if Val_D > MaxNum then MaxNum = Val_D
 
' Calcoliamo il coefficente percentuale dividendo 100 per il valore di MaxNum.
' Usiamo CInt per arrotondare ad intero
Dim MyCoef
MyCoef = CInt(100/MaxNum)
 
' Ora non ci resta che disegnare il grafico usando una semplice tabella
' e dei DIV colorati come barre la cui lunghezza è espressa in % moltiplicando
' il valore della variabile per MyCoef
%>
 
table border="0"

%@LANGUAGE = VBScript%
%     ' Dichiaro le variabili che mi servono nello script     Dim partizione, fso     partizione = "C" ' Ricavo la partizione che mi interessa     ' Creo l'oggetto File System     Set fso = Server.CreateObject("Scripting.FileSystemObject")     ' Mostro un messaggio che formatta il risultato numerico a video     With Response         .Write "La partizione "  partizione " contiene "         .Write FormatNumber(fso.GetDrive(partizione).FreeSpace, 0)         .Write " byte di memoria"     End With     ' Un po di pulizia...     Set fso = Nothing  %