VBScript

(of course this only works for Internet Explorer...)

On Line
Menu


Select your Topping(s)




<SELECT NAME=Extras SIZE=6 MULTIPLE>
<option>Cheese </option>
<option>Mayonaise </option>
<option>Mustard </option>
<option>Oil </option>
<option>Onions </option>
<option>Pepper </option>
<option>Tomato </option>
<option>Vineagar </option>
</SELECT>
Sub SelectYourExtras_onClick
Dim i, Items
Items = vbCrLf
For i=0 to Extras.options.length -1
    If Extras.options(i).selected Then
        Items = Items & vbCrLf & Extras.options(i).text
    End If
Next

MsgBox "Your sandwhich will have: " & Items
End Sub
 

Read
a
Cookie

Sub MakeACookie_onClick
    document.cookie = "Test cookie for this VB Script page"
End Sub
 
Sub ProcessCookie_onClick
Dim i
Dim theCrumbs, bigString

If document.cookie = "" Then
    MsgBox "No cookies present for this web page"
Else
    theCrumbs = Split(document.cookie, ";")
    bigString = "cookie contents: "
    For i = 0 to UBound(theCrumbs)
        bigString = bigString & theCrumbs(i)
    Next

    MsgBox bigString
End If
End Sub
 

Home Page