" End If ' End page logic %>
<% 'Strings for recipient, subject, body Dim strName, strEmail, strTelephone, strCompany, strSubject Dim strMessage Dim objCDOMail 'The CDO mail object 'Read the form parameters strName = Request.Form("name") strEmail = Request.Form("email") strTelephone = Request.Form("telephone") strCompany = Request.Form("company") strSubject = Request.Form("subject") strMessage = Request.Form("message") 'Ok we've got the values now on to the point of the script. If strName = "" Then %>
 
 
Contact Us:
 
 
 
 
NAME:  
 
EMAIL:  
 
TELEPHONE:  
 
COMPANY:  
 
SUBJECT:  
<% Else Const cdoSendUsingMethod = _ "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSMTPServer = _ "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = _ "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout = _ "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPAuthenticate = _ "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic = 1 Const cdoSendUserName = _ "http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword = _ "http://schemas.microsoft.com/cdo/configuration/sendpassword" Dim objConfig ' As CDO.Configuration Dim objMessage ' As CDO.Message Dim Fields ' As ADODB.Fields ' Get a handle on the config object and it's fields Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields ' Set config fields we care about With Fields .Item(cdoSMTPServer) = "mail.onevisiononelife.org" .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "info@onevisiononelife.org" .Item(cdoSendPassword) = "password" .Update End With Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig Dim strBody Dim strRet strRet = Chr(10) & Chr(13) strBody = "Name: " & strName & strRet strBody = strBody & "Email: " & strEmail & strRet strBody = strBody & "Telephone: " & strTelephone & strRet strBody = strBody & "Company: " & strCompany & strRet strBody = strBody & "Subject: " & strSubject & strRet strBody = strBody & "Message: " & strMessage & strRet With objMessage .To = "info@onevisiononelife.org" .From = "info@onevisiononelife.org" .Subject = "Contact from One Vision One Life.org" .TextBody = strBody .Send End With Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing Response.Write "












Message sent successfully!
 
This web site should not be used to convey consumer-specified concerns, emergencies, or allegations of abuse or neglect.
To report elderly abuse, please contact AAA at 412-350-6905 or 1-800-344-4319 24 hours a day.
To report child abuse, please contact CYF at 412-473-2000 24 hours a day.
To make a comment or complaint, please contact the Director's Action Line at 1-800-862-6783.
Any comments made through this web site may not be answered.

564 Forbes Avenue • Suite 1302 • Pittsburgh, PA • 15219
Copyright © 2008     One Vision One Life     All Rights Reserved