Funzione o classe?

[Freedom]

Ciao a tutti e Buon natale!!

Ho bisogno di un vostro aiuto!

Dunque, vediamo se riesco a spiegarmi...
Da una query, devo estrarre dei risultati. Questi risultati, non mi servono 'tutti subito'. La quesry sarebbe questa:

Function Mostra(IdUtente)
	Dim ObjRS, StrSQL

		Set ObjRS = Server.CreateObject("ADODB.Recordset") 
		StrSQL ="SELECT * FROM Users WHERE IdUtente = "& IdUtente
		ObjRS.Open StrSQL, ObjConn, adOpenStatic, adLockReadOnly, adCmdText
			If Not ObjRS.EOF Then 
                           'qui dovrei estrarre un campo diverso per ogni richiesta
			End If
		ObjRS.Close
		Set ObjRS = Nothing
End Function

--> La tabella Users è così composta: IdUtente|Nazione|Prov|Citta

Per farvi un esempio, passando sempre 'IdUtente', a volte vorrei trovare Nazione, altre Prov,....

Come posso fare? Ho pensato tramite una classe, ma non sono pratico di 'oggetti'. Mi potete aiutare?

[weppos]

Mantenendo una funzione puoi aggiungere un parametro che indichi il tipo di campo che vuoi ottenere.

Nella funzione crei una select case o dei costrutti if per elaborare il campo richiesto in base al parametro passato.

[Freedom]

Originariamente inviato da Freedom

Function Mostra(IdUtente, Stampa)
	Dim ObjRS, StrSQL

		Set ObjRS = Server.CreateObject("ADODB.Recordset") 
		StrSQL ="SELECT * FROM Users WHERE IdUtente = "& IdUtente
		ObjRS.Open StrSQL, ObjConn, adOpenStatic, adLockReadOnly, adCmdText
			If Not ObjRS.EOF Then 
                           Select Case Stampa
				Case "NomeUtente"
				  Mostra = ObjRS("NomeUtente")
				Case "Citta"
				  Mostra = ObjRS("Citta")
				Case "Prov"
				  Mostra = ObjRS("Prov")
				Case "Nazione"
				  Mostra = ObjRS("Nazione")
			  End Select
                       End If
		ObjRS.Close
		Set ObjRS = Nothing
End Function

E dovrei richiamare così:
per sapere la nazione: Mostra(IdUtente, "NomeUtente");
per sapere la Prov: Mostra(IdUtente, "Prov"); ....

Così non mi funge. Non mi da nessun errore ma il campo rimane vuoto.