Dato <>

din dato skal have det her format
20030424

d = ConvertToSqlDate(date())

Function ConvertToSqlDate(dato)
    dim SQLYear,SQLMonth,SQLDay
    SQLYear = Year(dato)
    SQLMonth = Month(dato)
    SQLDay = Day(dato)
    if SQLDay<10 then
        SQLDay = 0&SQLDay
    end if
    if SQLMonth<10 then
        SQLMonth = 0&SQLMonth
    end if
    ConvertToSqlDate = SQLYear&SQLMonth&SQLDay
End Function

i din sql sætning skriver du:
d = date()
... Where arktiv = 1 and date <=#" & d & "#" ...

dvs: ...and date < = date
Kan det passe? date er altid lige med date. Eller hvad hedder din kolonne i stedet for date? dato?

date som står i sql er fra databasen den hedder nu Fdate

hvornår den ikke virker? altså giver ikke rigtige resultat? den felt som hedder arktiv, dens datatype, er det en Ja/Nej? Og din database er det M$Access?
Tilføj på toppen af din side: <%session.LCID = 1030 %> den gør at du får en dansk formatering for valuta, tid osv.
også skal du tjekke din dato felt om den skriver det samme som du inserter ex:
dd-mm-yyyy bliver ikke til mm-dd-yyyy

Arktiv er datatype Tal og jeg har en <%session.LCID = 1030 %> i toppen af min side datoen er dd-mm-yyyy.

Med jeg har fundet ud af at hvis dag er 12 ellr under så virker den ikke men er den over virker den.

hvis dag er 12 "eller" under

Ja, prøv nedenstående funktion:

mindato = date()


Function f_format_iso_date( pstrDate )
        dim strDate
    dim strDay
    dim strMonth
    dim strYear
    dim strConvertedDate
       
    strDate        = FormatDateTime( pstrDate, vbShortDate )   
    strDay        = day( strDate )
    if len( strDay ) = 1 then
        strDay = "0" & strDay
    end if       
    strMonth    = month( strDate )
    if len( strMonth ) = 1 then
        strMonth = "0" & strMonth
    end if               
    strYear        = year( strDate )   
       
    strConvertedDate = strYear & "-" & strMonth & "-" & strDay
       
    f_format_iso_date = strConvertedDate
End Function

Lastdato = f_format_iso_date(mindato)

'Response.Write lastdato & "<br>"
'Response.Write date()
Set Conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.recordset")
Conn.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&server.Mappath("streetracers.dk.mdb"))
'strSQL = "insert into tagwall (navn, dato, temt, min) values ('hossein', #13-12-2003#, #13-12-2003#, 1)"
strSQL = "insert into tagwall (navn, dato, temt) values ('hossein', #13-12-2003#, #" & Lastdato & "#)"

' strSQL="SELECT * FROM tagwall where (dato < date()) and (temt > date())"
  rs.Open strSQL, conn, 1, 3

Har lavet nårt andet lukker dettet spørsmål!!!!!