et felt rødt

Sandsynligvis, men du må fortælle noget mere..

hmmm hvad.

sådan ser conn ud

<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("xxxxxx.mdb")
    Set rs = Conn.Execute("Select * From status Order By betalt_til")
   
    While Not rs.EOF
%>

og sådan ser response ud

<%Response.Write rs("betalt_til")%>

i morgen er tæt på i dag, men i går er lige så tæt på i dag...

Nu antager vi lige betalt_til er fremtid og alle dage efter i dag er lige meget...
datoStr = Year(date) & "-" & month(Date) & "-" & Day(date)
SQL = "SELECT * FROM statsus WHERE betalt_til >= #" & datoStr & "# ORDER BY betalt_til DESC"
set rs = Conn.execute (SQL)

if not rs.EOF then redDate = rs("betalt_til")
Response.write "<table>"
do while not rs.EOF
  Response.write "<tr>"
  Response.write "<td>"
  if redDate = rs("betalt_til") then
    Response.write "<font color=""red"">"
    Response.write rs("betalt_til")
    Response.write "</font>"
  else
    Response.write rs("betalt_til")
  end if
  Response.write "</td>"
  Response.write "</tr>"
  rs.movenext
loop
Response.write "</table>"

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/dbinfo1.asp, line 11

linie 11 = set rs = Conn.execute (SQL)

Der skal lige en

Set rs = Server.CreateObject("ADODB.recordset")

med i toppen sammen med  denne:
Set Conn = Server.CreateObject("ADODB.Connection")

har smidt det sådan som du har skrevet det.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
        datoStr = Year(date) & "-" & month(Date) & "-" & Day(date)
SQL = "SELECT * FROM status WHERE betalt_til >= #" & datoStr & "# ORDER BY betalt_til DESC"
Set rs = Server.CreateObject("ADODB.recordset")



if not rs.EOF then redDate = rs("betalt_til")
Response.write "<table>"
do while not rs.EOF
  Response.write "<tr>"
  Response.write "<td>"
  if redDate = rs("betalt_til") then
    Response.write "<font color=""red"">"
    Response.write rs("betalt_til")
    Response.write "</font>"
  else
    Response.write rs("betalt_til")
  end if
  Response.write "</td>"
  Response.write "</tr>"
  rs.movenext
loop
Response.write "</table>"
   
%>

Operation is not allowed when the object is closed.

/dbinfo1.asp, line 16

linie 16 = if not rs.EOF then redDate = rs("betalt_til")

der mangler denne:

set rs = Conn.execute (SQL)

--------

<%
Set Conn = Server.CreateObject("ADODB.Connection")
        datoStr = Year(date) & "-" & month(Date) & "-" & Day(date)
SQL = "SELECT * FROM status WHERE betalt_til >= #" & datoStr & "# ORDER BY betalt_til DESC"
Set rs = Server.CreateObject("ADODB.recordset")

set rs = Conn.execute (SQL)  '<----------------Her

if not rs.EOF then redDate = rs("betalt_til")

set rs = Conn.execute (SQL)  linie 13

ADODB.Connection error '800a0e78'

Operation is not allowed when the object is closed.

/dbinfo1.asp, line 13

du skal huske at åbne din connection til databasen...

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("xxxxxx.mdb")

det kan du gøre efter:  Set Conn = Server.CreateObject("ADODB.Connection")

http://www.micropage.dk/dbinfo1.asp

nu virker det næsten ;)

der står bare ikke noget

Så det fordi recordsetet er tomt. Findes der nogle records hvor betalt_til er > end idag???

hvis du vil havde datoer som er tæt på idag men ældre så skal du lave SQL om til det:

SQL = "SELECT * FROM statsus WHERE betalt_til <= #" & datoStr & "# ORDER BY betalt_til DESC"

Jeg er nåd til at løbe nu og er måske tilbage senere i aften du må prøve at ligge forskellige datoer i din db som er størrer og mindre end i dag og så lege lidt med...

http://www.micropage.dk/dbinfo1.asp

nu er der en der bliver rød..........men det er ikke den der er tættest på idag..........det er bare den første

Hvordan ser din SQL ud?? og hvilken type er betalt_til kolonnen?

betalt_til er nu en dato klokkeslet............det var før et notat........men der virkede det slet ikke

min sql hmmmm 2 sekk

her er hele koden.


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

<body bgcolor="#FFFFFF" text="#000000">
&nbsp;


<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("kunder.mdb")
        datoStr = Year(date) & "-" & month(Date) & "-" & Day(date)
SQL = "SELECT * FROM status WHERE betalt_til >= #" & datoStr & "# ORDER BY betalt_til DESC"

Set rs = Server.CreateObject("ADODB.recordset")
set rs = Conn.execute (SQL) 

if not rs.EOF then redDate = rs("betalt_til")

do while not rs.EOF

 
%>

<table width="30%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><% if redDate = rs("betalt_til") then
    Response.write "<font color=""red"">"
Response.write rs("betalt_til")%></td>
    <td align="right">
      <%Response.Write rs("domain")%>
    </td>
  </tr>
</table>
   
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>   
<td><%  Response.write "</font>"
  else
    Response.write rs("betalt_til")%></td>
    <td align="right">
      <%Response.Write rs("domain")%>
    </td>
  </tr>
</table>
<% end if

  rs.movenext
loop
%>

   

</body>
</html>

Jeg har vist givet dig en lidt forkert SQL, når man bruger >= dato så skal de være ORDER BY dato uden DESC eller får man den som er længst væk :)...

Så denne :
SQL = "SELECT * FROM status WHERE betalt_til >= #" & datoStr & "# ORDER BY betalt_til DESC"

Rettes til:
SQL = "SELECT * FROM status WHERE betalt_til >= #" & datoStr & "# ORDER BY betalt_til"

med ORDER BY xxxx DESC starter den med den største først og så kommer de andre bagefter.. Med ASC eller uden noget sortere ORDER BY med den mindste ført...

sådan......så virker det........takker mange gange

du må lige give et svar eagle

Det gør jeg da gerne :)