<%
FWDLINK2=Request.QueryString("FWDLINK2")
if FWDLINK2="" then FWDLINK2="default.asp"
fromWho = TRIM( Request.Form( "fromWho") )
YourName = TRIM( Request.Form( "YourName") )
toWho = TRIM( Request.Form( "toWho") )
Subject = TRIM( Request.Form( "YourName") & " Has Sent You a Link")
goober = TRIM( Request.Form( "goober") )
Body = TRIM( Request.Form( "Body") )
if toWho <> "" then
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(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail.mayorslay.com"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "mayorslay@mayorslay.com"
.Item(cdoSendPassword) = "Slay030505"
.Update
End With
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
With objMessage
.To = toWho
.From = fromWho
.Subject = Subject
.TextBody = Body
.HTMLBody = "Your Friend " & YourName & " Has Sent You a Link to MayorSlay.com:
" & Body & "
-- " & YourName & "
Please visit the link below:
http://www.mayorslay.com" & goober & "
Paid for by the Slay for Mayor Committee -- Judy Murphy, Treasurer
Copyright -- 2005-2009, Slay for Mayor Committee
"
.Send
End With
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
Response.redirect "thankyou.asp"
end if
%>
<%
dim title
title = "MayorSlay.com - Forward to a Friend"
dim desc
desc = "Official Website of Mayor Francis Slay - Forward to a Friend"
dim keywords
keywords = "Mayor Slay, Francis Slay, St. Louis Mayor, St. Louis, Mayor Slay, City of St. Louis, Missouri,Forward to a Friend, Tell-a-Friend, forward, URL"
dim section
section = "Forward to a Friend"
%>
Complete the Form Below to Forward This Page
http://www.mayorslay.com<%=FWDLINK2 %>