nel profilo dell'utente riesco a visualizzare i crediti che ha a disposizione, però non riesco a scaricare i crediti ogni discussione che l'utente inserisce!
ho fatto così:

Function ScalaCrediti(UserID)
dim strSQL,result
result = false
'FAI LA SELECT DENTRO LA TUA TABELLA, OVVIAMENTE SE QUALCOSA NON COINCIDE NELLA WHERE CAMBIALO
strSQL = "update aspbb_members set mcrediti = mcrediti - 1 where mid = " & UserID
set Rs = Conn.Execute(strSQL)
ScalaCrediti = result
End Function

poi richiamo la funzione:

objDAL.Execute "Update aspbb_members set mcrediti = mcrediti - 1 where mid = " & UserID

mid = campo contatore (id del cliente)
mcrediti = campo numerico
mi fa inserire la discussione percò non mi scala il credito!

dove sbaglio? come posso fare?
grazie