<%Response.Expires = -1%> <% Dim IMAGE_PATH, IMAGE_URL, MAIN_URL, _ MERCHANT_ADDRESS, MERCHANT_EMAIL_TO, MERCHANT_EMAIL_FROM, MERCHANT_FAX, MERCHANT_NAME, MERCHANT_PHONE, _ SECURE_URL, SECURE_URL_HTTPS, SERVER_NAME, _ SIGNIO_UID, SIGNIO_PWD, _ TRANSACTION_MODE MERCHANT_ADDRESS = "" MERCHANT_FAX = "(818) 904-9444" MERCHANT_PHONE = "(818) 904-9400" MERCHANT_NAME = "RocksCool.com" SERVER_NAME = Request.ServerVariables("SERVER_NAME") MERCHANT_EMAIL_TO = "willieb@rockscool.com" MERCHANT_EMAIL_FROM = MERCHANT_NAME & " <" & MERCHANT_EMAIL_TO & ">" IMAGE_PATH = "" IMAGE_URL = "images/products/" MAIN_URL = "http://www.rockscool.com/" SECURE_URL = "http://secure.appse.com/rockscool-140/" SECURE_URL_HTTPS = "https://secure.appse.com/rockscool-140/" SIGNIO_UID = "" SIGNIO_PWD = "" TRANSACTION_MODE = TRANSACTION_MODE_LIVE Const ORDER_STATUS_NEW = 0 Const ORDER_STATUS_PROCESSED = 1 Const ORDER_STATUS_ON_HOLD = 2 Const ORDER_STATUS_DECLINED = 3 Const ORDER_STATUS_SHIPPED = 4 Const ORDER_STATUS_ARCHIVED = 5 Const TRANSACTION_MODE_TEST = True Const TRANSACTION_MODE_LIVE = False Const ORDER_ID_COOKIE_NAME = "OrderID" Const CUSTOMER_ID_COOKIE_NAME = "CustomerID" Const DSN = "DSN=rockscool;UID=rockscool;PWD=mtb1906" Const MAX_HEIGHT = 300 Const TH_MAX_HEIGHT = 100 Const MAX_WIDTH = 300 Const TH_MAX_WIDTH = 100 %> RocksCool Records
<% If not Request("Send") = "1" then %>
Guest Registration

Name:
Email:
Phone:
Address:
 
City:   St:   Zip:
 
What areas are you interested in?
Vintage Recording Equipment New Recording Equipment
Studio Rental Equipment Rental
Artist Production New Artists
How did you hear about us?
Comments and Feedback:
<% Else %>
Thanks for your registration.
<% End If %>