Funzione e calcolo spese

[dreaman74]

Ponendo una funzione salvata in un file ".inc" la richiamo in una pagina .asp con include :

Sub spesepostali
	provincia = ",CA,NU,OR,SS,"
	spedizione = destinazioneprovincia
	
	'response.write spedizione & "
"
	'response.write provincia & "
"
	'response.write Instr(provincia,spedizione) & "
"
	
	IF Instr(provincia,spedizione) > 0 THEN
	SpeseCorriere = 22
	response.write SpeseCorriere
	ELSE
	SpeseCorriere = 12
	response.write SpeseCorriere
	END IF
End Sub

Se scrivo:

<%
spesepostali
%>

Tutto OK

Ma se faccio

iva = (imponibile + spesepostali) * 0.2
response.write iva

Mi dice "tipo non corrispondente: 'spesepostali' "
Ho provato ad assegnare ad una variabile la funzione 'spesepostali':
corriere = spesepostali
oppure
corriere = cInt(spesepostali)

Ma sempre lo stesso errore!
qualche consiglio, grazie

[Roby_72]

spesepostali non è un numero ma una procedura.

Roby

[dreaman74]

Quindi sono costretto a recuperare i valori delle spese di spedizione, IVA ecc.. all'interno della procedure e dopo stamparli.
I valori recuperati all'interno della procedura non possono essere manipolati al di fuori di essa?

Ma solo stampati a video?

Giusto?

[Roby_72]

Certo che li puoi manipolare... Sono valori contenuti in una variabile.
Se puoi usare la variabile puoi manipolarne il contenuto.

Roby

[dreaman74]

Sub spesepostali
	provincia = ",CA,NU,OR,SS,"
	spedizione = destinazioneprovincia
	
	'response.write spedizione & "
"
	'response.write provincia & "
"
	'response.write Instr(provincia,spedizione) & "
"
	
	IF Instr(provincia,spedizione) > 0 THEN
	SpeseCorriere = 22
	'response.write SpeseCorriere
	ELSE
	SpeseCorriere = 12
	'response.write SpeseCorriere
	END IF
End Sub

perchè non me le manipola?

[Roby_72]

Dichiara le variabili fuori dalla sub altrimenti gliele devi passare come parametri.

Roby

[dreaman74]

Allora procedo così:

1. Creo l'oggetto recordset
2.Prelevo i dati e processo il record provincia aasegnando il costo di spedizione alla
variabile SpeseCorriere.
3. Chiudo il recordset
4. al Moento del calcolo del totale faccio:
response.write SpeseCorriere
Ma non stampa nulla!

Come mai?


Sub spesepostali
provincia = ",CA,NU,OR,SS,"
spedizione = destinazioneprovincia

'response.write spedizione & "
"
'response.write provincia & "
"
'response.write Instr(provincia,spedizione) & "
"

IF Instr(provincia,spedizione) > 0 THEN
SpeseCorriere = 22
ELSE
SpeseCorriere = 12
END IF
End Sub

[Roby_72]

Non hai dichiarato le variabili.

Roby

[dreaman74]

Ah! Lo so che è sempre meglio dichiarare le variabili da usare per ottimizzare l'uso della memoria, lo riconosco, molte volte anzi non lo faccio quasi mai!!!

Come mai? Con la Funzione bisogna dichiarare la variabile contenuta all'interno della funzione?

[dreaman74]

OK. OK. Prometto di farlo in futuro! E' la prima volta che ho problemi di questo tipo.
Ah la teoria, avevo letto che è sempre preferibile dichiararle... non lo faccio mai!