Shopping Cart [more]
"&vbcrlf basket = basket & ""&vbcrlf
basket = basket & "
- "&vbcrlf
do until sci_rs.eof
basket = basket & "
- "&sci_rs("item_qty")&" - "&sci_rs("item_name")&" "&vbcrlf sci_rs.movenext loop basket = basket & "
"&vbCRLF
response.write " "&vbCRLF
response.write "
"&vbCRLF
response.write "
"&vbCRLF
end if
end function
'////////////////////////////////////////////////////////////////////
'///////////////////////
' DATA VALIDATING
'///////////////////////
'''
' Regular expressions
'''
const regex_email = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
const regex_us_phone = "^\d{3}-\d{3}-\d{4}$"
const regex_us_postal_code = "^\d{5}$"
const regex_us_currency = "^\$?([0-9]{1,3},([0-9]{3},)*[0-9]{3}|[0-9]+)(.[0-9][0-9])?$"
const regex_url = "^((https?|ftp|news):\/\/)?([a-z]([a-z0-9\-]\.*)+([a-z]{2}|aero|arpa|biz|com|coop|edu|gov|info|int|jobs|mil|museum|name|nato|net|org|pro|travel)|(([0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])\.){3}([0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5]))(\/[a-z0-9_\-\.~]+)*(\/([a-z0-9_\-\.]*)(\?[a-z0-9+_\-\.%=&]*)?)?(#[a-z][a-z0-9_]*)?$"
const regex_integer = "^\d*$"
'''
' Validate value is not null
'''
function ais_not_null(value)
if isarray(value) then
if ubound(value) > 0 then
ais_not_null = true
exit function
else
ais_not_null = false
exit function
end if
else
if (value <> "") and (not isnull(value)) and ((len(trim(value)) > 0)) then
ais_not_null = true
exit function
else
ais_not_null = false
exit function
end if
end if
end function
'''
' Validate value is numeric
'''
function ais_is_numeric(value)
ais_is_numeric = (isnumeric(trim(value)) and ais_not_null(trim(value)))
end function
'''
' Validate value is integer
'''
function ais_is_integer(value)
ais_is_integer = regex_check(value, regex_integer)
end function
'''
' Validate value is a date
'''
function ais_is_date(value)
ais_is_date = isdate(value)
end function
'''
' Validate value is an email
'''
function ais_is_email(value)
ais_is_email = regex_check(value, regex_email)
end function
'''
' Validate value is a URL
'''
function ais_is_url(value)
ais_is_url = regex_check(value, regex_url)
end function
'''
' Validate value is an us phone number
'''
function ais_is_us_phone(value)
ais_is_us_phone = regex_check(ais_clean_us_phone(value), regex_us_phone)
end function
'''
' Validate value is an us postal code
'''
function ais_is_us_postal_code(value)
ais_is_us_postal_code = regex_check(value, regex_us_postal_code)
end function
'''
' Validate value is an us currency
'''
function ais_is_us_currency(value)
ais_is_us_currency = regex_check(value, regex_us_currency)
end function
'''
' Validate regular expressions
'''
function regex_check(string,regex)
dim obj_regex
if ais_not_null(string) then
set obj_regex = new regexp
obj_regex.pattern = regex
obj_regex.global = true
obj_regex.ignorecase = true
regex_check = obj_regex.test(string)
else
regex_check = false
end if
end function
'////////////////////////////////////////////////////////////////////
'///////////////////////
' WEBSITE FUNCTIONS
'///////////////////////
'''
' Redirect to URL
'''
function ais_redirect(URL)
if len(URL) < 1 then
response.write ERROR_CUST_REDIRECT_EMPTY
exit function
else
response.redirect URL
end if
end function
'////////////////////////////////////////////////////////////////////
'///////////////////////
' EMAILING FUNCTIONS
'///////////////////////
function ais_send_email(e_host_name, e_sender_email, e_sender_name, e_recipient_emails, e_cc_emails, _
e_bcc_emails, e_reply_email, e_mail_subject, e_mail_body)
dim mail, e_re, e_cc_e, e_bcc_e, tmp_send_email
tmp_send_email = ""
if not ais_not_null(e_host_name) then
tmp_send_email = "Host name not present!"
elseif not ais_not_null(e_sender_email) then
tmp_send_email = "Sender email not present!"
elseif not ais_not_null(e_sender_name) then
e_sender_name = e_sender_email
elseif not ais_not_null(e_recipient_emails) then
tmp_send_email = "No recipient present"
elseif not ais_not_null(e_mail_subject) then
tmp_send_email = "Email subject not present!"
elseif not ais_not_null(e_mail_body) then
tmp_send_email = "Email body not present!"
else
set mail = server.createobject("Persits.MailSender")
' Specify a valid SMTP server
mail.host = e_host_name
' Specify sender's address
mail.from = e_sender_email
' Specify sender's name
mail.fromname = e_sender_name
' Specify reciever's email address
e_recipient_emails = SPLIT(e_recipient_emails,",")
for each e_re in e_recipient_emails
mail.addaddress e_re
next
' Specify CC's email address
if ais_not_null(e_cc_emails) then
e_cc_emails = SPLIT(e_cc_emails,",")
for each e_cc_e in e_cc_emails
main.addcc e_cc_e
next
end if
' Specify BCC's email address
if ais_not_null(e_bcc_emails) then
e_bcc_emails = SPLIT(e_bcc_emails,",")
for each e_bcc_e IN e_bcc_emails
mail.addbcc e_bcc_e
next
end if
' Specify reply-to address
if ais_not_null(e_reply_email) then
mail.addreplyto e_reply_email
else
mail.addreplyto e_sender_email
end if
' Specify email subject
mail.subject = e_mail_subject
' Specify email body
mail.body = e_mail_body
' Specify if email is HTML or Text
mail.ishtml = true
' Authentication
if ais_not_null(config.mail_user) then
Mail.Username = config.mail_user
Mail.Password = config.mail_password
end if
' Send Mail
mail.send
end if
ais_send_email = tmp_send_email
end function
'///////////////////////
' ARRAY FUNCTIONS
'///////////////////////
function ais_in_array(value, arr)
if isarray(arr) then
dim item
for each item in arr
if value = item then
ais_in_array = true
exit function
end if
next
end if
ais_in_array = false
end function
%>
<%
'///////////////////////
' DATA CONVERSION / GENERATOR
'///////////////////////
'''
' Convert text to hash value
'''
function ais_hashvalue(txt)
dim cm, context, hash, hash_value
' Calculate Hash of Password + Salt
hash_value = md5(txt)
set cm = nothing
set context = nothing
set hash = nothing
ais_hashvalue = hash_value
end function
'''
' Random number generator
'''
function ais_rand(dmin, dmax)
if dmax = 0 then
dmax = dmin + 1000
end if
randomize
ais_rand = Int(Rnd * (dmax-dmin))+dmin
end function
'''
' Returns value as '0' if not numeric
'''
function ais_clean_numeric(value)
if not ais_is_numeric(value) then
ais_clean_numeric = 0
exit function
end if
ais_clean_numeric = value
end function
function ais_string_to_int(value)
ais_string_to_int = cint(value)
end function
'''
' Returns text 'true' or 'false' to boolean values
'''
function ais_clean_boolean(string)
if ais_not_null(string) then
if string = true then
ais_clean_boolean = true
exit function
end if
if lcase(string) = "true" then
ais_clean_boolean = true
exit function
else
ais_clean_boolean = false
exit function
end if
else
ais_clean_boolean = false
exit function
end if
ais_clean_boolean = false
end function
'''
' Returns US phone number (xxx-yyy-zzzz)
'''
function ais_clean_us_phone(value)
dim new_phone
dim i
new_phone = ""
for i = 1 to len(value)
if asc(mid(value,i,1)) >= asc("0") and asc(mid(value,i,1)) <= asc("9") then
new_phone = new_phone & mid(value,i,1)
end if
next
If Len(new_phone) = 10 Then
new_phone = left(new_phone,3)&"-"&mid(new_phone, 4, 3)&"-"&right(new_phone,4)
Else
new_phone = value
End If
ais_clean_us_phone = new_phone
END FUNCTION
'''
' Returns safe html output
'''
function ais_output_string(string, protected)
if ais_not_null(string) then
if ais_clean_boolean(protected) then
ais_output_string = Server.HTMLencode(string)
else
ais_output_string = replace(string, chr(34), """)
exit function
end if
else
ais_output_string = ""
exit function
end if
ais_output_string = string
end function
'''
' Returns status on/off image
'''
function ais_output_status_image(string)
if ais_clean_boolean(string) then
ais_output_status_image = ais_link("includes/templates/images/icons/icon_is_active_on.png", "")
exit function
else
ais_output_status_image = ais_link("includes/templates/images/icons/icon_is_active_off.png", "")
exit function
end if
end function
'''
' Returns status on/off alt
'''
function ais_output_status_alt(string)
if ais_clean_boolean(string) then
ais_output_status_alt = "Active"
exit function
else
ais_output_status_alt = "Inactive"
exit function
end if
end function
function ais_output_currency(num)
ais_output_currency = formatcurrency(ais_clean_numeric(num))
end function
'////////////////////////////////////////////////////////////////////
'////
'// Check if payment method is configured
'////
function ais_is_payment_configured(p_id)
dim p
set p = new c_payment_method
p.set_payment_method p_id
select case ais_clean_numeric(p.paymethodtype.id)
case 1 '// Authorize.Net
if not ais_not_null(p.value.login) or not ais_not_null(p.value.transaction_key) or not ais_not_null(p.value.transaction_type) then
ais_is_payment_configured = false
exit function
end if
case 2 '// Verisign
if not ais_not_null(p.value.login) or not ais_not_null(p.value.partner) or not ais_not_null(p.value.transaction_type) then
ais_is_payment_configured = false
exit function
end if
case 3 '// PayPal
if not ais_not_null(p.value.email) then
ais_is_payment_configured = false
exit function
end if
case 4 '// EProcessing Networks
if not ais_not_null(p.value.login) then
ais_is_payment_configured = false
exit function
end if
case 5 '// Check or Money Orders
if not ais_not_null(p.value.pay_to) or not ais_not_null(p.value.address) then
ais_is_payment_configured = false
exit function
end if
case else
ais_is_payment_configured = false
exit function
end select
ais_is_payment_configured = true
end function
'////////////////////////////////////////////////////////////////////
'///////////////////////
' WEBSITE FUNCTIONS
'///////////////////////
function ais_text_to_html(string)
if ais_not_null(string) then
ais_text_to_html = replace(string,vbcrlf,"| "&msg&" | "&vbCRLF response.write "
") exit function else ais_text_to_html = string exit function end if end function function ais_href_link(page, parameters, connection) dim link if left(page,1) = "/" then if UCASE(connection) = "SSL" then link = HTTPS_SERVER else link = HTTP_SERVER end if else if UCASE(connection) = "SSL" then link = HTTPS_SERVER & DIR_WS_HTTPS_CATALOG else link = HTTP_SERVER & DIR_WS_CATALOG end if end if if not ais_not_null(page) then page = "" elseif right(page,1) = "/" then page = page elseif instr(page, ".asp") < 1 then page = page & ".asp" end if if ais_not_null(parameters) then link = link & page & "?" & parameters else link = link & page end if do while Mid(link,len(link)) = "&" or Mid(link,len(link)) = "?" link = Mid(link,1,len(link)-1) loop ais_href_link = link end function function ais_html_safe_link(string) ais_html_safe_link = Server.URLEncode(string) end function function ais_link(page, connection) dim link if not ais_not_null(page) then ais_link = page exit function end if if UCASE(connection) = "SSL" then link = HTTPS_SERVER & DIR_WS_HTTPS_ADMIN else link = HTTP_SERVER & DIR_WS_ADMIN end if link = link & page ais_link = link end function function ais_file_exists(folder, file) dim fs set fs = server.createobject("scripting.filesystemobject") if ais_not_null(folder) and ais_not_null(file) then ais_file_exists = fs.fileexists(server.mappath(replace(folder,HTTP_SERVER,"")&file)) exit function else ais_file_exists = false exit function end if end function function ais_image_link(folder, file, size) if ais_file_exists(folder, file) then ais_image_link = folder&file exit function else select case size case 2 ' large image ais_image_link = DIR_WS_IMAGES&"no_picture.gif" case 3 ' full sized image ais_image_link = DIR_WS_IMAGES&"no_picture.gif" case else ' small image ais_image_link = DIR_WS_IMAGES&"no_picture.gif" end select exit function end if end function function ais_add_slash(string) if ais_not_null(string) then string = replace(string,vbcrlf,"\n") string = replace(string,"'","\'") string = replace(string,chr(34),""") ais_add_slash = string exit function else ais_add_slash = string exit function end if end function function ais_array_map(func, arr) dim new_array(), i, value i = 0 if isarray(arr) then redim new_array(ubound(arr)) for each value in arr if ais_is_numeric(value) then new_array(i) = func(value) i = i + 1 end if next else ais_array_map = null end if ais_array_map = new_array end function %> <% ' Init_Databae.asp ' This include file only has two function ' Open_Database() - opens the connection to the database ' Close_Database() - closes the connection to the database Dim Conn Dim connectstr ''''''''''''''''Opening The Access Database Connection'''''''''''''''' ' This will connect the database to the webpage that calls it ' ' db_path = folder that has the database ' db_name = Name of the database using ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Function Open_Database() connectstr = "DRIVER="&DB_DRIVER&";DBQ="&DB_LOCALPATH Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open connectstr End Function ''''''''''''''''Closing The Access Database Connection'''''''''''''''' ' When called, this will close the connection ' of the database in the webpage that calls it '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Function Close_Database() If UCase(TypeName(Conn)) = "CONNECTION" Then Conn.Close Set Conn = Nothing Set connectstr = Nothing End If End Function %> <% ' ' %> <% const HEADING_TITLE = "Customer Login" const ERROR_WRONG_LOGIN = "Error: Sorry, there is no match for that email address and/or password." const ERROR_WRONG_EMAIL = "Error: Sorry, there is no match for that email address." const ERROR_SECURITY_ERROR = "There was a security error when trying to login." const TEXT_PASSWORD_FORGOTTEN = "Resend Password" %> <% Const BUTTON_IMAGE_ADD_TO_CART = "button_add_to_cart.gif" Const BUTTON_IMAGE_ADD_ADDRESS = "button_add_address.gif" Const BUTTON_IMAGE_ADD_PRODUCTS_TO_CART = "button_add_selected.gif" Const BUTTON_IMAGE_BACK = "button_back.gif" Const BUTTON_IMAGE_BUY_NOW = "button_buy_now.gif" Const BUTTON_IMAGE_CANCEL = "button_cancel.gif" Const BUTTON_IMAGE_CHANGE_ADDRESS = "button_change_address.gif" Const BUTTON_IMAGE_CHECKOUT = "button_checkout.gif" Const BUTTON_IMAGE_CONFIRM_SEND = "button_confirm_send.gif" Const BUTTON_IMAGE_CONFIRM_ORDER = "button_confirm_order.gif" Const BUTTON_IMAGE_CONTINUE = "button_continue.gif" Const BUTTON_IMAGE_CONTINUE_CHECKOUT = "button_continue_checkout.gif" Const BUTTON_IMAGE_CONTINUE_SHOPPING = "button_continue_shopping.gif" Const BUTTON_IMAGE_CREATE_ACCOUNT = "button_create_account.gif" Const BUTTON_IMAGE_DELETE = "button_delete.gif" Const BUTTON_IMAGE_DELETE_SMALL = "button_delete_small.gif" Const BUTTON_IMAGE_DOWNLOAD = "button_download.gif" Const BUTTON_IMAGE_EDIT_SMALL = "button_small_edit.gif" Const BUTTON_IMAGE_GOTO_PROD_DETAILS = "button_goto_prod_details.gif" Const BUTTON_IMAGE_IN_CART = "button_in_cart.gif" Const BUTTON_IMAGE_LOG_OFF = "button_logoff.gif" Const BUTTON_IMAGE_LOGIN = "button_login.gif" Const BUTTON_IMAGE_MORE_REVIEWS = "button_more_reviews.gif" Const BUTTON_IMAGE_NEXT = "button_next.gif" Const BUTTON_IMAGE_PREVIOUS = "button_prev.gif" Const BUTTON_IMAGE_READ_REVIEWS = "button_read_reviews.gif" Const BUTTON_IMAGE_REDEEM = "button_redeem.gif" Const BUTTON_IMAGE_RETURN_TO_PROD_LIST = "button_return_to_product_list.gif" Const BUTTON_IMAGE_REVIEWS = "button_reviews.gif" Const BUTTON_IMAGE_SEARCH = "button_search.gif" Const BUTTON_IMAGE_SEND = "button_send.gif" Const BUTTON_IMAGE_SEND_A_GIFT_CERT = "button_send_a_gift_cert.gif" Const BUTTON_IMAGE_SEND_ANOTHER = "button_send_another.gif" Const BUTTON_IMAGE_SHIPPING_ESTIMATOR = "button_shipping_estimator.gif" Const BUTTON_IMAGE_SOLD_OUT = "button_sold_out.gif" Const BUTTON_IMAGE_SOLD_OUT_SMALL = "button_sold_out_sm.gif" Const BUTTON_IMAGE_SUBMIT = "button_submit.gif" Const BUTTON_IMAGE_TELL_A_FRIEND = "button_tell_a_friend.gif" Const BUTTON_IMAGE_TELLAFRIEND = "button_TellAFriend.gif" Const BUTTON_IMAGE_UNSUBSCRIBE = "button_unsubscribe.gif" Const BUTTON_IMAGE_UPDATE = "button_update.gif" Const BUTTON_IMAGE_VIEW_SMALL = "button_view.gif" Const BUTTON_IMAGE_WRITE_REVIEW = "button_write_review.gif" '//// ' ALT tags used for buttons '//// Const BUTTON_ADD_TO_CART_ALT = "Add This to My Cart" Const BUTTON_ADD_ADDRESS_ALT = "Add Address" Const BUTTON_ADD_PRODUCTS_TO_CART_ALT = "Add Selected Products to Cart" Const BUTTON_BACK_ALT = "Back" Const BUTTON_BUY_NOW_ALT = "Buy Now" Const BUTTON_CANCEL_ALT = "Cancel" Const BUTTON_CHANGE_ADDRESS_ALT = "Change Address" Const BUTTON_CHECKOUT_ALT = "Checkout" Const BUTTON_CONFIRM_SEND_ALT = "Send Gift Certificate" Const BUTTON_CONFIRM_ORDER_ALT = "Confirm Order" Const BUTTON_CONTINUE_ALT = "Continue" Const BUTTON_CONTINUE_CHECKOUT_ALT = "Go To Checkout" Const BUTTON_CONTINUE_SHOPPING_ALT = "Continue Shopping" Const BUTTON_CREATE_ACCOUNT_ALT = "Sign Up" Const BUTTON_DELETE_ALT = "Delete" Const BUTTON_DELETE_SMALL_ALT = "Delete" Const BUTTON_DOWNLOAD_ALT = "Download Now" Const BUTTON_EDIT_SMALL_ALT = "Edit" Const BUTTON_GOTO_PROD_DETAILS_ALT = "Go To This Product's Detailed Information" Const BUTTON_IN_CART_ALT = "Add to Cart" Const BUTTON_LOG_OFF_ALT = "Log Off" Const BUTTON_LOGIN_ALT = "Sign In" Const BUTTON_MORE_REVIEWS_ALT = "Read More Reviews" Const BUTTON_NEXT_ALT = "Next" Const BUTTON_PREVIOUS_ALT = "Previous" Const BUTTON_READ_REVIEWS_ALT = "Read the Review" Const BUTTON_REDEEM_ALT = "Redeem" Const BUTTON_RETURN_TO_PROD_LIST_ALT = "Return to the Product List" Const BUTTON_REVIEWS_ALT = "Go to the Reviews Page" Const BUTTON_SEARCH_ALT = "Search" Const BUTTON_SEND_ALT = "Send Now" Const BUTTON_SEND_A_GIFT_CERT_ALT = "Send Another Gift Certificate" Const BUTTON_SEND_ANOTHER_ALT = "Send A Gift Certificate" Const BUTTON_SHIPPING_ESTIMATOR_ALT = "Shipping Estimator" Const BUTTON_SOLD_OUT_ALT = "Sold Out" Const BUTTON_SOLD_OUT_SMALL_ALT = "Sold Out" Const BUTTON_SUBMIT_ALT = "Submit the Information" Const BUTTON_TELL_A_FRIEND_ALT = "Tell a Friend" Const BUTTON_TELLAFRIEND_ALT = "Tell a Friend" Const BUTTON_UNSUBSCRIBE_ALT = "Unsubscribe" Const BUTTON_UPDATE_ALT = "Update" Const BUTTON_VIEW_SMALL_ALT = "View" Const BUTTON_WRITE_REVIEW_ALT = "Write Review" %> <% '' define the icon images used in the project Const ICON_IMAGE_ERROR = "error.png" Const ICON_IMAGE_WARNING = "warning.gif" Const ICON_IMAGE_SUCCESS = "success.gif" Const ICON_IMAGE_TRASH = "small_delete.gif" Const ICON_IMAGE_UPDATE = "button_update_cart.gif" Const ICON_IMAGE_TINYCART = "cart.gif" '' alt tags for buttons Const ICON_ERROR_ALT = "Error" Const ICON_SUCCESS_ALT = "Success" Const ICON_WARNING_ALT = "Warning" Const ICON_TRASH_ALT = "Delete this item from the cart by clicking this icon." Const ICON_UPDATE_ALT = "Change your quantity by highlighting the number in the box, correcting the quantity and clicking this button." Const ICON_TINYCART_ALT = "Add this product to your cart by clicking here." %> <% '///// ' Site-wide Variables '///// dim err_message dim app_flag, app_err_msg dim WS_PAGE_TITLE, WS_PAGE_KEYWORDS, WS_PAGE_DESCRIPTION dim box_template, xml, targetURL dim current_page, prev_page app_flag = true app_err_msg = "" err_message = request("err_message") current_page = ais_href_link(request.servervariables("path_info"),request.servervariables("query_string"),"") prev_page = request.servervariables("http_referer") '///// ' Initialize Database Connection '///// open_database() '///// ' Initialize Default Configurations '///// dim config set config = new c_configuration '///// ' Site-wide Settings '///// Session.Timeout = config.session_timeout Server.ScriptTimeout = config.script_timeout WS_PAGE_TITLE = config.meta_tags_title WS_PAGE_KEYWORDS = config.meta_tags_keywords WS_PAGE_DESCRIPTION = config.meta_tags_description %> <% '/////////////////////// ' EMAILING FUNCTIONS '/////////////////////// ''' Sending an Email function ais_send_email(e_host_name, e_sender_email, e_sender_name, e_recipient_emails, e_cc_emails, _ e_bcc_emails, e_reply_email, e_mail_subject, e_mail_body) dim mail, e_re, e_cc_e, e_bcc_e, tmp_send_email tmp_send_email = "" if not ais_not_null(e_host_name) then tmp_send_email = "Host name not present!" elseif not ais_not_null(e_sender_email) then tmp_send_email = "Sender email not present!" elseif not ais_not_null(e_sender_name) then e_sender_name = e_sender_email elseif not ais_not_null(e_recipient_emails) then tmp_send_email = "No recipient present" elseif not ais_not_null(e_mail_subject) then tmp_send_email = "Email subject not present!" elseif not ais_not_null(e_mail_body) then tmp_send_email = "Email body not present!" else set mail = server.createobject("Persits.MailSender") ' Specify a valid SMTP server mail.host = e_host_name ' Specify sender's address mail.from = e_sender_email ' Specify sender's name mail.fromname = e_sender_name ' Specify reciever's email address e_recipient_emails = SPLIT(e_recipient_emails,",") for each e_re in e_recipient_emails mail.addaddress e_re next ' Specify CC's email address if ais_not_null(e_cc_emails) then e_cc_emails = SPLIT(e_cc_emails,",") for each e_cc_e in e_cc_emails mail.addcc e_cc_e next elseif ais_not_null(EMAIL_CC) then e_cc_emails = SPLIT(EMAIL_CC,",") for each e_cc_e in e_cc_emails mail.addcc e_cc_e next end if ' Specify BCC's email address if ais_not_null(e_bcc_emails) then e_bcc_emails = SPLIT(e_bcc_emails,",") for each e_bcc_e IN e_bcc_emails mail.addbcc e_bcc_e next elseif ais_not_null(EMAIL_BCC) then e_bcc_emails = SPLIT(EMAIL_BCC,",") for each e_bcc_e IN e_bcc_emails mail.addbcc e_bcc_e next end if ' Specify reply-to address if ais_not_null(e_reply_email) then mail.addreplyto e_reply_email else mail.addreplyto e_sender_email end if ' Specify email subject mail.subject = e_mail_subject ' Specify email body mail.body = e_mail_body ' Specify if email is HTML or Text mail.ishtml = true ' Authentication if ais_not_null(config.mail_user) then Mail.Username = config.mail_user Mail.Password = config.mail_password end if ' Send Mail mail.send end if ais_send_email = tmp_send_email end function function set_register_thankyou_email(c_id) dim rte_cust set rte_cust = new c_customer rte_cust.set_customer c_id if rte_cust.is_set then EMAIL_REGISTER_THANK_YOU_SUBJECT = "Welcome to "&config.store_name&"" EMAIL_REGISTER_THANK_YOU_BODY = "Dear "&rte_cust.salutation&" "&rte_cust.name&","&vbcrlf&vbcrlf&_ "We wish to welcome you to "&config.store_name&"."&vbcrlf&_ "With your account, you can now take part in the various services we have to offer you. Some of these services include:"&vbcrlf&_ "Permanent Cart - Any products added to your online cart remain there until you remove them, or check them out."&vbcrlf&_ "Address Book - We can now deliver your products to another address other than yours! This is perfect to send birthday gifts direct to the birthday-person themselves."&vbcrlf&_ "Order History - View your history of purchases that you have made with us."&vbcrlf&vbcrlf&_ "For help with any of our online services, please email the store-owner: "&config.store_mail&""&vbcrlf&vbcrlf&_ "Sincerely,"&vbcrlf&vbcrlf&_ "The "&config.store_name&" Team"&vbcrlf&vbcrlf&_ ""&HTTP_SERVER&""&_ EMAIL_FOOTER_NOTE else EMAIL_REGISTER_THANK_YOU_SUBJECT = "" EMAIL_REGISTER_THANK_YOU_BODY = "" end if end function function set_order_complete_email(o_id) dim oce_order, oce_orderprod, oce_orderprodatt, oce_ordertotal dim oce_rs, oce_opa_rs, oce_ot_rs set oce_order = new c_order set oce_orderprod = new c_order_product set oce_orderprodatt = new c_order_product_attribute set oce_ordertotal = new c_order_total oce_order.set_order o_id if oce_order.is_set then set oce_rs = conn.execute("select orderprod_id from order_products where orderprod_order_id = "&oce_order.id&";") set oce_ot_rs = conn.execute("select ordertotal_id from order_totals where ordertotal_order_id = "&oce_order.id&";") EMAIL_ORDER_COMPLETE_SUBJECT = "Order Confirmation #"&oce_order.id&"" EMAIL_ORDER_COMPLETE_BODY = ""&_ "Order Confirmation from "&config.store_name&""&vbcrlf&vbcrlf&_ ""&oce_order.customer_name&""&vbcrlf&vbcrlf&_ "Thanks for shopping with us today!"&vbcrlf&_ "The following is your order."&vbcrlf&_ "------------------------------------------------------"&vbcrlf&_ "Order Number: "&oce_order.id&""&vbcrlf&_ "Date Ordered: "&FormatDateTime(oce_order.date_created,1)&""&vbcrlf&vbcrlf&_ "Products" do until oce_rs.eof oce_orderprod.set_order_product oce_rs("orderprod_id") if oce_orderprod.is_set then set oce_opa_rs = conn.execute("select orderprodatt_id from order_product_attributes where orderprodatt_orderprod_id = "&oce_orderprod.id&";") EMAIL_ORDER_COMPLETE_BODY = EMAIL_ORDER_COMPLETE_BODY & ""&_ "------------------------------------------------------"&vbcrlf&_ ""&oce_orderprod.quantity&" x "&oce_orderprod.name&" " if ais_not_null(oce_orderprod.model) then EMAIL_ORDER_COMPLETE_BODY = EMAIL_ORDER_COMPLETE_BODY & ""&_ "("&oce_orderprod.model&") " end if EMAIL_ORDER_COMPLETE_BODY = EMAIL_ORDER_COMPLETE_BODY & ""&_ "= "&formatcurrency(ais_clean_numeric(oce_orderprod.final_price))&""&vbcrlf do until oce_opa_rs.eof oce_orderprodatt.set_order_product_attribute oce_opa_rs("orderprodatt_id") if oce_orderprodatt.is_set then EMAIL_ORDER_COMPLETE_BODY = EMAIL_ORDER_COMPLETE_BODY & ""&_ ""&oce_orderprodatt.option_name&": "&oce_orderprodatt.option_value&""&vbcrlf end if oce_opa_rs.movenext loop end if oce_rs.movenext loop EMAIL_ORDER_COMPLETE_BODY = EMAIL_ORDER_COMPLETE_BODY & ""&_ "------------------------------------------------------"&vbcrlf do until oce_ot_rs.eof oce_ordertotal.set_order_total oce_ot_rs("ordertotal_id") EMAIL_ORDER_COMPLETE_BODY = EMAIL_ORDER_COMPLETE_BODY & ""&_ ""&oce_ordertotal.title&" "&oce_ordertotal.text&""&vbcrlf oce_ot_rs.movenext loop EMAIL_ORDER_COMPLETE_BODY = EMAIL_ORDER_COMPLETE_BODY & ""&_ "------------------------------------------------------"&vbcrlf&vbcrlf&_ "Delivery Address"&vbcrlf&_ "------------------------------------------------------"&vbcrlf&_ ""&oce_order.build_delivery_address&""&vbcrlf&vbcrlf&_ "Billing Address"&vbcrlf&_ "------------------------------------------------------"&vbcrlf&_ ""&oce_order.build_billing_address&""&vbcrlf&vbcrlf&_ "Payment Method"&vbcrlf&_ "------------------------------------------------------"&vbcrlf&_ ""&oce_order.payment_method&""&_ EMAIL_FOOTER_NOTE else EMAIL_ORDER_THANK_YOU_SUBJECT = "" EMAIL_ORDER_COMPLETE_BODY = "" end if end function function set_contact_us_email(m_id) dim msg set msg = new c_message msg.set_message m_id if msg.is_set then EMAIL_CONTACT_US_SUBJECT = "Message from "&config.store_name&"" EMAIL_CONTACT_US_BODY = ""&_ "From: "&msg.name&""&vbcrlf&_ "Email: "&msg.email&""&vbcrlf&_ "Phone: "&msg.phone&""&vbcrlf&_ ""&vbcrlf&_ "------------------------------------------------------"&vbcrlf&_ ""&vbcrlf&_ ""&msg.comment&""&vbcrlf&_ ""&vbcrlf&_ "------------------------------------------------------"&vbcrlf&_ ""&vbcrlf&_ "NOTE: This message has been saved in your administration. To review just login at "&vbcrlf&_ ""&HTTPS_SERVER&"/admin"&vbcrlf&_ "" else EMAIL_CONTACT_US_SUBJECT = "" EMAIL_CONTACT_US_BODY = "" end if end function %> <% dim EMAIL_FOOTER_NOTE dim EMAIL_REGISTER_THANK_YOU_SUBJECT, EMAIL_REGISTER_THANK_YOU_BODY dim EMAIL_ORDER_COMPLETE_SUBJECT, EMAIL_ORDER_COMPLETE_BODY dim EMAIL_CONTACT_US_SUBJECT, EMAIL_CONTACT_US_BODY dim EMAIL_CC, EMAIL_BCC EMAIL_CC = "lairshane@yahoo.com" EMAIL_BCC = "" EMAIL_FOOTER_NOTE = ""&vbcrlf&vbcrlf&"-----"&vbcrlf&_ "This email address was given to us by you or by one of our customers. If you did not signup for an account, or feel that you have received this email in error, please send an email to "&config.store_mail&" "&vbcrlf&vbcrlf&_ "This email is sent in accordance with the US CAN-SPAM Law in effect 01/01/2004. Removal requests can be sent to this address and will be honored and respected." %> <% dim rs dim msg, msgstat dim action, action_title, new_action dim msg_subject, msg_name, msg_email, msg_phone, msg_comment action = request("action") if not ais_not_null(session("return")) then if ais_not_null(prev_page) and instr(prev_page,"contact_us/") < 1 then session("return") = prev_page else session("return") = ais_href_link("/","","") end if end if select case action case "send" set msg = new c_message msg_subject = request.form("msg_subject") msg_name = request.form("msg_name") msg_email = request.form("msg_email") msg_phone = request.form("msg_phone") msg_comment = request.form("msg_comment") if len(msg_name) < 2 then app_flag = false app_err_msg = app_err_msg& "
-- Full Name is required" end if if not ais_is_email(msg_email) then app_flag = false app_err_msg = app_err_msg & "
-- Valid Email is required." end if if not ais_not_null(msg_phone) then app_flag = false app_err_msg = app_err_msg & "
-- Phone number is required." end if if not ais_not_null(msg_comment) then app_flag = false app_err_msg = app_err_msg & "
-- A Message to us is required." end if if app_flag then set msgstat = new c_message_status msgstat.set_default conn.execute("insert into messages (msg_msgstat_id, msg_date_created, msg_subject, msg_name, msg_email, msg_phone, msg_comment) values ("&ais_clean_numeric(msgstat.id)&", #"&now()&"#, '"&ais_db_input(msg_subject)&"', '"&ais_db_input(msg_name)&"', '"&ais_db_input(msg_email)&"', '"&ais_db_input(msg_phone)&"', '"&ais_db_input(msg_comment)&"');") msg.set_last() session("msg_id") = msg.id set_contact_us_email(msg.id) err_message = ais_send_email(config.mail_host, config.store_mail, config.store_name, config.store_mail, "", "", "", EMAIL_CONTACT_US_SUBJECT, ais_text_to_html(EMAIL_CONTACT_US_BODY)) close_database() ais_redirect(ais_href_link("/contact_us/","action=sent&err_message="&ais_html_safe_link(err_message)&"","")) else err_message = "Error sending a message." & app_err_msg close_database() ais_redirect(ais_href_link("/contact_us/", "msg_name="&msg_name&"&msg_email="&msg_email&"&msg_phone="&msg_phone&"&msg_comment="&ais_html_safe_link(msg_comment)&"&err_message="&ais_html_safe_link(err_message)&"", "")) end if case "sent" set msg = new c_message msg.set_message session("msg_id") if not msg.is_set then close_database() ais_redirect(session("return")) end if case else if ais_not_null(request("msg_subject")) and ais_not_null(request("msg_name")) and ais_not_null(request("msg_email")) then msg_name = request("msg_name") msg_email = request("msg_email") msg_phone = request("msg_phone") msg_comment = request("msg_comment") else msg_name = "" msg_email = "" msg_phone = "" msg_comment = "" end if end select %>
|
WaterwayStructures.com is brought to you by
Coverall Protective Covers
<%=Year(Date())%> - All Rights Reserved - WaterwayStructures.com
site by
AnInternetStore.com