Domanda: Nella pagina chiamante scrivi response.write(codice1) perchè deve sempre scriverti il valore di codice1?
Comunque di base per far in modo che la funzione ti restituisca un valore devi valorizzare la funzione stessa, ad esempio
codice:
Function miafunzione(codice)
dim codice1, codice2
select case codice
case "aa"
codice1="aaa"
codice2="bbb"
case "smdmnd"
codice1="ccc"
codice2="ddd"
end select
miafunzione = codice1
End Function
Pagina Chiamante:
codice:
...
dim codice, codice1, codice2
codice = "aa"
...
Response.Write miafunzione(codice)
Se tu però devi scrivere visualizzare sempre CODICE1 e CODICE2, potresti fare una SUB anzichè una function e fare la response write di questi valori direttamente nella Sub che richiami dalla pagina chiamante, così:
codice:
Sub miafunzione(codice)
dim codice1, codice2
select case codice
case "aa"
codice1="aaa"
codice2="bbb"
case "smdmnd"
codice1="ccc"
codice2="ddd"
end select
Response.Write Codice1 & "
" & Codice2
End Sub
Pagina Chiamante:
codice:
...
dim codice, codice1, codice2
codice = "aa"
...
Call miafunzione(codice)
Spero di esserti stata di aiuto