<%Session("LoginPage")="MemberLogin.html" DoLogin %> <% bShowPics = true bShowName = true bShowCompany = false bShowEmail = false bShowName2 = false bShowCompany2 = true bShowEmail2 = true bMakeVisible = false %>

	<% 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 submit a directory entry. Bold fields are required. Name: Company: Email Address: Image File (optional): 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:
	Directory | Home Page | Member Logout