Avatar billede csslover Nybegynder
01. december 2003 - 11:23 Der er 7 kommentarer og
1 løsning

nogen forslag til hvordan dette eller kunne gøres ?

Jeg har denne sub, virker fint, men det må da på en måde kunne gøres i selve sql'en så jeg slipper for at hente alle poster, og så betinge...

Sub GetArchive()   
    Dim Sql, Conn, Rs
        Sql = "SELECT * FROM meddelelseData"
       
        Set Conn = Connect()
        Set Rs = Conn.Execute(Sql)
       
        Do While Not Rs.Eof
        '**********************************
        If Year(Rs("meddelelseDato")) = Request("y") Then
        '**********************************
            Response.Write("<div style=""width: 320px; margin-bottom: 100px;"">")
           
            Response.Write(AlignRight(GetImage(Rs("meddelelseBillede"))))
            Response.Write(H3(Rs("meddelelseTitel")))
            Response.Write(Div(Rs("meddelelseDato")))
            Response.Write(Div(Rs("meddelelseHoved")))
            Response.Write(Div(Rs("meddelelseIndhold")))
            Response.Write("</div>")
        End If
        Rs.MoveNext()
        Loop
       
    Conn.Close   
    Set Conn = Nothing
    Set Rs = Nothing     
End Sub
Avatar billede squashguy Nybegynder
01. december 2003 - 11:37 #1
prøv denne

Sql = "SELECT * FROM meddelelseData WHERE meddelelseDato = #" & Request("y") & "#"
Avatar billede csslover Nybegynder
01. december 2003 - 11:50 #2
det går ikke .... glemte a sætte klart at jeg har en dato i meddelelsedato feltet der ser ud som så : dd-mm-yyyy
Avatar billede csslover Nybegynder
01. december 2003 - 11:57 #3
ok jeg prøvede selv den ting jeg ikke regnede med virkede...
Sub GetArchive()   
    Dim Sql, Conn, Rs
        Sql = "SELECT * FROM meddelelseData WHERE Year(meddelelseDato)="&CInt(Request("y"))
       
        Set Conn = Connect()
        Set Rs = Conn.Execute(Sql)
       
        Do While Not Rs.Eof
        '**********************************
        'If Year(Rs("meddelelseDato")) = CInt(Request("y")) Then
        '**********************************
            Response.Write("<div style=""width: 320px; margin-bottom: 100px;"">")
            Response.Write(AlignRight(GetImage(Rs("meddelelseBillede"))))
            Response.Write(H3(Rs("meddelelseTitel")))
            Response.Write(Div(Rs("meddelelseDato")))
            Response.Write(Div(Rs("meddelelseHoved")))
            Response.Write(Div(Rs("meddelelseIndhold")))
            Response.Write("</div>")
        'End If
        Rs.MoveNext()
        Loop

    Conn.Close
    Set Conn = Nothing
    Set Rs = Nothing     
End Sub

det virker men forekommer mig underligt at jeg bare sådan uden videre kan bruge vbscript midt i min sql.....det troede jeg ikke kunne lade sig gøre...

en der ved hvorfor ?
Avatar billede deeflate Nybegynder
01. december 2003 - 12:07 #4
Du bygger jo SQL-strengen op som du gør med en hvilken som helst anden tekststreng - for det er jo bare det, den er, en tekststreng.
Når den bliver modtaget er den fortolket, så det er ikke noget problem.
Avatar billede csslover Nybegynder
01. december 2003 - 12:10 #5
det er jo monster cool :) d vidste j ikke
Avatar billede csslover Nybegynder
01. december 2003 - 12:11 #6
det gør det hele lidt lettere :)
Avatar billede deeflate Nybegynder
01. december 2003 - 12:13 #7
Ja, ikke ;)
Avatar billede csslover Nybegynder
17. december 2003 - 16:25 #8
x
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester