On Error Resume Next
Mail.Send
If Err <> 0 Then
msg = "Mesajınız Gönderilememiştir..<br>" & Err.Description
else
msg = "Tesekkürler Mesajınız Başarıyla İletildi..."
End If
End If

kalın yazdığım bölümleri

response.redirect "xxx.html"

olarak değiştirirseniz ilgili sayfaya yönlenir..