Microsoft Small Basic

Program Listing:
Embed this in your website
'requires FC Extension. Get The FC Extension@ http://tinyurl.com/ydze8u9
GraphicsWindow.Hide()
logincreds = Dialogs.AskForLoginCredentials()
If (logincreds = "usename:password") Then '***
  GraphicsWindow.ShowMessage("Login Correct","Message")
Else
  Dialogs.ShowMessageAsError("Login Incorrect")
EndIf
'***put your userame and password where you see usename:password
'by replacing "username" with your username and "password" with
'your password. remember to keep the ":" (colon)
Copyright (c) Microsoft Corporation. All rights reserved.