<% function rgb2clr(r,g,b) rgb2clr = (r * 256*256) + (g * 256) + b end function function CreateCaptcha() dim relPath : relPath = "/passwords/database/temp" dim absPath : absPath = Server.MapPath(relPath) dim fs : set fs = Server.CreateObject("Scripting.FileSystemObject") if not fs.FolderExists(absPath) then fs.CreateFolder(absPath) set fs = nothing set oCaptcha = Server.CreateObject("AspCaptcha.Captcha") oCaptcha.TextChars = "2346789abcdefghijmnpqrtuvwxyzABCDEFGHJMNPQRTUVWXYZ" oCaptcha.TextLength = 5 Session("CaptchaNum") = oCaptcha.Text oCaptcha.FontWarp = 4 oCaptcha.Width = 2*96 oCaptcha.Height = 2*32 oCaptcha.FontColor = rgb2clr(255,255,255) oCaptcha.BackColor1 = rgb2clr(255,255,255) oCaptcha.BackColor2 = rgb2clr(128,128,128) oCaptcha.GenerateImage relPath = relPath & "/" & oCaptcha.GenGUID() & ".jpg" absPath = Server.MapPath(relPath) oCaptcha.SaveJPG(absPath) set oCaptcha = nothing CreateCaptcha = relPath end function dim CaptchaPath : CaptchaPath = CreateCaptcha() %> Enter your information below, then click 'Submit' to sign the guestbook. Bold fields are required. Name: Location or Company: Email: Home Page: Comments: Enter your Comments here. Would you like to receive occasional email?  Please key in the access code you see displayed below in order to submit your information. This measure prevents unscrupulous spammers from running scripts that pollute the contents of this website with irrelevant material. The access code you see is provided in graphic format and cannot be read by a script. Only humans can read it. By taking a moment to key in the access code you are doing your part to eliminate SPAM. Please note that for maximum effectiveness of this measure, no error message will be displayed if the access code is not entered exactly. Access Code:
	Guestbook | Home Page