Conti che non tornano

[Grinder]

Ho questo ciclo:

SQL = "SELECT * FROM campeggi"
Set rs = MM_camp3000_STRING.Execute(SQL)
arrRecord = rs.GetRows
For I = 0 to UBound(arrRecord,2)
CampLat = arrRecord(4,i)
CampLong = arrRecord(5,i)
nDistanze = distanza(Latconv(ns,g,m,s), Latconv(ns,g,m,s), CampLat, CampLong)
response.write nDistanze & "
"
Next
response.end

che mi da i risultati di una funzione per calcolare la distanza tra due coordinate gps, però c'è qualcosa che non quadra...fino a quando non era inserita nel ciclo, questa funzione mi dava zero se inserivo delle coordinate uguali a quelle presenti nel database (ovvio, la distanza è nulla), adesso che è nel ciclo mi vengono fuori dei risultati casuali! Com'è possibile?

[seafarer]

ciao "punisher" per <<risultati casuali>> intendi SEMPRE gli stessi risultati (e quindi l'errore sta o nel calcolo o nei dati) o sempre risultati DIVERSI (e quindi l'errore dovrebbe stare nel calcolo)?