Trudesign Graphics - Where your ideas are developed professionally.
All content 2007,
Trudesign Graphics
For more information about Trudesign Graphics’s design services, please fill out the following form.
<% if Request.Form("email") = "" then %>
First Name
Last Name
Home Phone Number
Work Phone Number
E-mail Address
Company
Message
Add me to your email list

<% else ON ERROR RESUME NEXT 'Dimension variables Dim objCDOSYSCon 'Create the e-mail server object Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'Set and update fields properties With objCDOSYSCon 'Out going SMTP server .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.trudesigngraphics.com" 'SMTP port .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'CDO Port .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Setup server login information if your server require it .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@trudesigngraphics.com" .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "money1" 'Timeout .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 .Fields.Update End With 'These would read the message subject and body if we let you enter it strBody = strBody & "Someone has completed the contact form on your website and the details are listed below." & vbcrlf & vbcrlf & vbcrlf & vbcrlf strBody = strBody & "Name: " & Request.Form("fname") & " " & Request.Form("lname") & vbcrlf & vbcrlf strBody = strBody & "Home Phone: " & Request.Form("hphone") & vbcrlf & vbcrlf strBody = strBody & "Work Phone: " & Request.Form("wphone") & vbcrlf & vbcrlf strBody = strBody & "Email: " & Request.Form("email") & vbcrlf & vbcrlf strBody = strBody & "Company: " & Request.Form("company") & vbcrlf & vbcrlf strBody = strBody & "Message: " & Request.Form("message") & vbcrlf & vbcrlf strBody = strBody & "Add to mailing list? " & Request.Form("addEmail") & vbcrlf & vbcrlf ' Some spacing strBody = strBody & vbCrLf & vbCrLf 'Update the CDOSYS Configuration Set objCDOSYSMail.Configuration = objCDOSYSCon With objCDOSYSMail 'Who the e-mail is from .From = Request.Item("email") 'Who the e-mail is sent to .To = "trudesign@sbcglobal.net" '.cc = "" '.bcc = "" 'The subject of the e-mail .Subject = "Quote Request Form" 'Set the e-mail body format (HTMLBody=HTML TextBody=Plain) .TextBody = strBody 'Send the e-mail .Send End with IF ERR.NUMBER<>0 THEN RESPONSE.WRITE(ERR.DESCRIPTION) ELSE RESPONSE.write "Thank you " & Request.Form("name") & " for contacting us. We will get back to you ASAP." END IF end if %>


Graphic Design  

n. The practice or profession of designing print or electronic forms of visual information, as for an advertisement, publication, or website.
1100 N Street, Suite 2D | Sacramento, California 95814 | 916-446-6975