<%
If request("Spinta") = "Si" then
Dim MyBody
Dim MyCDONTSMail
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= Request.QueryString("From")
MyCDONTSMail.To= "info@tascapri.com"
MyCDONTSMail.Subject= Request.QueryString("Subject")
strMsgHeader = "Informazioni Ricevuta:" & vbCrLf & vbCrLf
for each qryItem in Request.QueryString
strMsgInfo = strMsgInfo & qryItem & ": " & request.querystring(qryItem) & vbCrLf
next
MyCDONTSMail.Body= strMsgHeader & strMsgInfo
MyCDONTSMail.Send
set MyCDONTSMail=nothing
%>
TOP Audio Service CAPRITOP Audio Service CAPRI
