If sætning i sql sætning

prøv dette:
<%

SQL = \"DELETE FROM mailingliste where id =\"& request(\"id\")
If Alder = \"\" THEN
  SQL = SQL & \" and Alder = \'\" & request.querystring(\"Alder\") & \"\'\"
end if
If Koen = \"\" THEN
  SQL = SQL & \" and Koen = \'\" & request.querystring(\"Koen\") & \"\'\"
end if
If Postnummer = \"\" THEN
  SQL = SQL & \" and Postnummer = \'\" & request.querystring(\"Postnummer\") & \"\'\"
end if
%>

/nute

Det du skal være opmærksom på er at alle de felter der er udfyldt skal være opfyldt. Dvs. både id og de udfylde felter. ID feltet angiver sandsynligvis et individ og er som så meget afgrænset uden de udeerligere kriterier.

I nedenstående vil id\'et også være valgbart

<%

SQL = \"DELETE FROM mailingliste where true\"
If Alder = \"\" THEN
  SQL = SQL & \" id =\" & request(\"id\")
end if
If Alder = \"\" THEN
  SQL = SQL & \" and Alder = \'\" & request.querystring(\"Alder\") & \"\'\"
end if
If Koen = \"\" THEN
  SQL = SQL & \" and Koen = \'\" & request.querystring(\"Koen\") & \"\'\"
end if
If Postnummer = \"\" THEN
  SQL = SQL & \" and Postnummer = \'\" & request.querystring(\"Postnummer\") & \"\'\"
end if
%>

-Per

Sorry sættefejl, linie 2 og = rettet til <>

<%

SQL = \"DELETE FROM mailingliste where true\"
If id <> \"\" THEN
  SQL = SQL & \" id =\" & request(\"id\")
end if
If Alder <> \"\" THEN
  SQL = SQL & \" and Alder = \'\" & request.querystring(\"Alder\") & \"\'\"
end if
If Koen <> \"\" THEN
  SQL = SQL & \" and Koen = \'\" & request.querystring(\"Koen\") & \"\'\"
end if
If Postnummer <> \"\" THEN
  SQL = SQL & \" and Postnummer = \'\" & request.querystring(\"Postnummer\") & \"\'\"
end if
%>

Jeg får denne fejl:
Microsoft VBScript compilation (0x800A0409)
Unterminated string constant
/nyhed/admin.asp, line 10, column 81
SQL = \"DELETE FROM mailingliste where id =\"& request(\"id\") & \" If Alder = \"\" THEN
--------------------------------------------------------------------------------^

du har ikke kopiert det jeg (eller perla) har skrevet til deg... Men for å gjøre oppmerksom på det, så vil ikke perla sitt forslag fungere desverre...

Linie 3 rettes til
SQL = SQL & \" and id=\" & request(\"id\")

nute > havad mener du ?

nute > Har testet SQL sætningen på en database, virker fint, så ??

ditt script vil generere en SQL som ser ca sånn ut:

DELETE FROM mailingliste where true id = ...

etter din oppdatering @ 16:06:10 han få en SQL som ser ca sånn ut:

DELETE FROM mailingliste where true and id = ...

men det var jo egentlig ikke det spørsmålet gikk ut på. Spørsmålet var jo om man kunne benytte if...then i en SQL. Og det kan man på den måten som både jeg og perla har vist. Hvordan selve SQL\'en ser ut, var jo strengt tatt ikke en del av spørsmålet...

:-)

Eksemplet kræver selfølgelig at du lægger laver følgende inden.

