%@ LANGUAGE=VBScript %>
![]() Copyright © 2003 Permanent European Conference for the Study of the Rural Landscape E-mail:PECSRL2004@geo.aegean.gr Last update: 24-جلْ-2004 |
<% Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = request.form("Email") objCDO.To = "gahi@geo.aegean.gr" objCDO.Cc = request.form("Email") objCDO.Bcc = "ghiotel@yahoo.gr" objCDO.Subject = "Testing CDONTS Script" For each Item in Request.Form ' Loop through each Form item if Item <> "B1" then strMsgInfo = strMsgInfo & Item & ": " & Request.Form(Item) & vbCrLf end if next strMsgHeader = "Form information follows" & vbCrLf & "*************" & vbCrLF strMsgFooter = vbCrLf & "*************" objCDO.Body = strMsgHeader & strMsgInfo & strMsgFooter objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send set objCDO=nothing %>