|
<% 'start asp'
function Decoder(item)
item = trim(item)
item = replace(item,"&",VBnewLine)
item = replace(item,"=",VBtab)
item = replace(item,"+"," ")
item = replace(item,"%40","@")
item = replace(item,"%3A","-")
Decoder=item
end function
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 1 'cdoSendUsingPickup
.Item(sch & "smtpserver") = " 217.69.37.223"
.Item(sch & "smtpserverport") = 21
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "response@positiveconsulting.co.uk"
.To = "ahook@positiveconsulting.co.uk"
.cc = "joanne.carrick@keytools.com"
.Subject = "Assessement Form from Positive Consulting"
.HTMLBody = replace(replace(trim(request.form()),"&","
Thank you for completing the Assessment Form
|