visnig af SQL (asp)

SQLstmt7 = "SELECT * FROM aktiviteter WHERE dato2 > '" & date & "' ORDER BY dato2 ASC LIMIT 0, 12;"

Som den var før, bliver dit statement set fra databasen:

SELECT * FROM aktiviteter WHERE dato2 > '&date&' ORDER BY dato2 ASC LIMIT 0, 12;

Du får altså ikke værdien af date med ind :-)

ok..men den vil stadig væk ikke.. Den lille fede post som jeg har gjort ugyldig 2001-06-12 vises stadig... Kan du give mig et bud på hvorfor evt.? .-)

Argh.. Hvordan ændre jeg datoformatet på min mysql server til amerikansk?

Function ConvertDate(vdate,LngType)
Dim strMonth, strYear, strDay

    if len(vdate)> 0 then

        strDay = Day(vdate)
        if len(strDay)=1 Then strDay="0" & strDay
        strMonth = Month(vdate)
        if len(strmonth)=1 Then strmonth="0" & strmonth
        strYear = Year(vdate)

        select case LngType
            case "DK"
                ConvertDate = strDay & "-" & strMonth & "-" & strYear
            case else
                ConvertDate = strMonth & "-" & strDay & "-" & strYear
        end select   
    end if

End Function



SQLstmt7 = "SELECT * FROM aktiviteter WHERE dato2 > '" & convertdate(date,"UK") & "' ORDER BY dato2 ASC LIMIT 0, 12;"

Det skal jo nok være noget lignende det her
dato2 = et ellet andet format

SQL = "Select * From aktiviteter Where dato > " & dato2 & ""
Set rs = Conn.Execute
If Not rs.EOF Then
Response.Write " & rs("aktivitet") & "
rs.MoveNext
Loop While Not rs.EOF
Else
Response.Write "Der er ikke nogen aktiviteter i fremtiden"
End If

prøv:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL};Server=dinserver.sql.com;Database=DinDB;UID=Brugernavn;Pwd=Kodeord;"
Set rs = Conn.Execute("SELECT * FROM Aktiviteter WHERE Dato > " & strDato & "")
if (rs.eof or rs.bof) then
Response.Write "Vi har ingen aktiviteter i fremtiden"
else
do until (rs.eof or rs.bof)
Response.Write rs("Aktivitet")
rs.Movenext
loop
end if
%>

//Mr.Meincke

ups...glemte noget...her:

<%
strDato = "2002-03-06"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL};Server=dinserver.sql.com;Database=DinDB;UID=Brugernavn;Pwd=Kodeord;"
Set rs = Conn.Execute("SELECT * FROM Aktiviteter WHERE Dato > " & strDato & "")
if (rs.eof or rs.bof) then
Response.Write "Vi har ingen aktiviteter i fremtiden"
else
do until (rs.eof or rs.bof)
Response.Write rs("Aktivitet")
rs.Movenext
loop
end if
%>

//Mr.Meincke

doh . . . havde ikke læst det med amerikansk...her:
ups...glemte noget...her:

<%
Session.LCID = 1030
strDato = FormatDateTime("2002-03-06", vbShortDate)

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL};Server=dinserver.sql.com;Database=DinDB;UID=Brugernavn;Pwd=Kodeord;"
Set rs = Conn.Execute("SELECT * FROM Aktiviteter WHERE Dato > " & strDato & "")
if (rs.eof or rs.bof) then
Response.Write "Vi har ingen aktiviteter i fremtiden"
else
do until (rs.eof or rs.bof)
Response.Write rs("Aktivitet")
rs.Movenext
loop
end if
%>

//Mr.Meincke - undskylder den mindre spamming

tak til alle.. Jeg kigger på svarene og vender tilbage :-)

igen 1000 tak!

/flax

ar

argh, jeg har ikke fået kigget på det endnu pga andre opgaver, men jeg vælger at lukke spørgsmålet, igen tak til alle der har prøvet at hjlpe mig :-)