<%
IF request("action")="2" then
SET objConn = Server.CreateObject("ADODB.Connection")
'objConn = "DSN=partner"
objConn = "Driver={SQL Server};" &_
"Server=S75722;" &_
"Database=Partner;" &_
"Uid=sa;" &_
"Pwd=nnybog"
SET rsPartner = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * from partneremail"
rsPartner.Open strSQL,objConn, 2,2,1
rsPartner.AddNew
rsPartner("PartnerID") = Session("PartnerID")
rsPartner("PartnerURL") = Request.ServerVariables ("SERVER_NAME")
rsPartner("VisitorNumber") = Session("TotalVisits")
rsPartner("firstname") = Request ("firstname")
rsPartner("lastname") = Request ("lastname")
rsPartner("emailaddress") = Request ("emailaddress")
rsPartner("phone") = Request ("phone")
rsPartner("city") = Request ("city")
rsPartner("state") = Request ("state")
rsPartner("dob") = Request ("dobmm")&"/"&Request ("dobdd")&"/"&Request ("dobyyyy")
rsPartner("message") = LEFT(Request ("message"),1000)
rsPartner("NotifyMe") = Request ("NotifyMe")
rsPartner("CreateDate") = date()
rsPartner("Active") = 1
rsPartner.Update
rsPartner.Close
SET rsPartner = NOTHING
SET objConn = NOTHING
IF Request.Form("url") <> "" then
''send email
dim MessageBody
dim Mail
dim SendMessage
MessageBody= MessageBody&"IMPORTANT: DO NOT REPLY TO THIS AUTOMATED EMAIL MESSAGE!"& Chr(13) & Chr(10)& Chr(13) & Chr(10)
MessageBody= MessageBody&"Date: "&Date()& Chr(13) & Chr(10)& Chr(13) & Chr(10)
MessageBody= MessageBody&"Dear "&Request ("firstname")&","& Chr(13) & Chr(10)& Chr(13) & Chr(10)
MessageBody= MessageBody&"Thanks for applying for the Adopt-A-School Foundation! Should you wish to communicate with us in the future please revisit our web site at "&Request.ServerVariables ("SERVER_NAME")&" and click on the Contact Us link"& Chr(13) & Chr(10)& Chr(13) & Chr(10)
MessageBody= MessageBody&"The following is a summary of the information that you provided:"& Chr(13) & Chr(10)
MessageBody= MessageBody&" Name: "&Request ("firstname")&" "&Request ("lastname")& Chr(13) & Chr(10)
MessageBody= MessageBody&" Phone Number: "&Request("phone")& Chr(13) & Chr(10)& Chr(13) & Chr(10)
MessageBody= MessageBody&Request ("message")& Chr(13) & Chr(10)& Chr(13) & Chr(10)
MessageBody= MessageBody&"Someone will be in touch!"& Chr(13) & Chr(10)
MessageBody= MessageBody&"Best regards!"& Chr(13) & Chr(10)
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.bmgiventures.com" ' Specify a valid SMTP server
Mail.From = "submissions@bmgiventures.com" ' Specify sender's address
Mail.Username = "submissions@bmgiventures.com"
Mail.Password = "password"
Mail.FromName = "submissions@bmgiventures.com" ' Specify sender's name
Mail.AddAddress Request ("emailaddress"), Request ("emailaddress")
Mail.AddBcc "submissions@bmgiventures.com", "submissions@bmgiventures.com"
Mail.AddReplyTo "submissions@bmgiventures.com"
Mail.Subject = "Adopt-A-School Foundation Application."
Mail.Body = MessageBody
On Error Resume Next
Mail.Send
If Err <> 0 Then
'failed
Msg = "Your application has been received. Thanks for applying for the Adopt-A-School Foundation! (MSG001)"
ELsE
Msg = "Your application has been received. Thanks for applying for the Adopt-A-School Foundation! (MSG002)"
End If
END IF
END IF
%>
School Booster Club - Student fundraising ideas School fundraising ideas tools for student programs.
