dato hvad går galt?

brug date()

Lige lidt mere kode tak... og hvad er det der skal udskrives.. hvordan skal det se ud...

Den udskriver stadigt arrangementet med datofra = 13-06-2002

<%="datofra = "& oRS("datofra") & " Date = " & Date %>
datofra = 13-06-2002 Date = 01-07-2002

er dette ikke nok?

sql = "SELECT * FROM aktiviteter WHERE datofra > #" & Date & "#"


tekst = tekst & "<p><b>" & oRS("datofra") & datotil & "</b><br><span class=rubrik>" & _
                                oRS("aktivitet") & "</span></p>"
                    if oRS("Sted")<> "" then
                        tekst = tekst & "<p><span class=mellem2>Sted</span><br>" & ors("Sted") & "</p>"
                    end if
                    if oRS("arrangør")<> "" then
                        tekst = tekst & "<p><span class=mellem2>Arrangør</span><br>" & ors("arrangør") & "</p>"
                    end if

Prøv med parentes efter now -> now()

Ellers prøv at udskifte now() med #01-07-2002# og hvis det virker, må det være måden datoen bliver gemt i DB'en der er noget i vejen med.

hvilken db bruger du?

Brug dato formatet yyyy-mm-dd det er skuller gerne virker:
SQL'en butter gerne rundt på dag og månede hvis day >12 laver den mm-dd-yy og ikke dd-mm-yy, derfor brug yyyy-mm-dd:

sql = "SELECT * FROM aktiviteter WHERE datofra > #" & Year(Date) & "-" & month(Date) & "-" & day(date) & "#"

takker

hum, serveren står helt af på dette???

sql = "SELECT * FROM aktiviteter order by datofra WHERE datofra > #" & Year(Date) & "-" & month(Date) & "-" & day(date) & "#"

kan man ikke order by på denne måde

(sorry jeg poster den her... men det hænger lissom sammen ;o))

du kan sige ORDER BY datofra:

sql = "SELECT * FROM aktiviteter order by datofra WHERE datofra > #" & Year(Date) & "-" & month(Date) & "-" & day(date) & "# ORDER BY datofra DESC"

derfor,,,, ;o)

hummm serveren går srtadigt død, jeg har ikke flere points:

Active Server Pages error 'ASP 0113'

Script timed out

/2002/indhold.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

Får du script time-out ved det?

yeps
det er fejlen ovenover.

hmm og det er kun når du har ORDER BY på ???
Hvad hvis du bruger ORDER BY ID" hor ID er navnet på dit autonummer felt..
Har du evt et  loop hvor du udskriver fra databasen og mangler rs.movenext??

her er hele den del af mit script:

