<%@ Language=VBScript %>
<%Response.Buffer=true%>
SENDMAIL.ASP
<%
'==================begin your configuration here=============================
'
fName = Request.Form("fullName")
eAdd = Request.Form("emailAdd")
wSite = Request.Form("webSite")
cText = Request.Form("comments")
'Combine all parameters into one single string
fullString = "FROM: " & fName & " - EMAIL: " & eAdd & " - WEBSITE: " & wSite & " - COMMENTS: " & cText
Dim sendusername : sendusername = "van.ardon@hedmanalas.com"
Dim userpassword : userpassword = "lamborgini"
Dim smtpserver : smtpserver = "smtp.hedmanalas.com"
'set your TO, CC, From, Subject and body here
'
strTo = "helpdesk@hedmanalas.com"
strFrom = ""
strSubject = "Guest Form Feedback"
strTextBody = fullString
'====================end set your configuration here============================
'====================DO NOT CHANGE THE CODE BELOW========================
'
Const cdoBasic = 1 'Use basic (clear-text) authentication.
Const cdoSendUsingPort = 2
'cdosys related
Dim iMsg
Dim iConf
Dim Flds
'mail related
Dim strMsg
Dim strTo
Dim strCC
Dim strFrom
Dim strSubject
Dim strTextBody
'Create message and configuration objects
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
'Apply 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") = sendusername
' The password used to authenticate to an SMTP server
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = userpassword
' Port
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
'Specify mail server
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
'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
'Apply the settings to the message object and send it
With iMsg
Set .Configuration = iConf
.To = strTo
.From = strFrom
If strCC <> "" Then
.CC = strCC
End If
.Subject = strSubject
.TextBody = strTextBody
'Send message
.Send
End With
' cleanup mail objects
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
%>