universal SQL linje

Prøv evt. at vise koden...

Er det dette du tænker på??

if request.querystring("page") = "ungdom" then
  set rs = conn.execute("select ..ungdom..")
elseif request.querystring("page") = "senior" then
  set rs = conn.execute("select ..senior..")
else
  set rs = conn.execute("select ..default..")
end if
while not rs.eof
  ...
  rs.MoveNext
wend

koderne kunne være:

Ungdom

strSQL = "SELECT [Name], [Link], [Pulje], [Activ] FROM List"
strSQL = strSQL & " WHERE [Activ] ='YES'"
strSQL = strSQL & " AND [Name] NOT LIKE '%Pige%' OR '%Dame%' OR '%Kvind%'"
strSQL = strSQL & " ORDER BY [ID] ASC"
Set objRS = objConn.Execute(strSQL)

Senior
strSQL = "SELECT [Name], [Link], [Pulje], [Activ] FROM List"
strSQL = strSQL & " WHERE [Activ] ='YES'"
strSQL = strSQL & " ORDER BY [Name] ASC"
Set objRS = objConn.Execute(strSQL)


default
strSQL = "SELECT [Name], [Link], [Pulje], [Activ] FROM List"
strSQL = strSQL & " WHERE [Activ] ='YES'"
strSQL = strSQL & " ORDER BY [ID] ASC"
Set objRS = objConn.Execute(strSQL)

Håber det ville kunne hjælpe lidt...

det er kun eksempler..

Udfra mit tidligere eks:

strSQL = "SELECT [Name], [Link], [Pulje], [Activ] FROM List"
strSQL = strSQL & " WHERE [Activ] ='YES'"
if request.querystring("page") = "ungdom" then
  strSQL = strSQL & " AND [Name] NOT LIKE '%Pige%' OR '%Dame%' OR '%Kvind%'"
  strSQL = strSQL & " ORDER BY [ID] ASC"
elseif request.querystring("page") = "senior" then
  strSQL = strSQL & " ORDER BY [Name] ASC"
else
  strSQL = strSQL & " ORDER BY [ID] ASC"
end if
Set objRS = objConn.Execute(strSQL)

takker læg et svar ^^

*<(.o) <-- One Eyed Christmas Jack