Hola
Prueba con esto
Código PHP:
SQL = "Select .......... "
Dim suma
registros=rs.getrows()
suma = UBound(registros,2)+1
' elimina valores duplicados
Dim iniValores()
Dim limValores()
Redim iniValores(suma)
For j=0 to UBound(registros,2)
iniValores(j) =registros(id,j)
Next 'j
redim preserva limValores(1)
limValores(0)=iniValores(0)
For x=0 to (UBound(iniValores)-1)
Dim resultado
resultado=0
For y=0 to (ubound(limValores)-1)
resultado=StrComp(iniValores(x),limValores(y),1)
if (resultado=0) then
exit for
end if
Next 'y
if(resultado<>0)then
redim preserva limValores(ubound(limValores)+1)
limValores(ubound(limValores)-1)=iniValores(x)
end if
Next 'x
SQL = "Select * from tabla where id_datos = "& CInt(limValores(z)) & " "
Suerte