34 messaggi dal 12 novembre 2006
Salve ringrazio in anticipo a tutti
ho due problemi:
1. scrivendo il codice sotto mi elenca così
ASIA
» Cina
»» Pechino
»»» Pechino (1)
EUROPE
» Italy
»» Campania
»»» Massa Lubrense (1)
»»» Positano (1)
»»» Sorrento (2)
»»» Catania (1)
»»» Florence (1)
EUROPE
» Spain
»» Barcelona
»»» Barcelona (1)
»»» Ibiza (1)

il problema è che scrive due volte europa invece Spain dovrebbe andare sotto in Europa insieme a Italy. Poi scrivo Toscana o Sicilia come regione e mi inserisce tutto in Campania

codice di connessione al database:

<%

' Crea la stringa SQL di conteggio
dim strSQL
dim rcdset

strSQL = "SELECT tblcontinente, tblnazione, tblregione, tblcitta, COUNT(tblcitta) AS ContaRecord, tblcitta FROM Tabella1 GROUP BY tblcontinente, tblnazione, tblregione, tblcitta"

' Definisci un recordset
Set rcdset = Server.createObject("ADODB.Recordset")

' Esegui la query
rcdset.Open strSQL, conn

%>

-----------------------------------------------------

Codice che crea elenco:
<%
dim tmp_continente
dim tmp_nazione
dim tmp_citta
dim tmp_regione

tmp_continente = ""
tmp_nazione = ""
tmp_citta = ""
tmp_regione = ""

do while not rcdset.eof
if trim(UCASE(rcdset("tblnazione"))) <> trim(UCASE(tmp_nazione)) then
response.write("<font face='verdana' size='1'><b>" & (UCASE(rcdset("tblcontinente"))) & "</b></font><BR>")
response.write("&raquo; " & rcdset("tblnazione") & "<BR>")
response.write("&raquo;&raquo; " & rcdset("tblregione") & "<BR>")
tmp_continente = rcdset("tblcontinente")
tmp_nazione = rcdset("tblnazione")
tmp_regione = rcdset ("tblregione")
tmp_citta = rcdset ("tblcitta")
end if
Response.Write("&raquo;&raquo;&raquo; " & "<a href='english/group.asp?group=" & rcdset("tblcitta") & "'>" &_
rcdset("tblcitta") & " (" & rcdset("ContaRecord") & ")</a>" & "<BR>")
rcdset.movenext
loop
%>
spero mi possiate aiutare....
Ciao
Lallo
19 messaggi dal 06 settembre 2002
Mi è sembrato di vedere solo una if di rottura e da quello che mi sembra di vedere ce ne vogliono almeno 3
If Continente <> tmpContinente then Call rompiContinente
If Nazione <> tmpNazione then Call rompiNazione
If Regione <> tmpNazione then Call rompiRegione
Response.Write Provincia
response.End ' o quello che sia

Sub rompiContinente()
tmpContinente = NewContinente
Response.Write tmpContinente
Call rompiNazione
End Sub
Sub rompiNazione()
tmpNazione = NewNazione
Response.Write tmpNazione
Call rompiRegione
End Sub
Sub rompiRegione()
tmpRegione = NewRegione
Response.Write tmpRegione
End Sub

Ogni rottura richiama tutte le successive a caduta

Spero che funzioni!!!

Leonardo

Il bello di un viaggio non è arrivare ma gustare il paesaggio lungo il percorso.

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.