Si ho già provato ma ecco l'output:
codice:
???????s??????s?‹?‹???
Codice ASP:
codice:
<%
Session.LCID = 1040
Set objconn = Server.CreateObject("ADODB.Connection")
objconn.Open "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;...;"
SQL = " SELECT CONCAT(`quanti`,' ',SUBSTRING_INDEX(s,';',-1)) `risultato` "
SQL = SQL & " FROM "
SQL = SQL & " ( "
SQL = SQL & " SELECT "
SQL = SQL & " COUNT(*) AS `quanti`, "
SQL = SQL & " CASE "
SQL = SQL & " WHEN Sexo = 'F' THEN "
SQL = SQL & " CONCAT(COUNT(*), ' ', 'Femmine') "
SQL = SQL & " WHEN Sexo = 'M' THEN "
SQL = SQL & " CONCAT(COUNT(*), ' ', 'Maschi') "
SQL = SQL & " ELSE "
SQL = SQL & " CONCAT(COUNT(*), ' ', 'Totale') "
SQL = SQL & " END s "
SQL = SQL & " FROM "
SQL = SQL & " `tbl_online` "
SQL = SQL & " WHERE "
SQL = SQL & " 1 "
SQL = SQL & " GROUP BY "
SQL = SQL & " `Sesso` WITH ROLLUP) x; "
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open SQL, objconn
If not rs.eof then
Do while not rs.eof
response.write rs("risultato")
rs.movenext
Loop
objRs.close
set objRs = nothing
End if
rs.close
set rs = nothing
set objRec = nothing
objconn.Close
set objconn = nothing
%>