When you submit this for it will send an email to what email address was in the forms Email field and it will put in the body of the email the name of the sender....
The problem is the email needs to come from a valid email address so you need to use a valid address in the form.
I suggest adding a field that asks the user to enter their Email Address name = "FromEmail"
You will run into problems if they enter An invalid email address so you may want to validate the fields first before sending...
From = Request.Form("FromEmail"

Email = Request.Form("EMailAddress"

Name = Request.Form("Name"
%> <%
Set mail = Server.CreateObject("Persits.Mailsender"
Mail.Host = "A valid domainname.com on your server"
strFrom = request.form("FromEmail"

stremail = request.form("EMailAddress"

strname = request.form("Name"
Mail.From = stremail
Mail.FromName = strname
Mail.AddAddress strFrom !if strFrom does not work try putting " either side of it.!
Mail.AddAddress "CC Address"
Mail.AddReplyTo "Your Address"
'Mail.AddAttachment "c:\any file"
strBodyHeader = "A heading" & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "This text will be a field name IE customer name : " & strname & chr(13) & chr(10)
strBody = strBodyHeader & strBody
Mail.Subject = "Msg Subject"
Mail.body = strBody
'Mail.Body = "" & Chr(13) & Chr(10) & "Thank you for your business."
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>