'***********************************************************
    'AKTIVITETER
    '***********************************************************
    Case "moeder","konferencer", "aktiviteter"
       
        id = Request.QueryString ("id")
    'sql = "SELECT * FROM aktiviteter WHERE datofra > #" & Date & "#"
    sql = "SELECT * FROM aktiviteter order by datofra WHERE datofra > #" & Year(Date) & "-" & month(Date) & "-" & day(date) & "# ORDER BY datofra DESC"
        sti = "Aktiviteter"
       
               
        a = Request.QueryString ("a")
        if a <> "" then
        'Hvis vi skal vise en aktivitet
            sql = "SELECT * FROM aktiviteter WHERE id=" & a
            Set oRS = oConn.Execute (sql)
            tekst = tekst & "<p><a href=indhold.asp?id=" & id & ">Tilbage</a></p>"
            if not ors.eof then
                    datotil=""
                if oRS("datotil")<>"" then datotil=" - "&oRS("datotil")
                   
                    tekst = tekst & "<p><b>" & oRS("datofra") & datotil & "</b><br><span class=rubrik>" & _
                                oRS("aktivitet") & "</span></p>"
                    if oRS("Sted")<> "" then
                        tekst = tekst & "<p><span class=mellem2>Sted</span><br>" & ors("Sted") & "</p>"
                    end if
                    if oRS("arrangør")<> "" then
                        tekst = tekst & "<p><span class=mellem2>Arrangør</span><br>" & ors("arrangør") & "</p>"
                    end if
                   
                    p = oRS("kort_beskrivelse")
                    if p<> "" then
                        tekst = tekst & "<p>" & p & "</p>"
                    end if
                   
                    t = oRS("lang_beskrivelse")
                    if t <> "" then
                    tekst = tekst & "<p>" & t & "</p>"
                    end if
                                    ' Her tjekker vi om der er noget i checkboxene   
                CH1 = oRS("CH1")
                If Len(CH1) = 0 Then
                CH1 = "<input type=""hidden"" name=""ch1"" value="""">"   
                else
                CH1 = "<input name=CH1 type=checkbox value=""" & oRS("CH1") & """>&nbsp;<span class=small>"&oRS("CH1")&"</span><br>"
                end if
               
                CH2 = oRS("CH2")
                If Len(CH2) = 0 Then
                CH2 = "<input type=""hidden"" name=""ch2"" value="""">"
                else   
                CH2 = "<input name=CH2 type=checkbox value=""" & oRS("CH2") & """>&nbsp;<span class=small>"&oRS("CH2")&"</span><br>"
                end if
               
                CH3 = oRS("CH3")
                If Len(CH3) = 0 Then
                CH3 = "<input type=""hidden"" name=""ch3"" value="""">"
                else   
                CH3 = "<input name=CH3 type=checkbox value=""" & oRS("CH3") & """>&nbsp;<span class=small>"&oRS("CH3")&"</span><br>"
                end if
               
                CH4 = oRS("CH4")
                If Len(CH4) = 0 Then
                CH4 = "<input type=""hidden"" name=""ch4"" value="""">"
                else   
                CH4 = "<input name=CH4 type=checkbox value=""" & oRS("CH4") & """>&nbsp;<span class=small>"&oRS("CH4")&"</span><br>"
                end if

                CH5 = oRS("CH5")
                If Len(CH5) = 0 Then
                CH5 = "<input type=""hidden"" name=""ch5"" value="""">"
                else   
                CH5 = "<input name=CH5 type=checkbox value=""" & oRS("CH5") & """>&nbsp;<span class=small>"&oRS("CH5")&"</span><br>"
                end if
               
                CH6 = oRS("CH6")
                If Len(CH6) = 0 Then
                CH6 = "<input type=""hidden"" name=""ch6"" value="""">"
                else   
                CH6 = "<input name=CH6 type=checkbox value=""" & oRS("CH6") & """>&nbsp;<span class=small>"&oRS("CH6")&"</span><br>"
                end if   
               
                CH7 = oRS("CH7")
                If Len(CH7) = 0 Then
                CH7 = "<input type=""hidden"" name=""ch7"" value="""">"
                else   
                CH7 = "<input name=CH7 type=checkbox value=""" & oRS("CH7") & """>&nbsp;<span class=small>"&oRS("CH7")&"</span><br>"
                end if
               
                CH8 = oRS("CH8")
                If Len(CH8) = 0 Then
                CH8 = "<input type=""hidden"" name=""ch8"" value="""">"
                else   
                CH8 = "<input name=CH8 type=checkbox value=""" & oRS("CH8") & """>&nbsp;<span class=small>"&oRS("CH8")&"</span><br>"
                end if
               
                CH9 = oRS("CH9")
                If Len(CH9) = 0 Then
                CH9 = "<input type=""hidden"" name=""ch9"" value="""">"
                else   
                CH9 = "<input name=CH9 type=checkbox value=""" & oRS("CH9") & """>&nbsp;<span class=small>"&oRS("CH9")&"</span><br>"
                end if
               
                CH10 = oRS("CH10")
                If Len(CH10) = 0 Then
                CH10 = "<input type=""hidden"" name=""ch10"" value="""">"
                else   
                CH10 = "<input name=CH10 type=checkbox value=""" & oRS("CH10") & """>&nbsp;<span class=small>"&oRS("CH10")&"</span><br>"
                end if
                               
                    tekst = tekst & "<p class=mellem>Tilmelding til: <br>" & oRS("aktivitet") & "</p>" & _
                        vbCrLf & "<form action=tilmeld.asp method=post onSubmit=""MM_validateForm('Firma','','R','Aktivitet','','R','Navn','','R','Adresse','','R','Postnummer/By','','R','Email','','NisEmail','Telefonnummer','','RisNum');return document.MM_returnValue"">" & _
                        "<input name=Type type=hidden value=""Aktivitet"">" & _
                        "<input name=Type2 type=hidden value=""" & oRS("aktivitet") & """>" & _
                        "<input name=Aktivitet type=hidden value=""" & oRS("aktivitet") & """>" & _
                        "<input name=mødedato type=hidden value=""" & oRS("datofra") & """>" & _
                        "<P>Medlemsnummer <span class=small>[ blank hvis ikke medlem ]</span> <br><input name=Medlemsnummer type=text><br>" & _
                        "Navn<br><input name=Navn type=text><br>" & _
                        "Firma<br><input name=Firma type=text><br>" & _
                        "Adresse<br><input name=Adresse type=text><br>" & _
                        "Postnummer/By<br><input name=Postnummer/By type=text><br>" & _
                        "Email<br><input name=Email type=text><br>"
                                        tekst = tekst & "Telefonnummer<br><input name=Telefonnummer type=text><br></p>"
                        tekst = tekst  & CH1
                        tekst = tekst  & CH2 
                        tekst = tekst  & CH3
                        tekst = tekst  & CH4
                        tekst = tekst  & CH5
                        tekst = tekst  & CH6
                        tekst = tekst  & CH7
                        tekst = tekst  & CH8
                        tekst = tekst  & CH9
                        tekst = tekst  & CH10 & _
                    "<br><input value=""Send tilmelding"" type=submit></form>"
            end if
            call skab4 (sti, tekst)
        else
        'Hvis vi skal liste alle aktiviteter
            Set oRS = oConn.Execute (sql)

            if not ors.eof then
                do until ors.eof
                datotil=""
                if oRS("datotil")<>"" then datotil=" - "&oRS("datotil")
                    tekst = tekst & "<p><b>" & oRS("datofra") & _
                                datotil&"</b><br>" & _
                                "<a href='indhold.asp?id=" & id & "&a=" & oRS("id") & "'>" & _
                                oRS("aktivitet") & "</a></p>" '& _
                                '"datofra = "& oRS("datofra") & " Date = " & Date
                ors.movenext
                loop
            else
                tekst = "Ingen aktiviteter"
            end if
       
            call skab4 (sti, tekst)
        end if

Hvad ligger der i call skab4 (sti, tekst) ???

Jeg går ud fra det er denne kode som skal køre og den timer ud i?


        'Hvis vi skal liste alle aktiviteter
            Set oRS = oConn.Execute (sql)

            if not ors.eof then
                do until ors.eof
                datotil=""
                if oRS("datotil")<>"" then datotil=" - "&oRS("datotil")
                    tekst = tekst & "<p><b>" & oRS("datofra") & _
                                datotil&"</b><br>" & _
                                "<a href='indhold.asp?id=" & id & "&a=" & oRS("id") & "'>" & _
                                oRS("aktivitet") & "</a></p>" '& _
                                '"datofra = "& oRS("datofra") & " Date = " & Date
                ors.movenext
                loop
            else
                tekst = "Ingen aktiviteter"
            end if
       
            call skab4 (sti, tekst)

function skab4 (sti, tekst)
%> <table cellpadding="10" border=0> <tr> <td width="550"> <p class=sti><%= sti %></p></td></tr>
<tr> <td width="550" valign="top"><p><%= replace(tekst,vbCrLf,"<BR>") %></p></td></tr> </table><% end function

datofra er defineret som Dato og klokkes i databasen

Jeg så lige du har to ORDER BY i din SQL sætning:
sql = "SELECT * FROM aktiviteter order by datofra WHERE datofra > #" & Year(Date) & "-" & month(Date) & "-" & day(date) & "# ORDER BY datofra DESC"

ORDER BY skal så til sidst i SQL-øsætningen prøv lige denne:
sql = "SELECT * FROM aktiviteter WHERE datofra > #" & Year(Date) & "-" & month(Date) & "-" & day(date) & "# ORDER BY datofra DESC"

den er i vinkel nu, jeg takker 1000 gange den overså jeg...

Det var så lidt. Det var også først efter jeg havde fået noget at spise jeg så det :)