<%
Function sendMail (sFrom, sTo, sSubject, sBody, sSignature)
Dim objMsg, objConfig
sendMail = False
If sTo = "" Then Exit Function
If sFrom = "" Then sFrom = "webmaster@fastweb4you.com"
If sSignature Then sBody = sBody & vbNewline & vbNewline & "---" & vbNewline & "monicafendi.topescortitaly.com" & vbNewline & "http://millyblond.topescortitaly.com"
' Invio e-mail
On Error Resume Next
'# CDONTS
Set objMsg = Server.CreateObject("CDO.Message")
Set objConfig = Server.createObject ("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields.update
End With
Set objMsg.Configuration = objConfig
objMsg.From = sFrom
objMsg.To = sTo
objMsg.Subject = sSubject
objMsg.TextBody = sBody
If Err.Number = 0 Then
sendMail = True
objMsg.Send
Else
response.write err.number & " " & err.description & " "
Err.Clear
End If
Set objMsg = Nothing
End Function
%>
