Link ad una Sub

[mosquito70]

Ciao a tutti,
scusate per il titolo un pò criptico, ma non sapevo come scriverlo.
Spero inoltre di non scrivere stupidaggini, relative a questa mia richiesta.

Vorrei collegare al click su un link, che rappresenta il nome di un file, il download forzato, che ho trovato su questo forum.

Inserisco il seguente codice in testa alla pagina .asp

   Private Sub DownloadFile(file)

     Dim strAbsFile
     Dim strFileExtension
     Dim objFSO
     Dim objFile
     Dim objStream

     strAbsFile = Server.MapPath(file)

     Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

     If objFSO.FileExists(strAbsFile) Then
       Set objFile = objFSO.GetFile(strAbsFile)

         Response.Clear
         Response.AddHeader "Content-Disposition", "attachment; filename=" & objFile.Name
         Response.AddHeader "Content-Length", objFile.Size
         Response.ContentType = "application/octet-stream"
         Set objStream = Server.CreateObject("ADODB.Stream")
           objStream.Open

           objStream.Type = 1
           Response.CharSet = "UTF-8"

           objStream.LoadFromFile(strAbsFile)

           Response.BinaryWrite(objStream.Read)
           objStream.Close
         Set objStream = Nothing
       Set objFile = Nothing
     End If
     Set objFSO = Nothing
   End Sub 

e nel che costruisco vorrei scrivere un qualcosa del genere

<%=rsprincifile("nume_avvi")%>

Ma mi restituisce errore in fase di compilazione.

Immagino che ho scritto qualcosa di veramente osceno, ma non riesco a capire come e se è possibile fare un qualcosa del genere.

E' possibile che l'unica soluzione sia quella di creare una pagina asp "esterna" (downforzato.asp) che contiene il codice che vi ho postato e a cui passo il nome del file?


Ciao