Con questo script, viene mostrato come legger una tabella di un database mySql. In fondo alla tabella, viene mostrato il tempo impiegato a svolger tale operazione.
<%
inizioTempo = Timer()
Set conn = Server.CreateObject("ADODB.Connection")
Set comm = Server.CreateObject("ADODB.Command")
Set Rs = Server.CreateObject("ADODB.Recordset")
conn.CommandTimeout = 40
conn.CursorLocation = 1
conn.ConnectionString = "db=innoDb;uid=innovatel;pwd=innovatel;driver=MySQL"
conn.Open
comm.ActiveConnection = conn
comm.CommandType = 1
comm.CommandText = "SELECT nome FROM clienti"
Rs.Open comm,,1,1
%>
<TABLE>
<%
do while not(rs.eof)
i=i+1
if i mod 2 = 0 then
strFondo="#CCFF00"
else
strFondo="#CC33CC"
end if
%>
<TR>
<TD bgcolor="<%=strFondo%>">
<%
if i mod 2 = 0 then
response.write "<font size=""2"" color=""#66CCCC"">"
else
response.write "<font size=""2"" color=""#CC33FF"">"
end if
response.write "Messaggio numero --> " & i & " - Testo --> " & rs(0)
response.write "<br></font>"&chr(13)&chr(10)
rs.movenext
%>
</TD>
</TR>
<%
loop
%>
</TABLE>
<%
rs.close
conn.close
set rs = nothing
set comm= nothing
set conn = nothing
response.write "Secondi Impiegati : " & ( timer() - inizioTempo )
%>