200 point nu, og jeg håber jeg får hjælp !

Prøv at smæk et Loop ind et eller andet sted.. prøv dig frem

<%
    dim mode, albumid, ringetoneid, land
    strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"test.mdb\")
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open strDSN

%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<%
    strSQL = \"SELECT * From album Where land = \" & session(\"lid\") & \" ORDER by id desc\"
    Set rs = myConn.Execute(strSQL)   


%>
    <table border=\"0\" width=500>
<%
    Do while NOT rs.EOF
        ColNum = 1
        Do while ColNum < 3
%>   

               
    <TD ALIGN=LEFT VALIGN=top WIDTH=\"250\" height=\"19\"><font face=\"Verdana\" size=3><b><a href=\"album.asp?land=<%= rs(\"land\") %>&lid=<%= rs(\"id\")%>\"><%=rs(\"land\")%>
      </a></b></font>
<%
            ID = rs(\"id\")
            response.write rs(\"id\")
            response.end
           
            sqlcount = \"SELECT * FROM land where id=\" & rs(\"id\") & \"\"
            Set RScounts = Conn.Execute(sqlcount)
           
            rcounts = RScounts(0)
            Response.Write (\"(\" & rcounts & \")\")
            Response.Write \"<br>\"
            subsql = \"SELECT  top 3 * FROM albumnavn where landID=\'\" & ID & \"\' order by albumnavn\"
           
              set rsalbumnavn = conn.Execute(subsql)
            count = rsalbumnavn.RecordCount
            count = 1
              do while not rsalbumnavn.EOF and count<=3           
%>
      <font face=\"Verdana\" size=1><a href=\"melodi.asp?album=<%= rs(\"albumnavn\") %>&aid=<%= rs(\"id\") %>\"><%=rsalbumnavn(\"albumnavn\")%></a></font>
<%
                rsalbum.movenext
            loop
%>
    </TD>
           
<%
            if NOT rs.EOF then
                rs.MoveNext
            end if
            ColNum = ColNum + 1
            if NOT rs.EOF then
%>
    <TD ALIGN=LEFT VALIGN=top WIDTH=\"250\" height=\"19\"><font face=\"Verdana\" size=3><b><a href=\"album.asp?land=<%= rs(\"land\") %>&lid=<%= rs(\"id\")%>\"><%=rs(\"land\")%>
      </a></b></font>
<%
                ID = rs(\"id\")
           
                sqlcount = \"SELECT * FROM land where id=\" & rs(\"id\") & \"\"
                Set RScounts = Conn.Execute(sqlcount)

                rcounts = RScounts(0)
                Response.Write (\"(\" & rcounts & \")\")
                Response.Write \"<br>\"
                subsql = \"SELECT  top 3 * FROM albumnavn where landID=\'\" & ID & \"\' order by albumnavn\"
               
                  set rsalbumnavn = conn.Execute(subsql)
                count = rsalbumnavn.RecordCount
                count = 1
                  do while not rsalbumnavn.EOF and count<=3           
%>
      <font face=\"Verdana\" size=1><a href=\"melodi.asp?album=<%= rs(\"albumnavn\") %>&aid=<%= rs(\"id\") %>\"><%=rsalbumnavn(\"albumnavn\")%></a></font>
<%
                    rsalbumnavn.movenext
                loop
%>
    </TD>
<%
            end if
            ColNum = ColNum + 1
        Loop
%>
    </TR>
<%
        if NOT rs.EOF then 
            rs.MoveNext 
        end if
    Loop
%>
    </TABLE>
<%
rs.close
Conn.Close
set Conn = nothing
%>

</body>
</html>


du havde en do for meget (eller et loop for lidt) - afhænger af hvad du vil...


/nuno

zeth > hvor ?? jeg giver dig 200 point for at fortælle mig hvordan jeg skal lave det ??

prøv at fortælle mig Hvor ?

du skal sette inn en \'Loop\' før:

rs.close
Conn.Close
set Conn = nothing

/nute

den virker...

men den viser kun 1 ting som ligger i databasen, den viser ik alt...

http://www.web-zone.dk/mazika/asd.asp

Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression \'land =\'.

/mazika/asd.asp, line 17

Nu virker den ik...hvad fanden sker der ???

Microsoft VBScript runtime error \'800a01a8\'

Object required: \'\'

/mazika/asd.asp, line 102

ved ikke om det har noget at sige, men prøv at sæt \'\' om \"& session(\"lid\") &\"

zeth > skal jeg sidde og lede efter session eller hvad ?

azero.dk er NOGET LORT !

hmm..hvorfor det?

Er jeg så prof ...at folk ik kan hjælpe mig eller hvad ??

okay> heh - så havde du vel selv ordnet det ;)

Well - problemet er i vid udstrækning, at det er svært at hjælpe, når man ikke kender din database. Man ved ikke hvilke kolonner du har i dine tabeller - og ud fra scriptet har jeg i hvert fald ikke lige gjort mig overvejelser om hvilke data det egentlig er du vil have du.

/nuno

have du = have ud

nuno >>

i min database har jeg 3 tabeller:

Land i den har jeg Id, Land, Info
Album i den har jeg Id, albumnavn, url, land
Ringetone i den har jeg mange oplysninger tror ik du kommer til at bruge.....

Det jeg vil ha at den viser....

Denmark (land)
blah (album)
blah (album)
blah (album)
blah (album)

Englandenmark (land)
blah (album)
blah (album)
blah (album)
blah (album)

italien (land)
blah (album)
blah (album)
blah (album)
blah (album)

osv...

.... i 3 kolonner...og det skal selvfølgelige hentes fra databasen !

nu håber jeg jeg har forklaret det der skal til...

jeg er faktisk mer interessert i å se din SQL ;-) Skriv ut din SQL istedenfor å eksekvere den, og post den sånn at vi får se den...

nute ? hvad mener du ?

hmmm....ved nærmere ettertanke. Du skriver at du får en feilmelding i linje 102. Hva ligger ii linje 102 ?

</TABLE>
   
    <% rs.close
    Conn.Close
linje 122    set Conn = nothing
    %>

</body>
</html>

og hva skjer hvis du fjerner denne linje ?

nute > kender du ik nogen andre måder at vise noget i databasen i 3 kolonner ?

nu kan siden ik findes....

den viser ik den fejl mere..

okay >> det er litt vanskelig å forstå hva du mener. I utgangspunktet stilte du spørsmål om hvorfor dette ikke fungerte, noe vi prøver å løse for deg. Og nå begynner du å spørre om hvordan man kan \"vise noget i databasen i 3 kolonner\". Dette kan gjøres på \"1000\" måter...det er vanskelig å vite nøyaktig hva du vil...

nute > det eneste jeg vil er, er at stille mine indlæg i 3 kolonner...\"færdig\"

http://www.web-zone.dk/test.htm

så ville jeg hentet alle records for ditt første land (danmark), legg alle disse records i en string fx:

tmpStr = \"\";
do while NOT RS.EOF
  tmpStr = tmpStr & RS(\"kolonne\")
  RS.MoveNext
loop

og deretter skrive ut denne stringen 3 ganger. Dette gjøres deretter for neste land (England).

hvad med gøre det for mig ?

har desverre ikke tid til det...

fordi jeg forstår intet af din måde !!

vel....så har vi et problem ;)

;o) > nybegynder..

.