How to avoind \"Foxweb time out\" error?

I am trying to let the web page send an email to the user.

When I ran this code, I ran into "Foxweb time out." error. Obviously, my mail server takes longer time to synchronize the connection. I hit the error, before the code runs through. There is no problem in the VFP code. It just takes some time to send the mail. How to avoid this? Anyway to run it at the back end and not let the user to wait. Thank you.

IF Request.FormCount("email") <> 0

Select User

locate all for UPPER(email) = UPPER(Request.Form("email"))
IF Found()%>

Your password will be sent to you in a few minutes.

cPWD=allt(Password)

      oOutlook = CreateObject('Outlook.Application')
      oMail = oOutlook.CreateItem(0)
      WITH oMail
        .Subject = "Your password"
      .Body = "Your password: "+cPWD
       .To = "lh_zhang@yahoo.com"
   * .Attachments.Add("C:\data\test.txt")
   .Send
       ENDWITH

Else%>

This email is not found.

<%Endif%>