aiuto codice

[giannipie]

Ho creato un database e devo creare uno script che letteralmente deve eseguire questo: nella prima colonna del database, se la stringa contenuta nel record successivo è uguale a quello precedente deve eseguirmi un certo output. Sono un po a corto di conoscenze di VBscript, chi mi può dare un aiuto?

[99eros9]

Dovresti spiegarti con un po' di codice e non rimanere sul generico.

[giannipie]

ok, più tardi ti invio quel poco che ho creato, cercandoti di farti capire meglio il mio problema...

[giannipie]

...a proposito, riguarda un po' sempre quel problema che ancora non risolvo del tutto, ti devo far capire meglio come ho impostato il database per non farmi visualizzare nell'output gli stessi dati...

[giannipie]

questo è nel dettaglio cio che sto facendo o cercando di fare (un po lungo ma spero che ti faccia capire il mio problema):

strsql = "select * from tabellone where clienti like '%' order by clienti "

' eseguo la scanione dee record del database

do while not objrs.eof
response.write "cliente " & objrs("clienti") & "
"
response.write "codice cliente " & objrs("codice cliente") & "
"
response.write "altro " & objrs("altro") & "
" & "
"
objrs.movenext
loop

' nella scansione del record successivo della colonna "clienti" potrebbe verificarsi un record che ha lo stesso cliente del record precedente; se cio accadesse deve omettere di visualizzare quello che sta nel ciclo sopra, altrimenti mi andrebbe a ripetere il tutto, ma mi deve aggiungere solo questa riga che contiene record di altre colonne, che sono dati appartenenti sempre allo stesso cliente.

response.Write objrs("parametro 1") & " - " & objrs("parametro 2") & " - " & objrs("parametro 3") & "
" & "
"

il database che ho creato è formato da 2 tabelle messe in relazione tra loro, poi ho creato una query (tabellone) che contiene solo le colonne che mi servono. Ho pensato a creare il database anche in modo diverso, ma non ho potuto fare una colonna per ogni parametro perchè è un dato che un cliente ne ha 1, altri anche 10 o più, quindi mi è sembrato più semplice fare così, racchiudendo tutto in una colonna con la conseguenza di avere più record per lo stesso cliente nella query, ora trovo difficoltà nel creare il codice appropriato, ovvero che faccia cio che dico io...

[99eros9]

Dim strTemp
do while not objrs.eof 
If strTemp <> objrs("clienti") Then
response.write "cliente " & objrs("clienti") & "
" 
strTemp = objrs("clienti")
response.write "codice cliente " & objrs("codice cliente") & "
" 
response.write "altro " & objrs("altro") & "
" & "
" 
End If
objrs.movenext 
loop

[giannipie]

Ho ancora un piccolo problema:
ho impostato il codice così:

Dim strTemp
do while not objrs.eof
If strTemp <> objrs("clienti") Then
response.write "cliente " & objrs("clienti") & "
"
response.write "codice cliente " & objrs("codice cliente") & "
"
response.write "altro " & objrs("altro") & "
" & "
"

strTemp = objrs("clienti")
response.Write objrs("parametro 1") & " - " & objrs("parametro 2") & " - " & objrs("parametro 3") & "
" & "
"

End If
objrs.movenext
loop

ho inserito la riga...
response.Write objrs("parametro 1") & " - " & objrs("parametro 2") & " - " & objrs("parametro 3") & "
" & "
"

...in quella posizione in quanto è questa che mi dà problemi, perché nel mio database si ripete più volte insieme agli altri record nella 1° fase del ciclo. Solo che mi si visualizza così:

cliente aaaa
codice cliente 1
altro ........
parametro 1

Il mio problema è che anche se ci sono più parametri, mi visualizza solo il primo. Cio che vorrei visualizzare è questo:

cliente aaaa
codice cliente 1
altro ........
parametro 1
parametro 2
parametro 3

cliente bbbb
codice cliente 2
altro ........
parametro 1
parametro 2

...praticamente visualizzare tutti i parametri là dove ci sono nel database.
Grazie già per l'imput che mi hai dato...

[deivnet]

In questo caso devi farti un doppo recordset... un che legga i dati del cliente ed un secondo recordset che quando trova due clienti uguali (con lo stesso codice) vada a leggere tutti i parametri per quel cliente.

[giannipie]

sto tentando di creare questo doppio recordset, ma mi dice ce odbc non supporta le proprietà richieste.
Se ho capito bene dovrei creare 2 variabili per il recordset, ma anche 2 istruzioni sql e 2 cicli do whilw not...loop? io ho fatto così, ma con l'errore sopra citato...
Mi puoi dare un imput o un link dove studiarmelo un po e risolvere questo problema che mi affligge da giorni?? grazie.

[deivnet]

Ti dò una idea ...
Tu devi fare due cicli, uno esterno e uno interno ...

sql = "SELECT DATI FROM CLIENTI"
ORS1.Open sql
'ESTERNO
do while not ORS1.EOF
  'TUE ISTRUZIONI

  'INTERNO che viene utilizzato solo se si trova lo stesso cliente
  if tmpCliente = ORS1("CLIENTE") then
   sql2 = "SELECT DATI FROM CLIENTI_PARAMETRI WHERE CLIENTE = " &ORS1("CLIENTE")
   ORS2.Open sql2
   do while not ORS2.EOF
     'Qui scrivi i dati dei parametri   
 
     ORS2.MoveNext
   loop
  end if
  ORS1.MoveNext
loop

ORS1 fa riferimento alla SQL che estrae l'elenco totale dei clienti
ORS2 fa riferimento alla lista dei parametri per un cliente duplicato

Spero di averti dato una idea