%@Language="VBSCRIPT"%>
<%
'Code to verify whether the user has opted for the newsletter or not...
public function sendmail(byval emailto, byval emailfrom, byval subject, byval matter)
'SENDING MAIL USING CDOSYS
'*****************************************************
'with configuration options:
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
' Const cdoBasic = 1 'Use basic (clear-text) authentication.
' Const cdoSendUsingPort = 2
'
' Dim iMsg
' Dim iConf
' Dim Flds
'
'
' 'Create message and configuration objects
' 'set iMsg = CreateObject("CDO.Message")
' set iConf = CreateObject("CDO.Configuration")
'
' Set Flds = iConf.Fields
'
' 'Appluy settings to the configuration object
' With Flds
' ' Specify the authentication mechanism to basic (clear-text) authentication.
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
' ' The username for authenticating to an SMTP server
' .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "support@cyberlinesolutions.com"
' ' The password used to authenticate to an SMTP server
' .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "blinker20"
'
' .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
' 'Specify mail server
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "202.63.160.75"
' 'Specify the timeout in seconds
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
'
' ' The port on which the SMTP service specified by the smtpserver field is listening for connections (typically 25)
' '.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' 'Use SSL for the connection (False or True)
' '.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
'
' .Update
' End With
'
'
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'
'
' Dim objCDO
' 'Create the mail object
' Set objCDO = Server.CreateObject("CDO.Message")
'
' set objCDO.Configuration = iConf
' '*****************************************************
'
'
' objCDO.To = emailto
' objCDO.From = emailfrom
'
' objCDO.Subject = subject
'
' 'When using CDOSYS...
' '------------------------
' objCDO.HTMLBody = matter
'
' 'When using CDONTS...
'--------------------------
' 'objCDO.Importance = 2
' 'objCDO.BodyFormat = 0
' 'objCDO.MailFormat = 0
' '------------------------
'
'
' ''''''''''''''''''''''''''''''
' 'FOR CDOSYS
'' '---------------------------
' objCDO.MimeFormatted = True
'---------------------------
'' 'Response.Write objCDO.To & "
" & objCDO.From & "
" & objCDO.Subject & "
" & objCDO.HTMLBody
' objCDO.Send
'
''set objcdo = nothing
'===============================================================================
'CODE FOR SENDING MAIL USING ASPSMARTMAIL COMPONENT
On error resume next
Dim mySmartMail
Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")
mySmartMail.Server = "127.0.0.1"
' From
' ****
mySmartMail.SenderName = left(emailfrom,instr(1,emailfrom,"@")-1)
mySmartMail.SenderAddress = emailfrom
' To
' **
mySmartMail.Recipients.Add emailto,left(emailto,instr(1,emailto,"@")-1)
' Message
' *******
mySmartMail.Subject = subject
mySmartMail.ContentType = "text/html"
mySmartMail.Body = matter
' Send the message
' ****************
mySmartMail.SendMail
if Err.Number<>0 then
Response.write "Error: " & Err.description
else
'Response.write "An e-mail has just been sent to " & mySmartMail.Recipients.Item(1).Name & "."
end if
'===============================================================================
end function
if Request.QueryString("action") <> "" then
dim email_To,email_From, email_Subject, email_Body
email_To="kim@rumiyoga.com"
email_From=Request.Form("txtfname")
email_Subject = "Testimonial from " & email_From
email_Body = "Mr/Ms/Mrs " & email_From & " has submitted the following Testimony " & "
" & Request.Form("txtcomments")
'Response.Redirect "sendmail.asp?emailTo=" & email_To & "&emailFrom=" & email_From & "&subject=" & email_Subject & "&emailBody=" & email_Body
call sendmail(email_To,email_From,email_Subject,email_Body)
if Request.Form("chk_newsreg") <> "" then
Response.Redirect "../newsletter/mailing_list/sign_up.asp?newemail=" & Request.Form("txtemailid") & "&newsignup=" & email_From
end if
end if
%>
|
“Listen to the story told by the reed of being separated: Since I was cut from the reed bed, I have made this crying sound. Anyone apart from someone she loves understands what I say. Anyone pulled from the source longs to go back.” - RUMI |
||||||||||||||||||||||||||||||
| Privacy Statement | Yoga should not be used as a
substitute for professional health care. Talk to your doctor before
starting any new exercise regime. Proud member of SearchinLA | All Rights Reserved 2004 - 2008 © Rumi Yoga |
Legal Note |