Select mysql IN

[slay]

allora direi che ho risolto in questo modo

tramite request.querystring ricevo i valori metto questi valori dentro un array e con un for creo una select in base alla grandezza dell'array:
esempio se request.querystring è uguale a 1,2,3 con il mio ciclo for crerò una select del genere:

or tipologia LIKE '%"&1&"%' or tipologia LIKE '%"&2&"%' or tipologia LIKE '%"&3&"%' 

per chi volesse ecco il codice +o- commentato .....

tipo_articolo2=request.querystring("tipoa")

dim ar1,elem,ar2,x,parteselect
                    
'funzione che mi mette il valore di tipo_articolo2 dentro un array
                    Function array_push(arr,vars)
                          ' Dimensiono le variabili interne alla funzione
                          Dim k, newelem, newarrsize
                          ' Verifico se arr è una array
                          If IsArray(arr) Then
                            ' Verifico che vars non sia vuoto
                            If Len(vars) > 0 Then
                                  ' Verifico se vars ospita una o più virgole e quindi
                                  ' se è uno solo o un elenco di elementi.
                                  ' Se è un solo elemento...
                                  If InStr(vars, ",") = False Then
                                    ' Incremento di uno il numero di elementi
                                    newarrsize = CInt(UBound(arr) + 1)
                                    ReDim Preserve arr(newarrsize)
                                    ' Aggiungo in coda il nuovo elemento
                                    arr(newarrsize) = vars
                                      ' Se vars è un elenco di elementi...
                                  Else
                                    ' Definisco un contatore interno con valore di partenza
                                    ' pari al numero di elementi dell'array originale + 1
                                    k = (UBound(arr) + 1)
                                    ' Creo una array con tutti i nuovi elementi da aggiungere
                                    newelem = Split(vars, ",")
                                    ' Incremento il numero di elementi per contenere quelli nuovi
                                    newarrsize = CInt(UBound(arr) + UBound(newelem) + 1)
                                    ReDim Preserve arr(newarrsize)
                                    ' Ciclo i nuovi elementi per aggiungerli all'array originale
                                    For Each elem In newelem
                                          arr(k) = Trim(elem)
                                          k = k + 1
                                    Next
                                  End If
                            End If
                            array_push = arr
                              ' Se arr non è una array la nostra funzione restituisce false
                          Else
                        array_push = False
                          End If
                    End Function

                    ' Creo l'array di partenza
                    ar1 = Array()
                    ' Ora aggiungo elementi.
                    ar2 = array_push(ar1,""&tipo_articolo2&"")
                    ' Verifico che l'aggiunta abbia funzionato...
                    For Each x in ar2
                        if parteselect="" then
                            parteselect="tipologia LIKE '%"&x&"%' "
                        else
                            parteselect=parteselect&"or tipologia LIKE '%"&x&"%' "
                        end if
                      'Response.Write x & "
"
                    Next
                    'response.write parteselect

Set b_rs_articoli = Server.CreateObject("ADODB.Recordset")
b_rs_articoli.Open "SELECT COUNT(id) AS temp FROM articoli where visualizza=1 and ("&parteselect&")", objConn, 1 

il codice sembra complesso ma basta fare un copia/incolla e modificarlo in base alle proprie esigenze ....

magari esiste un altro modo ..xrò in base alle mie misere conoscenze sono riuscito a fare questo ...