<%@ Language=VBScript %>
<%
Dim sEmailAddr, sMsg
On Error Resume Next
sEmailAddr = Request.Form("EmailAddress")
If Len(sEmailAddr) > 0 Then
If InStr(1,sEmailAddr,"@") > 0 Then
Call SendEmail
Else
sMsg = "Please enter a valid email address."
End If
End If
If Err.number <> 0 Then
sMsg = Err.Description
End If
Sub SendEmail()
Dim oMail
On Error Resume Next
Set oMail = Server.CreateObject("CDONTS.NewMail")
With oMail
.From = "Testing@TestDomain.com"
.To = sEmailAddr
.Subject = "Testing Website"
.Body = "This is only a test"
.Send
End With
Set oMail = Nothing
If Err.number <> 0 Then
sMsg = Err.Description
Err.Clear
End If
End Sub
%>
<%If Len(sEmailAddr) > 0 And Len(sMsg) = 0 Then%>
Your Email was sent successfully.
<%End If%>