virker stadig ikke

Prøv det som busschou foreslog i det andet spørgmål:

<%
strStatus = Request("status")
strSQL = "SELECT * FROM kunde WHERE  status = '" & strStatus & "' AND " & betalingsdato & " < #" & date() &"# AND betalingsdato <> 10/10/2000"
%>

Apo

<>  sjak vlre AND NOT betaligsdato = 10/10/2000

Du skal enten havde ' eller # omkring datoen du skriver direkte i SQL sætningen.

strSQL = "SELECT * FROM kunde WHERE  status = '" & Request("status") & "' AND betalingsdato < date() AND betalingsdato <> '10/10/2000'"


Eller sådan her hvis betalingsdato er af typen date/time og access

strSQL = "SELECT * FROM kunde WHERE  status = '" & Request("status") & "' AND betalingsdato < date() AND betalingsdato <> #10/10/2000#"


Endnu bedre er det at skrive datoer som yyyy-mm-dd da det er standart SQL syntax så prøv:

strSQL = "SELECT * FROM kunde WHERE  status = '" & Request("status") & "' AND betalingsdato < date() AND betalingsdato <> #2000-10-10#"

Når du skriver det unden ' eller # laver database den udregning du har skrevet 10 delt med 10 delt med 2000 :)

tester lige om lidt:) min server gider ikke lade mig logge på og tænkte nok det med dato formattet skulle gøres anderledes:)

Deltager da lige hvis det viser sig det fra forrige spørgsmål virker alligevel ;o)

beklager jeg først skriver nu men der har overhovedet ikke været adgang til min ftp!
det er der heldigvis igen. Jeg får dog denne fejl til alle forslag

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

ODBC driver does not support the requested properties.

hvad betyder det?

Typisk er det fordi man skriver en forkert variable enten som SQL eller Connection. Eksempel:
SQL = "select *from tabelnavn"
rs.Open strSQL, Conn, 1, 3

hmm den ser sådan her ud

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM kunde WHERE  status = '" & Request("status") & "' AND betalingsdato < date() AND betalingsdato <> #10/10/2000#"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
If Request("alfa") > "" Then strSQL = strSQL & " AND instr('" & LCase(Request("alfa")) & "',lcase(left(firmanavn,1)))>0"
strSQL = StrSQL & " ORDER BY placering, id ASC"
rs.Open strSQL, strDSN, 1

hvor jeg har valgt at prøve dit løsningsforslag nr. 2

Overføre du en værdi i alfa?

sorry! pastede den forkerte kode ind:( det er denne

          <%
                strStatus = Request("status")

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM kunde WHERE  status = '" & Request("status") & "' AND betalingsdato < date() AND betalingsdato <> #10/10/2000#"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../database.mdb")
strSQL = StrSQL & " ORDER BY rykker DESC"
rs.Open strSQL, strDSN, 1

    %>

Fejlen kommer i rs.Open metoden og det kan være fordi den ikke forstår det som står i en af variablerne. Men umiddelbart ser det fint ud. Så prøv evt at rette koden til så  du bruger en connection og ikke rs.Open metoden:


          <%
                strStatus = Request("status")

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM kunde WHERE  status = '" & Request("status") & "' AND betalingsdato < date() AND betalingsdato <> #10/10/2000#"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../database.mdb")
Conn.Open strDSN
strSQL = StrSQL & " ORDER BY rykker DESC"
Set rs = conn.Open strSQL

    %>

jeg copy pastede bare koden og fik denne fejl

Expected end of statement

Set rs = conn.Open strSQL
-------------------^

prøvede at sætte et "," efter open men hjalp ikke

hmm min fejl linjen:

Set rs = conn.Open strSQL

Skal være sådan her:

Set rs = conn.execute strSQL

hmm håber ikke jeg er irriterende:) men det rykkede bare på linjen

Expected end of statement

Set rs = conn.execute strSQL
----------------------^

Prøv at copy/paste koden over i notepad og slet mellemrumet imellem execute og strSQL og lav det igen.

samme problem desværre. Jeg prøvede også selv at skrive den ind direkte men hjalp heller ikke

Prøv at sætte () omkring strSQL:
Set rs = conn.execute (strSQL)

Det ændrede en smule på det, men fik denne fejl istedet

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

Det betyder typisk at et kolonnenavn er skrevet forkert i forhold til det i databasen. Så tjek kolonnenavne er skrevet rigtigt og findes i tabellen.

Det kunne være status som driller prøv at sætte klammer omkring sådan her:

strSQL = "SELECT * FROM kunde WHERE  [status] = '" & Request("status") & "' AND betalingsdato < date() AND betalingsdato <> #10/10/2000#"

strSQL = "SELECT * FROM kunde WHERE  status = '" & Request("status") & "' AND betalingsdato < date() AND betalingsdato <> #10/10/2000#"

af den så er jeg sikker på jeg har tabellen kunde. Her er kolonnen betalingsdato

betalingsdato

copy paste fra databasen. og status har jeg også.
Husk på at denne sql virkede fint

strSQL = "SELECT * FROM kunde WHERE  status = '" & Request("status") & "' AND betalingsdato < date() "

men når jeg prøvede at sætte en ekstra betingelse på virkede det ikke mere.
den ekstra betingelse er at dato ikke må være 10/10/2000

hvilken type er kolonnen betalingsdato ?

Date/Time

Der blev jeg godt nok lige forskrækket! prøvede lige den sql sætning jeg sagde virkede og fik denne fejl. (samme som med dit)

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

men det er ikke sql sætningen den er galt med tror jeg, men den nye conn vi lavede
det her virker nemlig.. men der mangler jeg den sidste betingelse


          <%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM kunde WHERE  status = '" & Request("status") & "' AND betalingsdato < date() "
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../database.mdb")
strSQL = StrSQL & " ORDER BY id"
rs.Open strSQL, strDSN, 1
    %>

Prøv at skrive datoen som yyyy-mm-dd, sådan her:

strSQL = "SELECT * FROM kunde WHERE  status = '" & Request("status") & "' AND betalingsdato < date() AND betalingsdato <> #2000-10-10#"

nej fejlen har intet med den nye connection af gøre.

den brokkede sig ikke! så tester lige om det virker som det skal:)

eagleeye! TAK!! Det virker:)!!

ok ;)
så det vist også senge tid, god nat og sov godt :)