Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Set oCdoMail = Server.CreateObject("CDO.Message")
Set oCdoConf = Server.CreateObject("CDO.Configuration")
sConfURL = "[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/"[/URL]
msg = "Dear Print Points Plus Redeemer,"
msg=msg &"%0AYou have a new Client: "&request.form("ruser1")&" "&request.form("ruser2")
msg=msg &"%0A%0APPP%0AJoin the Revolution"
with oCdoConf
.Fields.Item(sConfURL & "sendusing") = 2
.Fields.Item(sConfURL & "smtpserver") = "localhost"
.Fields.Item(sConfURL & "smtpserverport") = 25
.Fields.Update
end with
with oCdoMail
.From = "auto@ppp.co.uk"
.To = "register@ppp.co.uk"
.Subject = "New Client"
.TextBody = msg
.HTMLBody = msg
.Configuration = oCdoConf
.Send
end with
Set oCdoConf = Nothing
Set oCdoMail = Nothing