...........THE UNIVERSE OF MARIACHI..........

<% 'Check if the stored session text - session("checktext") is the same as the ' text which has client entered - request("imagecheck"). if len(request.form("imagecheck"))>0 and "" & request.form("imagecheck") = "" & session("checktext") then success = 1 else 'Create a random text and store the text to session. ' Image-Check.asp will show the text in a captcha image session("checktext") = RandomText(6) end if submitval = request.form("submit") name = Request.Form("Name") email = Request.Form("Email") phone = Request.Form("Phone") comment = Request.Form("Comment") page = Request.Form("Page") if ucase(submitval) = "SUBMIT" and len(name) > 3 and len(comment) > 5 and success = 1 then on error resume next Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.gmail.com" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="webserver@computability.biz" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="C73654" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Update 'End remote SMTP server configuration section== ObjSendMail.To = "abjmusprod@aol.com" ObjSendMail.CC = "alexandra@ajlproductions.com" ObjSendMail.Subject = "ABJ Productions website contact response" ObjSendMail.From = "webserver@computability.biz" ' we are sending a text email.. simply switch the comments around to send an html email instead 'ObjSendMail.HTMLBody = "this is the body" ObjSendMail.TextBody = "Name: " & name & vbcrlf & "Phone: " & phone & vbcrlf & "E-mail: " & email & vbcrlf & "Comments: " & comment ObjSendMail.Send if err.number <> 0 then SendFailure = 1 else SendFailure = -2 end if Set ObjSendMail = Nothing end if %>

<% if SendFailure = 0 then %>

Por favor se utiliza la forma abajo para contactar ABJ Productions.

<% elseif SendFailure = 1 then %>

No pudimos someter su informacion de contacto debido a un error (por la razon de un error).

<% elseif SendFailure = -2 then %>

Su information de contacto y sus comentarios ha sometado con exito. Alguien va a contactarse lo mas pronto que sea posible

<% end if %>

<% if SendFailure = 0 then %>

Nombre:
Email:
Numero de telefono:
Preguntas/Comentarios	<% =comment %>
	<% if len(request.form("imagecheck"))>0 and success <> 1 then response.write "What you typed does not match image. Try again. " %>Escribe el texto desde la imagen

<% end if %>