<%@LANGUAGE="VBSCRIPT"%> <% function TestCaptcha(byval valSession, byval valCaptcha) dim tmpSession valSession = Trim(valSession) valCaptcha = Trim(valCaptcha) if (valSession = vbNullString) or (valCaptcha = vbNullString) then TestCaptcha = false else tmpSession = valSession valSession = Trim(Session(valSession)) Session(tmpSession) = vbNullString if valSession = vbNullString then TestCaptcha = false else valCaptcha = Replace(valCaptcha,"i","I") if StrComp(valSession,valCaptcha,1) = 0 then TestCaptcha = true else TestCaptcha = false end if end if end if end function %> Kurt Bluemel, Inc. - Baldwin,MD
 
 
   

Request a catolog

We are a wholesale supplier to the trade and do not sell retail.

If you are a tradesman and would lke access to our realtime product availability, the ability to access our on-line catolog, or would like us to mail you a copy of our catalog, please fill out the form below. (* Required Fields)

Company Name*:

Federal ID#*:

Address 1*:

Address 2*:

City: State: Zip Code:

Contact Name*:

Email Address*:

Phone Number*:

Fax Number*:

Website:

<% if not IsEmpty(Request.Form("btnTest")) then Response.Write("" & vbCrLf) end if %>

Change Image
Write the characters in the image above
") if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then Response.Write("The code you enter verified.") else Response.Write("You entered the wrong code.") end if Response.Write("

 

 
 
© 2009 Kurt Bluemel, Inc. • 2740 Greene Lane • Baldwin, MD 21013 • (800)498-1560 • (410)557-7229