www.auto1900.it
X
Cars
Wanted
|
|
www.auto1900.it
|
X
|
|||
| Cars
Wanted |
|||||
|
1900 - 1949
|
1950 - 1959
|
1960 - 1969
|
1970 - 1979
|
1980 - 2006
|
|
<%
SQL = "SELECT car, Count(*) AS Quante " & _
"FROM richieste " & _
"WHERE ((richieste.year) Between '1900' And '1949') " & _
"GROUP BY richieste.car"
on error resume next
rs.open SQL, conn
if err.number <> 0 then
response.write SQL & "
" response.write err.description else do while not rs.eof MyCar = replace(rs("Car"), " ", "__") MyCar = replace(MyCar, "&", "|") response.write "" &rs("car") & " " & rs("Quante") & " " rs.movenext loop rs.close end if %> |
<%
SQL = "SELECT car, Count(*) AS Quante " & _
"FROM richieste " & _
"WHERE ((richieste.year) Between '1950' And '1959') " & _
"GROUP BY richieste.car"
on error resume next
rs.open SQL, conn
if err.number <> 0 then
response.write SQL & "
" response.write err.description else do while not rs.eof MyCar = replace(rs("Car"), " ", "__") response.write "" &rs("car") & " " & rs("Quante") & " " rs.movenext loop rs.close end if %> |
<%
SQL = "SELECT car, Count(*) AS Quante " & _
"FROM richieste " & _
"WHERE ((richieste.year) Between '1960' And '1969') " & _
"GROUP BY richieste.car"
on error resume next
rs.open SQL, conn
if err.number <> 0 then
response.write SQL & "
" response.write err.description else do while not rs.eof MyCar = replace(rs("Car"), " ", "__") response.write "" &rs("car") & " " & rs("Quante") & " " rs.movenext loop rs.close end if %> |
<%
SQL = "SELECT car, Count(*) AS Quante " & _
"FROM richieste " & _
"WHERE ((richieste.year) Between '1970' And '1979') " & _
"GROUP BY richieste.car"
on error resume next
rs.open SQL, conn
if err.number <> 0 then
response.write SQL & "
" response.write err.description else do while not rs.eof MyCar = replace(rs("Car"), " ", "__") response.write "" &rs("car") & " " & rs("Quante") & " " rs.movenext loop rs.close end if %> |
<%
SQL = "SELECT car, Count(*) AS Quante " & _
"FROM richieste " & _
"WHERE ((richieste.year) Between '1980' And '2020') " & _
"GROUP BY richieste.car"
on error resume next
rs.open SQL, conn
if err.number <> 0 then
response.write SQL & "
" response.write err.description else do while not rs.eof MyCar = replace(rs("Car"), " ", "__") response.write "" &rs("car") & " " & rs("Quante") & " " rs.movenext loop rs.close end if %> |