Visa = "SELECT * from Lankar WHERE Lan='"&Request.form("land")&"' AND Kategori="&Request.form("midd") & _
" order by kommun "
pk = ""
RS.Open Visa, Connect
Do While Not rs.EOF
if pk <> rs("kommun") then
pk = rs("kommun")
response.write "Kommun: " & pk & "<br>"
end if
response.write RS("Lanktxt")&"<br>"
rs.Movenext
Loop
RS.Close: Set rs = nothing
else
response.write " "
end if
Frågan#1
<% If Request.form("midd") <> "" AND Request.form("land") <> "" Then
Set RS = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * from Lankar WHERE Lan='"&Request.form("land")&"' AND Kategori="&Request.form("midd")
RS.Open Visa, Connect
Do While Not rs.EOF
response.write RS("Lanktxt")&"<br>"
rs.Movenext
Loop
RS.Close: Set rs = nothing
else
response.write " "
end if
%>
Detta skriver ut alla företagen i länet. Dock vill jag sortera kommunvis såhär:
Trollhättan
företag1
företag2
företag3 osv
Uddevalla
företag1
företag2
företag3 osv
Hur gör jag detta?