ho scritto questo codice per far si che a seconda della categoria e sottocategoria di una lista di articoli mi visualizzi i top 3,1...
solo che per
rs.Open "select TOP 3 ART_NAME
mi spara a video tutti i record! cosa ho sbagliato? :master:
codice:<% Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/MDB-DATABASE/DUARTICLE.mdb") Dim rs, ART_NAME, ART_ID, ART_TYPE, ART_DATED Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "select TOP 3 ART_NAME, ART_ID, ART_TYPE from ARTICLES WHERE ART_TYPE = 66 OR ART_SUBTYPE = 88 order by ART_DATED desc", conn IF not RS.EOF THEN response.write "<div>" response.write "<table border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"">" response.write "<tr>" response.write "<td bgcolor=""#FFD83C"">" response.write "<p style=""margin-top: 2px; margin-bottom: 2px"">" response.write "[img][/img]" response.write "NEWS IN EVIDENZA" response.write "</p>" response.write "</td>" response.write "</tr>" response.write "<tr>" response.write "<td width=""95%"" style=""border-left:1px solid #F8EA9C; border-right:1px solid #F8EA9C; border-bottom:1px solid #F8EA9C; background-image: url('images/sfumagold.gif'); background-repeat: repeat-x; background-position: left top; border-top-width:1px"">" response.write "<p style=""margin-left: 5px; margin-right: 5px; margin-top: 5px; margin-bottom: 2px"" align=""left"">" FOR i = 1 to 1000 IF NOT RS.EOF THEN ART_NAME=rs("ART_NAME") ART_ID=rs("ART_ID") ART_TYPE=rs("ART_TYPE") response.write "[img][/img]" & "" response.write "" & ART_NAME & " " RS.moveNext END IF NEXT END IF rs.close response.write "</p>" response.write "</td>" response.write "</tr>" response.write "</table>" response.write "</div>" response.write " " %> <% rs.Open "select TOP 3 ART_NAME, ART_ID, ART_TYPE from ARTICLES WHERE ART_TYPE = 67 OR ART_SUBTYPE = 89 order by ART_DATED desc", conn IF not RS.EOF THEN response.write "<div>" response.write "<table border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"">" response.write "<tr>" response.write "<td bgcolor=""#FFD83C"">" response.write "<p style=""margin-top: 2px; margin-bottom: 2px"">" response.write "[img][/img]" response.write "INIZIATIVE SINDACALI" response.write "</p>" response.write "</td>" response.write "</tr>" response.write "<tr>" response.write "<td width=""95%"" style=""border-left:1px solid #F8EA9C; border-right:1px solid #F8EA9C; border-bottom:1px solid #F8EA9C; background-image: url('images/sfumagold.gif'); background-repeat: repeat-x; background-position: left top; border-top-width:1px"">" response.write "<p style=""margin-left: 5px; margin-right: 5px; margin-top: 5px; margin-bottom: 2px"" align=""left"">" FOR i = 1 to 1000 IF NOT RS.EOF THEN ART_NAME=rs("ART_NAME") ART_ID=rs("ART_ID") ART_TYPE=rs("ART_TYPE") response.write "[img][/img]" & "" response.write "" & ART_NAME & " " RS.moveNext END IF NEXT END IF rs.close response.write "</p>" response.write "</td>" response.write "</tr>" response.write "</table>" response.write "</div>" response.write " " %> <% rs.Open "select TOP 1 ART_NAME, ART_ID, ART_TYPE from ARTICLES WHERE ART_TYPE = 64 OR ART_SUBTYPE = 85 order by ART_DATED desc", conn IF not RS.EOF THEN response.write "<div>" response.write "<table border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"">" response.write "<tr>" response.write "<td bgcolor=""#FFD83C"">" response.write "<p style=""margin-top: 2px; margin-bottom: 2px"">" response.write "[img][/img]" response.write "RASSEGNA STAMPA" response.write "</p>" response.write "</td>" response.write "</tr>" response.write "<tr>" response.write "<td width=""95%"" style=""border-left:1px solid #F8EA9C; border-right:1px solid #F8EA9C; border-bottom:1px solid #F8EA9C; background-image: url('images/sfumagold.gif'); background-repeat: repeat-x; background-position: left top; border-top-width:1px"">" response.write "<p style=""margin-left: 5px; margin-right: 5px; margin-top: 5px; margin-bottom: 2px"" align=""left"">" response.write "" response.write "<font face=""Verdana"" size=""1"" color=""#0C75B2"">" response.write "rassegna stampa aggiornata dalla nostra redazione" response.write "</font>" response.write "" FOR i = 1 to 1000 IF NOT RS.EOF THEN ART_NAME=rs("ART_NAME") ART_ID=rs("ART_ID") ART_TYPE=rs("ART_TYPE") response.write " " response.write "[img][/img]" & "" response.write "" & ART_NAME & " " RS.moveNext END IF NEXT END IF rs.close response.write "</p>" response.write "</td>" response.write "</tr>" response.write "</table>" response.write "</div>" %> <% rs.Open "select TOP 1 ART_NAME, ART_ID, ART_TYPE from ARTICLES WHERE ART_TYPE = 49 OR ART_SUBTYPE = 66 order by ART_DATED desc", conn IF not RS.EOF THEN response.write "<div>" response.write "<table border=""0"" id=""table3"" width=""100%"">" response.write "<tr>" response.write "<td bgcolor=""#E9E9D2"">" response.write "<p style=""margin-left: 5px; margin-top: 5px; margin-bottom: 5px"">" response.write "CONVEGNI E WORKSHOP" response.write "</p>" response.write "</td>" response.write "</tr>" response.write "<tr>" response.write "<td width=""95%"" style=""border-left:1px solid #E9E9D2; border-right:1px solid #E9E9D2; border-bottom:1px solid #E9E9D2; background-position: left top; background-color: #FFFFFF; background-image:url('images/sfumagray.gif'); background-repeat:repeat-x"">" response.write "<p style=""margin-left: 5px; margin-right: 5px; margin-top: 5px; margin-bottom: 2px"" align=""left"">" FOR i = 1 to 1000 IF NOT RS.EOF THEN ART_NAME=rs("ART_NAME") ART_ID=rs("ART_ID") ART_TYPE=rs("ART_TYPE") response.write "[img][/img]" & "" response.write "" & ART_NAME & " " RS.moveNext END IF NEXT END IF rs.close response.write "</p>" response.write "</td>" response.write "</tr>" response.write "</table>" response.write "</div>" set rs = nothing conn.close set conn = nothing %>
Rispondi quotando
NESSUNO?
