I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2 3 4
rome
rome
il 6 gennaio 2005 alle 20:33
2.907 messaggi dal 15 maggio 2001
Contributi
Fallo durante l'iterazione sei risultati..

esempio :

Dim scrittore 

'qui il codice di connessione e le query

if Not (leggi.eof) then
'ciclo 
if (leggi("scrittore")<>scrittore) then
scrittore=leggi("scrittore")
Response.write("<BR>" & leggi("scrittore") & leggi("testo")&")
else
Response.write(leggi("testo")&",")
end if
'fine ciclo
end if


provalo così dovresti esserci...
RispondiQuoting
leloxml
leloxml
il 6 gennaio 2005 alle 21:48
417 messaggi dal 13 giugno 2001
www.basketcoach.it
E' un problema così!
Non riesco a posizionare, impaginare i titoli dove voglio (in una tabella dentro un cella, ecc...).
Altri metodi?????
Faccio della mia ignoranza una virtù per stimolare il cervello con soluzioni alternative.
......LELO
RispondiQuoting
rome
rome
il 6 gennaio 2005 alle 22:12
2.907 messaggi dal 15 maggio 2001
Contributi
hai provato con quello che ti ho scritto ??
Fai una cosa...

creati una variabile chiamata per esempio tab al suo interno inserisci la struttura che vuoi che ti venga stampata... secondo me è più intuitivo a colpo d'occhio..

esempio :

tab = "<TABLE BORDER=0><TR>"
tab = tab & "<TD>Esempio</TD>"
tab = tab &"etc..."

poi nel punto che vuoi stampi il contenuto con un semplice

Response.write(tab)
RispondiQuoting
leloxml
leloxml
il 6 gennaio 2005 alle 22:33
417 messaggi dal 13 giugno 2001
www.basketcoach.it
Alla fine ho fatto in un altro modo proprio!
      Set RSTit = Server.CreateObject("ADODB.Recordset")
      MySqlTit="SELECT titolo FROM interviste WHERE codice_scrittore = '"& RS("codice_scrittore") &"' ORDER BY titolo "  
      RSTit.cursorlocation=3
      RSTit.Open (MySqlTit), RSConn, 3, 3
      response.write MySqlTit
        do while not RSTit.EOF
          response.write RSTit("titolo")
        RSTit.MoveNext  
        Loop
        RSTit.close
        set RSTit = nothing

dentro un do while not RS.EOF

Faccio prima!!!!
Faccio della mia ignoranza una virtù per stimolare il cervello con soluzioni alternative.
......LELO
RispondiQuoting
rome
rome
il 6 gennaio 2005 alle 22:41
2.907 messaggi dal 15 maggio 2001
Contributi
Mi sono perso qualcosa ??
Così non lo ordini come volevi tu :

Scrittore 1 (testo1,testo2,testo4)
Scrittore 2 (testo3,testo7,testo8)
Scrittore 3 (testo4,testo6,testo10)
Scrittore 4 (testo5,testo7,testo9)



do while not RSTit.EOF
if (RSTit("tuo_campo")<>scrittore) then
scrittore=RSTit("tuo_campo")
Response.write("<BR>" & RSTit("tuo_campo") & RSTit("tuo_campo")&")
else
Response.write(RSTit("tuo_campo")&",")
end if
Loop
RispondiQuoting
leloxml
leloxml
il 6 gennaio 2005 alle 23:06
417 messaggi dal 13 giugno 2001
www.basketcoach.it
Ho fatto l'esempio per fare capire che volgio raccogliere per ogni scrittore i testi!

Ho fatto:
<%
Dim RSConn
set RSConn= Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
RSConn.Open strConnect
MySql="SELECT * FROM collaboratori_articoli ORDER BY cognome"    
RS.cursorlocation=3
RS.Open (MySql), RSConn, 3, 3
...
do while not RS.EOF
   ...
   Set RSTit = Server.CreateObject("ADODB.Recordset")
   MySqlTit="SELECT id,titolo FROM interviste WHERE codice_scrittore = '"& RS("codice_scrittore") &"' ORDER BY titolo "  
   RSTit.cursorlocation=3
   RSTit.Open (MySqlTit), RSConn, 3, 3
   do while not RSTit.EOF%>
      ...
      RSTit("titolo") 
      ...
      RSTit.MoveNext  
   Loop
   RSTit.close
   set RSTit = nothing
   ...
   RS.MoveNext  
Loop
RS.close
set RS = nothing
RSConn.close
set RSConn = nothing

Modificato da leloxml il 06 gennaio 2005 23.10 -
Faccio della mia ignoranza una virtù per stimolare il cervello con soluzioni alternative.
......LELO
RispondiQuoting
rome
rome
il 6 gennaio 2005 alle 23:43
2.907 messaggi dal 15 maggio 2001
Contributi
non è un granchè come cosa il fatto di creare una connessione per ogni collaboratore... carichi troppo il sistema !
Facciamo un passo indietro... Giustamente raynor ti ha consigliato di spezzettare le info in 2 tabelle del db. Che è la soluzione migliore....
Adesso, usando la Inner join riesci ad ottenere tutti i risultati voluti ?? Ottieni però un miscuglio e vuoi odinarlo, giusto ??
RispondiQuoting
leloxml
leloxml
il 7 gennaio 2005 alle 00:38
417 messaggi dal 13 giugno 2001
www.basketcoach.it
Esattamente!
MA xkè dici che appesantisce???
D'altronde...nn riuscivo a fare diverso!

Ti faccio un domanda che nn c'entra con questo problema:
come posso estrarre il riultato di un select che non sia value, ma semplicemente la voce selezionata tra quello che compare nella lista menù!

Cioè vorrei assegnare ad una hidden la voce selezionata del menù list, ho pensato a qualcosa del tipo:
document.theform.cmbAutore.value = document.theform.hidcodice_scrittore.????;

ma ho provato diverse cose dopo il punto ma nulla mi funziona...cos'è????
Faccio della mia ignoranza una virtù per stimolare il cervello con soluzioni alternative.
......LELO
RispondiQuoting
1 2 3 4

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.