ASP - Problemas con FaxServer

Estoy intentando mandar faxes desde asp con el componente FaxServer que proporciona Microsoft y me está dando muchos problemas. Tengo este código:

<%
Set Fax=Server.CreateObject("FaxServer.FaxServer")
Fax.Connect("\\Alfonso")

on error Resume next

fitxer=server.mappath("prueba.txt")

Set FaxDoc=Fax.CreateDocument(fitxer)

FaxDoc.FileName = server.MapPath("prueba.txt")
FaxDoc.FaxNumber="666666666"
FaxDoc.Send

If err.number<>0 then
Response.Write ("Error: " & err.number & " " & err.Description)
else
Response.Write ("ID=" & ID)
End if

Fax.Disconnect

%>

Pero falla al ejecutar la instrucción "FaxDoc.Send". ¿Alguién sabe la solución?