<%@ Language=Vbscript %> <% option explicit %> <% Dim TabSched,TabConc,CV set TabConc = Server.createobject ("ADODB.RecordSet") TabConc.open "Totocalcio", objconn, adopenkeyset, adcmdtable TabConc.movelast CV=TabConc("Colonna") set TabSched = Server.createobject ("ADODB.RecordSet") TabSched.open "SchedinaTotoV", objconn, adopenkeyset, adcmdtable TabSched.movelast %> Servizi Totocalcio : locandina dell'ultimo concorso totogol

 Concorso n°

<% Response.Write TabConc("Numero") %>

 del 

<% Response.Write FormatData (TabConc("Data")) %>

" Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " TabSched.movenext RCount=Not RCount Par=Par+1 Loop %>
<% Dim Rcount, ColoreRiga,Par RCount=True Par=1 TabSched.movefirst Do While Not TabSched.EOF if RCount then ColoreRiga="#EAFFEA" else ColoreRiga="#D3EFDE" end if Response.Write "

" & Par & "

" & " " & TabSched("SquadraC") & "

" & " " & TabSched("squadraF") & "

" & MID (CV,Par,1) & "

 Quote
Montepremi: 

 <% Response.Write FormatValuta (TabConc("Montepremi")) %>

Punti

Vincitori

Quote
<% if TabConc("Punti13") > 0 then Response.Write 13 else Response.Write 12 end if %>   <% if TabConc("Punti13") > 0 then Response.Write TabConc("Punti13") else Response.Write TabConc("Punti12") end if %>

<% if TabConc("Punti13") > 0 then Response.Write formatvaluta(TabConc("Quota13")) else Response.Write formatvaluta(TabConc("Quota12")) end if %>

<% if TabConc("Punti13") > 0 then Response.Write 12 else Response.Write 11 end if %>   <% if TabConc("Punti13") > 0 then Response.Write TabConc("Punti12") else Response.Write TabConc("Punti11") end if %>

<% if TabConc("Punti13") > 0 then Response.Write formatvaluta(TabConc("Quota12")) else Response.Write formatvaluta(TabConc("Quota11")) end if TabSched.close set TabSched = Nothing TabConc.close set TabConc = Nothing %>