Avatar billede theselfimages Nybegynder
20. august 2003 - 23:36 Der er 5 kommentarer og
1 løsning

Hjælp til IF udtræk fra DB

Nedenstående trækker de nyheder ud af DB, der er under 3 måneder gamle. Men hvis jeg vil lave et check der siger:

<% If showNewsArchive = "true" Then %>
= så skal
[created]<=90)) ORDER BY

i stedet være:
[created]>=90)) ORDER BY

Hvordan skriver jeg det ind i nedenstående?



        <%                   
        'Create database connection object
        Set Conn = Server.CreateObject("ADODB.Connection")
        'Create database connection string
        DSN = "Driver={Microsoft Access Driver (*.mdb)};" & _
              "Dbq=" & Server.MapPath("../../../db/database.mdb") & ";" & _
              "Uid=admin;" & _
              "Pwd="
        'Open connection to database
        Conn.Open(DSN)
        'Create SQL querystring
        strSQL = "SELECT * FROM page  " & _
        "WHERE isNews = True " & _
        "AND language = '" & language & "' " & _
        "AND ((Now()-[page]![created]<=90)) ORDER BY page.pageID desc"
        'Execute querystring (recordset contain data)
        Set rs = Conn.Execute(strSQL)
        'Loop as long as there is data in the recordset
        While NOT rs.EOF
        %>
Avatar billede ellebaek Nybegynder
20. august 2003 - 23:38 #1
<%                   
        'Create database connection object
        Set Conn = Server.CreateObject("ADODB.Connection")
        'Create database connection string
        DSN = "Driver={Microsoft Access Driver (*.mdb)};" & _
              "Dbq=" & Server.MapPath("../../../db/database.mdb") & ";" & _
              "Uid=admin;" & _
              "Pwd="
        'Open connection to database
        Conn.Open(DSN)
        'Create SQL querystring
if showNewsArchive = "true" Then
        strSQL = "SELECT * FROM page  " & _
        "WHERE isNews = True " & _
        "AND language = '" & language & "' " & _
        "AND ((Now()-[page]![created]<=90)) ORDER BY page.pageID desc"
else
        strSQL = "SELECT * FROM page  " & _
        "WHERE isNews = True " & _
        "AND language = '" & language & "' " & _
        "AND ((Now()-[page]![created]>=90)) ORDER BY page.pageID desc"

end if
        'Execute querystring (recordset contain data)
        Set rs = Conn.Execute(strSQL)
        'Loop as long as there is data in the recordset
        While NOT rs.EOF
        %>
Avatar billede ellebaek Nybegynder
20. august 2003 - 23:39 #2
og så skal der selvfølgelig byttes om på:
<= og >=
Avatar billede theselfimages Nybegynder
20. august 2003 - 23:41 #3
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x4f8 Thread 0xa88 DBC 0xba22e6c Jet'.
Avatar billede ellebaek Nybegynder
20. august 2003 - 23:43 #4
Virkede det før jeg satte den if sætning ind...?
Avatar billede theselfimages Nybegynder
20. august 2003 - 23:45 #5
Ups! min fejl! Sorry...

Det virker perfekt... Det var jo nemt..
Huh! Og burde jeg vel egentlig selv ha' tænkt mig til!

Takker..
Avatar billede ellebaek Nybegynder
20. august 2003 - 23:52 #6
Anytime.

Takker for pointz..

..Ellebæk!
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