Sotere ikke efter det største !

Det forstår jeg slet ikke:
"den syntes at 3 er det højeste tal intil den kommer til post 17 hvor den syntes at 17 er det højeste tal"

Har du en loop eller noget?

Det sidder i et loop ja...

Kan vi ikke få hele koden at se så? Det gør det lidt nemmere.

Håber dette kan hjælpe....:


<%

SQL = "DELETE * FROM nytabel2006_statastik_buffer"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn,1, 2

For y = 1 to 6
          NrRowPs=NrRowPs+1
    For x = 1 to 7
      intLoopDay = intLoopDay + 1
      If intLoopDay >= intFirstDay Then
        dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
        If Month(dtmCurDate) = Month(dtmFirstDate) Then

SQL = "SELECT count(*) as log_post_unik FROM nytabel2006_statastik_log_unikke WHERE Format(dato, 'dd-mm-yyyy')=#"& dtmCurDate &"#"
Set rs_dagens = Server.CreateObject("ADODB.Recordset")
rs_dagens.Open SQL, Conn,1, 2
log_post_unik = rs_dagens("log_post_unik")
dato_dd = dtmCurDate

rs_dagens.Close  'ny linie
Set rs_dagens = nothing  'ny linie

SQL = "SELECT * FROM nytabel2006_statastik_buffer"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn,1, 2
rs.addnew
rs("dato") = dato_dd
rs("count") = log_post_unik
rs.Update

SQL = "SELECT top 1 * FROM nytabel2006_statastik_buffer ORDER BY [count] desc"
Set rs_hoejs = Server.CreateObject("ADODB.Recordset")
rs_hoejs.Open SQL, Conn,1, 2

log_ant = rs_hoejs("count")

rs_hoejs.Close  'ny linie
Set rs_hoejs = nothing  'ny linie


if log_ant = "0" then
log_post_unik_max_procent = "10"
else
log_post_unik_max_procent = ((int(log_post_unik)/int(log_ant))*100)+10
end if

          If dtmCurDate = dtmToday Then
                Response.Write "<td height=100% valign=bottom onmouseover=doText('"&Day(dtmCurDate)&"besked','"&log_post_unik&"') onmouseout=doText('"&Day(dtmCurDate)&"besked','')>"
                Response.Write "<table cellspacing=0 cellpadding=0 border=0>"
                Response.Write "<tr>"
                Response.Write "<td height=6>"&log_ant&"<img src="&site_url&"/img/sta_top.gif border=0><br></td>"
                Response.Write "</tr>"
                Response.Write "<tr>"
                Response.Write "<td height="&Round(log_post_unik_max_procent)&" align=center valign=bottom class=felt_stat1 style=background-image:URL("&site_url&"/img/sta_center.gif);><div id="&Day(dtmCurDate)&"besked class=felt_stat style=text-align:center;></div></td>"
                Response.Write "</tr>"
                Response.Write "<tr>"
                Response.Write "<td height=14 align=center valign=bottom class=felt_stat style=padding-bottom:2px;color:#871F1F;>" & Day(dtmCurDate) & "</td>"
                Response.Write "</tr>"
                Response.Write "</table>"
                Response.Write "</td>"
                Response.Write "<td><img src="&site_url&"/img/pix.gif border=0 height=1 width=3><br></td>"
          Else
                Response.Write "<td height=100% valign=bottom onmouseover=doText('"&Day(dtmCurDate)&"besked','"&log_post_unik&"') onmouseout=doText('"&Day(dtmCurDate)&"besked','')>"
                Response.Write "<table cellspacing=0 cellpadding=0 border=0>"
                Response.Write "<tr>"
                Response.Write "<td height=6>"&log_ant&"<img src="&site_url&"/img/sta_top.gif border=0><br></td>"
                Response.Write "</tr>"
                Response.Write "<tr>"
                Response.Write "<td height="&Round(log_post_unik_max_procent)&" align=center valign=bottom class=felt_stat1 style=background-image:URL("&site_url&"/img/sta_center.gif);><div id="&Day(dtmCurDate)&"besked class=felt_stat style=text-align:center;></div></td>"
                Response.Write "</tr>"
                Response.Write "</tr>"
                Response.Write "<tr>"
                Response.Write "<td height=14 align=center valign=bottom class=felt_stat style=padding-bottom:2px;>" & Day(dtmCurDate) & "</td>"
                Response.Write "</tr>"
                Response.Write "</table>"
                Response.Write "<td><img src="&site_url&"/img/pix.gif border=0 height=1 width=3><br></td>"
          End If
        Else
          blnLast = True
        End If
      Else
        blnLast = True
      End if
    Next
Next
%>

SQL = "SELECT top 1 * FROM nytabel2006_statastik_buffer ORDER BY int(count) desc"

Hjælper deT?

Nej det gør det ikke...!

lukker