<% option explicit %> <% function checkemail(email) atsignpos = instr(email, "@") if atsignpos > 0 then periodpos = instr(atsignpos, email, ".") else periodpos = 0 end if emaillen = len(email) if atsignpos = 0 then CheckEmail = false elseif periodpos = 0 then CheckEmail = false elseif emaillen = periodpos then CheckEmail = false else CheckEmail = true end if end function dim firstname, lastname, email, address, city, state, zipcode, questionscomments, error, message, action, phone, region, country, update dim atsignpos, periodpos, emaillen dim sbody, mailobj firstname = request.form("firstname") lastname = request.form("lastname") email = request.form("email") address = request.form("address") city = request.form("city") state = request.form("state") country = request.form("country") region = request.form("region") zipcode = request.form("zipcode") questionscomments = request.form("questionscomments") update = request.form("update") error = true action = request.form("action") select case action case "Submit" if firstname = "" or lastname = "" or email = "" or questionscomments = "" then message = "We're sorry but you need to fill in all the fields with a red asterisk (*) next to them." elseif not checkemail(email) then message = "We're sorry, but your email seems to be in improper format. Please follow this format, yourname@youremailprovider.com. Thank You." else error = false sbody = "Below are the results from the Mariachi Sol De Mexico Contact Form." & chr(13) & chr(13) sbody = sbody & "It was placed on " & now & "." & chr(13) & chr(13) sbody = sbody & "Mariachi Sol De Mexico Contact Form Information" & chr(13) sbody = sbody & "-----------------------------------------------" & chr(13) sbody = sbody & "First Name : " & firstname & chr(13) sbody = sbody & "Last Name : " & lastname & chr(13) sbody = sbody & "Email : " & email & chr(13) sbody = sbody & "Address : " & address & chr(13) sbody = sbody & "City : " & city & chr(13) sbody = sbody & "State : " & state & chr(13) sbody = sbody & "Zip Code : " & zipcode & chr(13) sbody = sbody & "Phone : " & phone & chr(13) sbody = sbody & "Questions / Comments ? : " & chr(13) & chr(13) sbody = sbody & "I would like to be included in Mariachi Sol's Mailing List : " & update & chr(13) sbody = sbody & questionscomments & chr (13) call aspemail("website@mariachi-sol.com", email, "soluno@aol.com", "Mariachi Sol De Mexico Contact Form", sbody, 0) 'set mailobj = server.createobject("cdonts.newmail") 'mailobj.body = sbody 'mailobj.to = "soluno@aol.com" 'mailobj.subject = "Mariachi Sol De Mexico Contact Form" 'mailobj.from = email 'mailobj.send 'set mailobj = nothing message = "Thank you for your inquiry.

Here are the results from your form." end if case else message = "Thank you for your interest in Mariachi Sol De Mexico® de Jóse Hernàndez, and our products.

All fields marked with a red asterisk (*) are required." end select %> Mariachi Sol de México®
boy trees

Jose
About The Director

Jóse Hernàndez envisioned a mariachi ensemble to reflect the passion of the rich cultural heritage he belonged. Activating this vision would establish his expression to truly live as a link to the mariachi medium. Read more...

ARROWHEAD RECORDING STUDIO CLICK HERE
 
<% if error = true then %>
Contact Form
<% if firstname = "" then response.write("*") %> First Name:   
<% if lastname = "" then response.write("*") %> Last Name:   
<% if email = "" or not checkemail(email) then response.write("*") %> Email:   
Address:   
City:   
State:   
Zip Code:   
<% if questionscomments = "" then response.write("*") %> Questions / Comment:   
I would like to be included in Mariachi Sol de México®'s Mailing List:    > Yes > No

 
<% elseif error = false then %>
Contact Form
First Name:    <%= firstname %>
Last Name:    <%= lastname %>
Email:    <%= email %>
Address:    <%= address %>
City:    <%= city %>
State:    <%= state %>
Zip Code:    <%= zipcode %>
Questions / Comment:    <%= questionscomments %>
I would like to be included in Mariachi Sol de México®'s Mailing List:    <% if update = "Yes" then response.write("Yes") else response.write("No") end if%>
<% end if %>