%@ 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")) %> |
|
|
|
<%
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 " "
Response.Write " " & Par & " | "
Response.Write " " & " " & TabSched("SquadraC") & " | "
Response.Write " " & " " & TabSched("squadraF") & " | "
Response.Write " " & MID (CV,Par,1) & " | "
Response.Write " "
TabSched.movenext
RCount=Not RCount
Par=Par+1
Loop
%>
|
|
|
|
|
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
%>
|
|
|
|
|
|
|
|
|
|
|
|