<%
Dim db: Set db = Server.CreateObject("ADODB.Connection")
db.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test;USER=root;PASSWORD=;OPTION=3;"
Dim rs: Set rs = Server.CreateObject("ADODB.Recordset")
theQuery = "SELECT SUM(N_PERS) AS TOTAL FROM USERS WHERE USERID = 1"
rs.Open theQuery, db, 1,3
Response.Write(QueryText&"
")
if not rs.eof then
CAT_heading = rs("TOTAL")
end if
rs.close
%>
Test