<%@language = "VBscript"%> <% Dim varName, varEmail, varCompany, varTelephone, varComments, varSend, thisPage varName = Request.Form("txtName") varEmail = Request.Form("txtEmail") varCompany = Request.Form("txtCompany") varTelephone = Request.Form("txtPhone") varComments = Request.Form("txtComments") varSend = Request.Form("send") thisPage = Request.ServerVariables("SCRIPT_NAME") If not varSend = 1 Then 'OUTPUT THE CONTACT FORM %>

Contact us using this web form

 

Name:  
Company:  
Email:  
Telephone:  
Comments:  
     
 
<% Else 'SEND MAIL AND OUTPUT THANK YOU RESPONSE 'REPLACE LINE RETURNS WITH HTML BREAKS varComments = Replace(varComments, chr(10), "
") 'THE MAIL OBJECT Dim ObjMail Set ObjMail = Server.CreateObject("CDO.Message") Set objConfig = CreateObject("CDO.Configuration") 'Configuration: objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort objConfig.Fields(cdoSMTPServer) = "localhost" objConfig.Fields(cdoSMTPServerPort) = 25 objConfig.Fields(cdoSMTPAuthenticate) = cdoBasic 'Update configuration objConfig.Fields.Update Set objMail.Configuration = objConfig objMail.From = varName & " <" & varEmail & ">" objMail.To = "cassell@city-net.com" objMail.Subject = "Contact from Your Website" objMail.HTMLBody = varName & "
"_ & VBCrLf & varCompany & "
"_ & VBCrLf & varTelephone & "
"_ & CBCrLf & varComments & "
" objMail.Send Set objMail = Nothing Set objConfig = Nothing 'AND OUTPUT THANK YOU Response.Write "Hi "& varName & ",
"_ & VBCrLf & "Thanks for contacting us.
"_ & VBCrLf & "We’ll get back to you as soon as possible!" End If %>

 
  Destination Photographs | 1200 Resaca Place | Pittsburgh PA 15212 | 412-999-2539 | glennolcerst@comcast.net
© 2004 - 2008 Glenn Olcerst, All Rights Reserved

This site is best viewed in 1024 x 768. Click here to learn how & why to change screen resolution.