Errore in sub (Mismatch detected..)

[atreliu1]

Ciao,
Mi avvicino al mondo delle Sub..
Ne realizzo così una, per fare dei Replace sonsegutivi:

  testo=""
  For i=1 to Request.Form("box")
  Response.Write(i & testo )
  Response.Write(Trim(Request.Form(i&"_titolo"))) 
  testo=testo & sostituisci(Trim(Request.Form(i&"_titolo"))) 'Riga 182 
  testo=testo &"_"& sostituisci(Trim(Request.Form(i&"_desc1"))) 
  testo=testo &"_"& sostituisci(Trim(Request.Form(i&"_desc2"))) &"%"
  Next
  Sub sostituisci(stringa)'funzione per sostituire i caratteri che poi userò per creare campo
  stringa=Replace(stringa,"%","%")
  stringa=Replace(stringa,"_","_")
  Response.Write(stringa)
  End Sub

Quando vado a vedere l'output ottengo:

 1Prova_carattere
 Microsoft VBScript runtime error '800a000d'
 Type mismatch: 'sostituisci'
 /beta/adv/ordinatxt.asp, line 182

Praticamente mi da l'errore appena richiamo la funzione.
Però come si vede, il valore di 'stringa' cioè Trim(Request.Form(i&"_titolo")) esiste, ed è: "Prova_carattere"

Voi capite perchè ho questo errore??

Grazie

[santino83]

  Function sostituisci(stringa)'funzione per sostituire i caratteri che poi userò per creare campo
  stringa=Replace(stringa,"%","%")
  stringa=Replace(stringa,"_","_")
 sostiuisci=stringa
  End function

[atreliu1]

Grazie mille,
qualcosa mi dice che devo capire meglio la differenza tra sub e function...

Grazie ancora

Riky

[santino83]

se ti serve di processare qualcosa e poi utilizzare il risultato all'interno di altre variabili, usi la FUNCTION

se ti server di processare qualcosa e di non utilizzare il suo risultato, ad esempio Sub che settino i valori di variabili globali, sub che semplicemente stampano a video qualcosa etc., allora usi le SUB

[atreliu1]

Fantastico!

Grazie mille