id    = request.querystring(\"id\")
Alder  = request.querystring(\"Alder\")
Koen  = request.querystring(\"koen\")
Postnummer = request.querystring(\"postnummer\")

-Per

det var ikke det som var mitt point :) (jeg har på lik linje med deg antatt at dette allerede er gjort...)


DELETE FROM mailingliste where true and id = ...
--------------------------------^^

where true and ... vil ikke fungere...

:-)

nute > Det har du ret i, men sådan er 99% af alle spørgsmålene. Måske fordi at man ikke skriver alle de ting man vil vide, for så får man flere svar, men også meget lidt indhold. :-)

Som sagt tidligere , er teste virker fint...

Tror ikke at den sortere som den skal, hvordan er det man udskriver sin sql streng så man kan se hvad den laver??

Response.write SQL

Se dette er det der står på siden:
    SQL = \"SELECT FROM mailingliste where Confirm=true \"
    If id <> \"\" THEN
  SQL = SQL & \" id =\" & request(\"id\")
end if
If Alder <> \"\" THEN
  SQL = SQL & \" and Alder = \'\" & request.querystring(\"Alder\") & \"\'\"
end if
If Koen <> \"\" THEN
  SQL = SQL & \" and Koen = \'\" & request.querystring(\"Koen\") & \"\'\"
end if
If Postnummer <> \"\" THEN
  SQL = SQL & \" and Postnummer = \'\" & request.querystring(\"Postnummer\") & \"\'\"
end if

Dette er hvad der er i urlen:
admin.asp?mode=send&alder=1&Koen=1&subject=dfg&tekst=dfg&tilbage=137

Den lister alt hvad der er i databasen, hvorfor??

ehhh....det der er jo ikke den SQL som blir eksekvert !!

jo der er det, skrev forkert før

unskyld meg, men det kan det ikke være. Du kan ikke få eksekvert denne sql. En SQL ser ut som dette:

SELECT FROM mailingliste where Confirm=true AND id = 2 and Alder = \'2\'

eller noe lignende...

Nu er det rettet til. Prøv dette

<%
id    = request.querystring(\"id\")
Alder  = request.querystring(\"alder\")
Koen  = request.querystring(\"koen\")
Postnummer = request.querystring(\"postnummer\")

SQL = \"SELECT FROM mailingliste where true \"
If id <> \"\" THEN
  SQL = SQL & \"and id =\" & request(\"id\")
end if
If Alder <> \"\" THEN
  SQL = SQL & \" and Alder = \'\" & request.querystring(\"alder\") & \"\'\"
end if
If Koen <> \"\" THEN
  SQL = SQL & \" and Koen = \'\" & request.querystring(\"koen\") & \"\'\"
end if
If Postnummer <> \"\" THEN
  SQL = SQL & \" and Postnummer = \'\" & request.querystring(\"postnummer\") & \"\'\"
end if
%>

Men du overfører ikke postnummer...

-Per

og heller ikke id..

Der er ingen id, der er ikke noget postnummer i det forsøg jeg laver nu, der for skal den jo heller ikke skrive and postnummer osv

Det virker altså desværre ikke

Send mig koden og databasen så skal jeg se PerLA@mail.tele.dk

er sendt

Jeg får denne fejl med det script du har sendt mig:
Error Type:
Microsoft VBScript runtime (0x800A005E)
Invalid use of Null: \'Split\'
/nyhed/view1.asp, line 52

<%
  \'Alder  = request.querystring(\"alder\")
  \'Koen  = request.querystring(\"koen\")
  \'Postnummer = request.querystring(\"postnummer\")

  SQL = \"SELECT * FROM mailingliste where Confirm=true \"
  If Alder <> \"\" THEN
    SQL = SQL & \" and Alder = \" & Alder
  end if
  If Koen <> \"\" THEN
    SQL = SQL & \" and Koen = \" & Koen
  end if
  If Postnummer <> \"\" THEN
    SQL = SQL & \" and Postnummer = \'\" & request.querystring(\"postnummer\") & \"\'\"
  end if

\'on error resume next
Dim Felt, NewString

\'response.write SQL
\'response.end

set slet = conn.execute( SQL )
do while not slet.eof

Felt=slet(\"Timenow\")
(dette er linie 52) NewString = Split(Felt, \"-\", 6, 0)   
EString= NewString(2) & \"/\" & NewString(1) & \" \" & NewString(0) & \" \" & NewString(3) & \":\" & NewString(4)& \":\" & NewString(5)

%>

Det er fordi at feltet ttimenow er tomt i et af recordsne.

-Per

Lagde du min version af databasen ind, for den virkede

Fint nok nu virker det, skulle lige rettes en lille smule
tak