<% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'SHOW SEARCH RESULTS '''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' IF Request.QueryString("promoCode") <> "" and Request.form("function") = "" and Request.form("promoCode") = "" THEN%> <%IF request.QueryString("getPromo") = "sent" THEN%> <%ELSEIF request.QueryString("getPromo") = "error" THEN%> <%ELSE%> <%IF promoDB.Fields("active") <> "no" THEN%> <%IF promoDB.Fields("pic") <> "" THEN%> <% Dim iWidth, iHeight, iType Dim myImg, fs img = Server.MapPath("/uploaded/promos") & "\" & promoDB.Fields("pic") Set fs= CreateObject("Scripting.FileSystemObject") if not fs.fileExists(img) then ELSE set myImg = loadpicture(img) iWidth = round(myImg.width / 26.4583) iHeight = round(myImg.height / 26.4583) iType = myImg.Type select case iType case 0 iType = "None" case 1 iType = "Bitmap" case 2 iType = "Metafile" case 3 iType = "Icon" case 4 iType = "Win32-enhanced metafile" end select set myImg = nothing END IF %> <%IF iWidth >= 450 and iWidth < 590 THEN%> <%ELSEIF iWidth > 589 THEN %> <%ELSE%> <%END IF%> <%ELSE%> <%END IF%> <%ELSE%> <%END IF%> <%END IF%> <%promoDB.MoveNext WEND%>

<%Dim promoDB Set promoDB = Server.CreateObject ("ADODB.Recordset") mySQL="SELECT * FROM promo where promoCode='"&Request.QueryString("promoCode")&"'" promoDB.Open mySQL, DB If promoDB.EOF And promoDB.BOF Then%> NOTE: This Promotion is no longer available.

<%ELSE promoDB.MoveFirst While Not promoDB.EOF%>

<%=replace(promoDB.Fields("name"), "~~", "'")%> <%IF promoDB.Fields("active") = "no" THEN%> - Offer Closed <%END IF%>

THANK YOU!

In a few moments you will receive an email confirming your request to recieve this promotion.
Thank you for your interest in HoneyBar.

ERROR!
<%IF request.QueryString("errormessage") <> "" THEN%> <%=request.QueryString("errormessage")%> <%ELSE%> Please ensure that you complete all of the required form fields. <%END IF%>

<%IF request.QueryString("errormessage") = "" THEN%> #promoForm">Click Here to try again. <%END IF%>

" border="0">

<%=replace(promoDB.Fields("details"), "~~", "'")%>

" border="0" align="right"><%=replace(promoDB.Fields("details"), "~~", "'")%>

<%=replace(promoDB.Fields("details"), "~~", "'")%>

*

*

Check here to receive new sample or promotion offers and new product announcements:

*

*

/ **

*

*

" /> " />

* Required. ** One of the two is required.

<%=promoDB.Fields("deactiveMessage")%>

<%END IF%>

<% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'REQUEST CLIENT INFO '''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ELSEIF Request.form("function") = "clientInfo" and Request.form("promoCode") <> "" THEN%> <%Set promoDB = Server.CreateObject ("ADODB.Recordset") mySQL="SELECT * FROM promo where promoCode='"&Request.form("promoCode")&"'" promoDB.Open mySQL, DB If promoDB.EOF And promoDB.BOF Then%> NOTE: This Promotion is no longer available.

<%ELSE promoDB.MoveFirst While Not promoDB.EOF%> <%=promoDB.Fields("name")%>

To receive this promotion, please complete the form below...

<%promoDB.MoveNext WEND%>

First Name:

Last Name:

Email Address:

Shipping Address:

City:

Province/State:

Other:

Country:

Postal/Zip Code:

Recieve new product information from HONEYBAR:

" />

<%END IF%>
<%ELSE%>

Promotions & Give-A-Ways!

<%END IF%>