ASP FAX on WIN SERVER 2003

[pip19]

Ciao,
ho trovato questo codicillo che pare riesca a mandare fax via ASP su un win server 2003


http://forum.wininizio.it/index.php?showtopic=90199


mi potete aiutare a configurarlo??

la mia situazione è:

- win 2003 server con servizio fax attivo e funzionante


la pagina che fa il send del fax, la devo mettere sul server 2003 (quindi installarci anche IIS) oppure la metto nella macchina in cui gira già IIS????

inoltre, il codice sopra riportato, come dovrei metterlo all'interno di una pagina ASP??? perchè puiazzandolo cosi' com'è (adattando nome server ecc...) da molti problemi, soprattutto nelle stringhe iniziali

<%@ Page Language = "VB" Debug="True" aspcompat="true" %>
<%@ Import Namespace = "System.IO" %>
<script language="VB" runat="server">



grazie per l'aiuto!

[pip19]

helppp

[optime]

non ho capito...

[pip19]

cosa non hai capito???

[optime]

perché parli di due server

[pip19]

perchè in uno ci gira il nostro CRM quindi con IIS 6...

l'altro il servizio di fax (oltre che altra roba)

cmq ok, mi sembra di capire che fax + asp vanno in un unico server...

riusciresti ad aiutarmi con il codice che c'è nel link del primo post???

non so come adattarlo per eseguirlo...

[optime]

1. non ci sono solo io nel forum
2. inizia a sistemarlo, quando poi hai errori posta

[pip19]

questa è la mia pagina.asp

prima linea in errore

<%@ Page Language = "VB" Debug="True" aspcompat="true" %>
<%@ Import Namespace = "System.IO" %>
<script language="VB" runat="server">

    Sub invia(ByVal numero, ByVal file, ByVal rascl, ByVal utente)
        Dim FaxServer As Object
        Dim FaxDoc As Object

        FaxServer = Server.CreateObject("Faxserver.FaxServer")
        FaxServer.Connect("server")
        FaxDoc = FaxServer.CreateDocument(file)
        Dim FAXCL = ""
        Dim i
        For i = 1 To Len(numero)
            If Asc(Mid(numero, i, 1)) >= 48 And Asc(Mid(numero, i, 1)) <= 57 Then
                FAXCL = FAXCL & Mid(numero, i, 1)
            End If
        Next
        
        FaxDoc.FaxNumber = FAXCL '"0" & 
        FaxDoc.RecipientName = Right(rascl, 6) & "#" & file & "#" & utente
                
        'Response.Write("In attesa di spedizione a " & FAXCL & "...")
        
        Dim JobID
        On Error Resume Next
        JobID = FaxDoc.Send()

        If Err.Number <> 0 Then
            Response.Write("Impossibile inviare il fax (" & Err.Description & ")")
        Else
            Response.Write("Fax inviato con successo - JobID = " & JobID)
            Response.Write(" Cliente: " & Right(rascl, 6) & " Fax: " & FAXCL)
        End If

        FaxDoc = Nothing
        FaxServer.Disconnect()
        FaxServer = Nothing
    End Sub


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
          
            Dim numero
            Dim file
            Dim rascl
            Dim utente
            numero = Request.QueryString("numeroFax")
            file = Request.QueryString("file")
            rascl = Request.QueryString("rascl")
            utente = Request.QueryString("utente")
            If numero = "" Or file = "" Or rascl = "" Or utente = "" Then
                Response.Write("Dati mancanti")
            Else
                Call invia(numero, file, rascl, utente)
            End If
    End Sub
</script>

[optime]

le prime due righe non sembrano asp 3.0

[pip19]

lo so... infatti non so che pensare... ma questa persona con questo codice (che dice di essere ASP) ci fa girare i fax su win server 2003...