<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rsElencoutenti
Dim rsElencoutenti_numRows
Set rsElencoutenti = Server.CreateObject("ADODB.Recordset")
rsElencoutenti.ActiveConnection = MM_dbConn_STRING
rsElencoutenti.Source = "SELECT count(*) FROM utenti WHERE admin = 'U'"
rsElencoutenti.CursorType = 0
rsElencoutenti.CursorLocation = 2
rsElencoutenti.LockType = 1
rsElencoutenti.Open()
rsElencoutenti_numRows = 0
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title></title>
</head>
<body>
<%=(rsElencoutenti.Fields.Item("Expr1000").Value)% >
</body>
</html>
<%
rsElencoutenti.Close()
Set rsElencoutenti = Nothing
%>