Kalender ting igen...

Hej igen Experter..

Jeg har stadig problemer med min kalender..

Jeg har forsøgt at implimentere den kode jeg fik i går det går også meget godt, men der er stadig fejl og jeg ka bare ikke finde den... Er der nogen der kan hjælpe???

Min kilde kode ser sådanne ud...

Set Conn = Server.CreateObject("ADODB.Connection")
                    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../../mdb/kalender.mdb")                   
                   
                    if request("sortkrit") <> "" then
                        if request("cat") <> "" then
                            SQLstmt = "SELECT * FROM main WHERE type='" & request("cat") & "'" & "date >= #"&date&"# ORDER BY  " & request("sortkrit")  & " ASC"
                        else
                            SQLstmt = "SELECT * FROM main WHERE date >= #"&date&"# ORDER BY  " & request("sortkrit")  & " ASC"
                        end if
                    else
                        if request("cat") <> "" then
                            SQLstmt = "SELECT * FROM main WHERE type='" & request("cat") & "'" & "ORDER BY date ASC" 
                        else
                            SQLstmt = "SELECT * FROM main WHERE date >= #"&date&"# ORDER BY date ASC"
                        end if
                    end if
                   
                    Conn.Execute (SQLstmt)
                    Set rs = conn.Execute(SQLstmt)

Jeg håber at der er nogen der kan hjælpe...

Mvh.

Roadi