<%@ 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 = "movonarvic@ciut.fm" .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 %>

Enter your email address

<%If Len(sEmailAddr) > 0 And Len(sMsg) = 0 Then%>

(^_^)-HELLO!

<%End If%>