Mail script not working

.NET
1

I have the mail script below, which doesn’t seem to be working.

Set oMail=CreateObject("CDO.Message")
oMail.Subject="Enquiry form submitted via Pendulum Clocks"
oMail.From=rf("email")
oMail.ReplyTo = "sales@pendulumofmayfair.co.uk"
oMail.To="sales@pendulumofmayfair.co.uk"
oMail.TextBody = "The following enquiry was sumitted on " & Now & vbcrlf & vbcrlf
oMail.TextBody = oMail.TextBody & "Name:" & rf("name") & vbCrLf
oMail.TextBody = oMail.TextBody & "Address:" & rf("address") & vbCrLf
oMail.TextBody = oMail.TextBody & "Email:" & rf("email") & vbCrLf
oMail.TextBody = oMail.TextBody & "Phone:" & rf("phone") & vbCrLf
oMail.TextBody = oMail.TextBody & "Enquiry:" & rf("enquiry") & vbCrLf

oMail.BodyPart.charset = "UTF-8"
oMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
oMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="localhost"
'Server port
oMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
oMail.Configuration.Fields.Update
oMail.Send
set oMail=nothing