<% 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", "Reyna Contact Form", sbody, 0) 'set mailobj = server.createobject("cdonts.newmail") 'mailobj.body = sbody 'mailobj.to = "soluno@aol.com" 'mailobj.subject = "Reyna 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%> Reyna-Site
Sol De Mexico Cielito Lindo La Tiendita Del Sol Mariachi Heritage Society



Meet The Girls of Reyna de Los Angeles®!

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...

 
© 2010 Mariachi Reyna De Los Angeles. All Rights Reserved