Afgrænse udtræk

Så skal du havde en where ind.
Du kan lave din seelc tcase sådan den ikke har hele SQL sætningen men kun ORDER BY delen, så  kan du nemlige også bygger en where ind:


Select Case Method
Case "ID"
ORDERBY = " order by ID asc"
Case "Sted"
ORDERBY = " order by sted asc"
Case "Navn"
ORDERBY = " order by navn_1 asc"
Case "Town"
ORDERBY = " order by town asc"
Case "Organisation"
ORDERBY = " order by organisation asc"
End Select

SQLWhere = " where sted = 'Aalborg' "

Set objPersoner = Connection.Execute ("select * from personer " & SQLWhere & ODERRBY)

så tilføjer du en where sted = '"&din betingelse&"'

fx...
Set objPersoner = Connection.Execute("select * from personer where sted = 'Aalborg' order by sted asc")

så kan du hvis du fx. benytter request.querystring til at finde bynavn skrive:
Set objPersoner = Connection.Execute("select * from personer where sted = '"&request.querystring("sted")&"' order by sted asc")

Jeg valgte at gå efter 'eagleeye's metode ...kunne slet ikke gennemskue 'ellebaek's.

Nu virker sortering ikke mere, koden ser sådan her ud:

Method= Request.QueryString("method")
If Request.QueryString("method")="" Then
Method="ID"
End If


Select Case Method
Case "ID"
ORDERBY = " order by ID asc"
Case "Sted"
ORDERBY = " order by sted asc"
Case "Navn"
ORDERBY = " order by navn_1 asc"
Case "Town"
ORDERBY = " order by town asc"
Case "Organisation"
ORDERBY = " order by organisation asc"
End Select

SQLWhere = " where sted = '220104 Odense 1700' "

Set objPersoner = Connection.Execute ("select * from personer " & SQLWhere & ODERRBY)


Response.Write("<table border=0 width=600 align=center>")
Response.Write("<td align=left><b><a href=Od_17.asp?method=Sted>Sted</a></b></td>")
Response.Write("<td align=left><b><a href=Od_17.asp?method=Navn>Navn</a></b></td>")
Response.Write("<td align=left><b><a href=Od_17.asp?method=Town>By</a></b></td>")
Response.Write("<td align=left><b><a href=Od_17.asp?method=Organisation>Organisation</a></b></td>")


Do While Not objPersoner.EOF


Response.Write("<tr>")
Response.Write("<td align=left class=""textbold"">"&objPersoner("sted")&"</td>")
Response.Write("<td align=left class=""textbold"">"&objPersoner("navn_1")&"</td>")
Response.Write("<td align=left class=""textbold"">"&objPersoner("town")&"</td>")
Response.Write("<td align=left class=""textbold"">"&objPersoner("organisation")&"</td>")
Response.Write("</tr>")


objPersoner.MoveNext
Loop
Response.Write("</tr>")
Response.Write("</table>")

;) jeg har lavet en skrive/stavefejl i denne linje:

Set objPersoner = Connection.Execute ("select * from personer " & SQLWhere & ODERRBY)

Det skal ikke være  ODERRBY  men  ORDERBY så prøv:

Set objPersoner = Connection.Execute ("select * from personer " & SQLWhere & ORDERBY)

Tak for hjælpen ...begge to ...

det virker, og selvom det var den ene løsning jeg brugte, synes jeg I fortjener point begge !