Blakley Creative - Contact Us

<% mailacct = request.querystring("email") company = request.querystring("company") name = request.querystring("name") address = request.querystring("address") city = request.querystring("city") state = request.querystring("state") zip = request.querystring("zip") email = request.querystring("email") telephone = request.querystring("telephone") rep = request.querystring("rep") commentonly = request.querystring("rep") comments = request.querystring("comments") if name<>"" and mailacct<>"" then '-- Allocate Variables Dim objMail Dim sMessageText '-- Set Error Trapping ' On Error Resume Next '''''''''''''''''''' set msg = Server.CreateOBject( "JMail.Message" ) msg.Logging = true msg.silent = true msg.From = "sales@blakleycreative.com" msg.FromName = "sales@blakleycreative.com" msg.AddRecipient "ray@blakleycreative.com" msg.Subject = "Blakley Creative Contact Submitted" '-- Set Message Body sMessageText = "Name: " sMessageText = sMessageText & request.querystring("name") & vbCrLf & vbCrLf sMessageText = sMessageText & "Company: " sMessageText = sMessageText & request.querystring("company") & vbCrLf & vbCrLf sMessageText = sMessageText & "Address: " & vbCrLf sMessageText = sMessageText & request.querystring("address") & vbCrLf sMessageText = sMessageText & request.querystring("city") & ", " sMessageText = sMessageText & request.querystring("state") & " " sMessageText = sMessageText & request.querystring("zip") & vbCrLf & vbCrLf sMessageText = sMessageText & "Email: " sMessageText = sMessageText & request.querystring("email") & vbCrLf & vbCrLf sMessageText = sMessageText & "Telephone: " sMessageText = sMessageText & request.querystring("telephone") & vbCrLf & vbCrLf sMessageText = sMessageText & request.querystring("rep") & vbCrLf & vbCrLf sMessageText = sMessageText & request.querystring("commentonly") & vbCrLf & vbCrLf sMessageText = sMessageText & "Comments: " sMessageText = sMessageText & request.querystring("comments") & vbCrLf msg.Body = sMessageText ' ' To capture any errors which might occur, ' we wrap the call in an IF statement if not msg.Send("localhost" ) then Response.write "

" & msg.log & "

" else Response.write "Message sent succesfully!" end if ' And we're done! the message has been sent. '''''''''''''''''''' '-- Create the Mailman Object ' Set objMail = Server.CreateObject("ABMailer.Mailman") '-- Set the Mail Properties ' objMail.Clear ' objMail.MailDate = FormatDateTime(Date, vbLongDate) ' objMail.MailSubject = "Blakley Creative Contact Submitted" ' objMail.ReplyTo = mailacct ' objMail.SendTo = "mike@effengud.com" '"ray@blakleycreative.com" ' objMail.SendCc = "" ' objMail.ServerAddr = "mail.blakleycreative.com" ' objMail.ServerPort = 25 ' x = objMail.SendTo ' objMail.MailMessage = sMessageText ' response.write(Cstr(objmail.mailsubject) & cstr(objmail.replyto) & cstr(objmail.sendto) & cstr(objmail.mailmessage)) '-- Fire off the email message ' objMail.SendMail url=request.querystring("URL") '-- check return value's error-code (mmeNone = Success) If objMail.ErrorCode = mmeNone Then response.redirect "thankyou.htm" Else Response.Write("Mail message was not delivered.") Response.Write("The Error Code was: " & CStr(objMail.ErrorCode)) End If objmail=null else %>

Company:

*Your Name:

Your Address:

City, State
,

Zip:

*E-mail Address:

Telephone:

I would like a Blakley Creative, Inc. rep to contact me.

Don't have a rep contact me, I just wanted to make a comment.

Enter your questions, comments or message in the box below:
<%=comments%>
Thank you for responding to this questionnaire.

(972) 245-1364

Blakley Creative, Inc.
1009 Park Ave.
Carrollton, Texas 75006

<% End If %>