<% On Error Resume Next v_messagetype= Request.Form("messagetype") v_subjectother= Request.Form("subjectother") v_comments= Request.Form("comments") v_username= Request.Form("username") v_useremail= Request.Form("useremail") v_usertel= Request.Form("usertel") v_userfax= Request.Form("userfax") v_contactrequested= Request.Form("contactrequested") v_body = "Name: " & v_username v_body = v_body & chr(010) & "Email address: " & v_useremail v_body = v_body & chr(010) & "Telephone: " & v_usertel v_body = v_body & chr(010) & "Fax: " & v_userfax if v_contactrequested = "ContactRequested" then v_contactrequested = "Contact Requested" v_body = v_body & chr(010) & v_contactrequested end if v_body = v_body & chr(010) & "MessageType: " & v_messagetype v_body = v_body & chr(010) & "Other: " & v_subjectother v_body = v_body & chr(010) & "Comments: " & v_comments sEmailAddr = Request.Form("UserEmail") 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 Dim oMail 'On Error Resume Next Set oMail = Server.CreateObject("CDONTS.NewMail") With oMail .From = sEmailAddr .To = "scott@monroevillage.com" .Subject = v_messagetype .Body = v_body .Send End With Set oMail = Nothing If Err.number <> 0 Then sMsg = Err.Description Err.Clear End If %>