ASPemail

Eu estou usando o seguinte codigo-fonte pra enviar email

<%Set Mail = Server.CreateObject("Persits.MailSender")
nome = request.form("nome")
email = request.form("email")
telefone = request.form("telefone")
mensagem = request.form("mensagem")
assunto = request.Form("assunto")
Mail.IsHTML = True
Mail.Host = "smtp.biroskabar.com.br"
vemail = "hiago_hubert@hotmail.com"
vnome = "Biroska"'E-mail do remetente
Mail.From = email 'Remetente
Mail.FromName = nome
Mail.AddAddress vemail, vnome'Assunto da mensagem
Mail.Subject = "Contato biroska bar -" & assunto 'Corpo da mensagem

strtexto = nome & "<br>"
strtexto = strtexto & email & "<br>"
strtexto = strtexto & telefone & "<br>"
strtexto = strtexto & mensagem & "<br>"

Mail.Body = strtexto
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If%>