%@ Language=Vbscript %> <% option explicit %> <% Dim TabConc,CV (8) set TabConc = Server.createobject ("ADODB.RecordSet") TabConc.open "SuperEnalotto", objconn, adopenkeyset, adcmdtable TabConc.movelast TabConc.moveprevious CV(1)=TabConc("N1") CV(2)=TabConc("N2") CV(3)=TabConc("N3") CV(4)=TabConc("N4") CV(5)=TabConc("N5") CV(6)=TabConc("N6") CV(7)=TabConc("Jolly") CV(8)=TabConc("SuperStar") %>
|
<%
TabConc.Close
Set TabConc=Nothing
%>