%@LANGUAGE="VBSCRIPT"%> <% set RSprodotti = Server.CreateObject("ADODB.Recordset") RSprodotti.ActiveConnection = MM_connAba_STRING RSprodotti.Source = "SELECT * FROM Prodotti" RSprodotti.CursorType = 0 RSprodotti.CursorLocation = 2 RSprodotti.LockType = 3 RSprodotti.Open() RSprodotti_numRows = 0 %>
<%
dim Conta
num = contatore("count.cnt", 5) '*
'Utilizzate una sola delle seguenti 2 linee
Call convert(num, "Set3") '**
%>
|
|||||||||