%@ Language=Vbscript %>
<% option explicit %>
<%
Dim objTotip
set objTotip = Server.createobject ("ADODB.RecordSet")
objTotip.open "Totip", objconn, adopenkeyset, adcmdtable
objTotip.movelast
%>
Servizi Totogol : quote dell'ultimo concorso totogol
|
|
Colonna vincente
Totip+
Concorso Nº <% Response.Write objTotip ("Numero") %> del <% Response.Write FormatData (objTotip ("Data")) %>
|
<%
Dim Rcount, ColoreRiga,Par
RCount=True
For Par=1 to 6
if RCount then
ColoreRiga="#E9F8EF"
else
ColoreRiga="#D3EFDE"
end if
Response.Write " "
Response.Write " " & Par & " | "
Response.Write " " & " 1º Arrivato" & " | "
Response.Write " " & Mid ( objTotip ("Colonna"),Par*2-1,1) & " | "
Response.Write " "
Response.Write " "
Response.Write " " & " 2º Arrivato" & " | "
Response.Write " " & Mid (objTotip ("Colonna"),Par*2,1) & " | "
Response.Write " "
RCount=Not RCount
next
if RCount then
ColoreRiga="#E9F8EF"
else
ColoreRiga="#D3EFDE"
end if
' RCount=Not RCount
Response.Write " "
Response.Write " " & "Corsa+" & " | "
Response.Write " " & " 1º Arrivato" & " | "
Response.Write " " & objTotip ("CorsaPiu1") & " | "
Response.Write " "
Response.Write " "
Response.Write " " & " 2º Arrivato" & " | "
Response.Write " " & objTotip ("CorsaPiu2") & " | "
Response.Write " "
%>
|
|
Quote del concorso Totip N.
<% Response.Write objTotip("Numero") %>
del
<% Response.Write formatdata(objTotip("Data")) %>
Montepremi : <% Response.Write formatvaluta(objTotip("Montepremi")) %>
Punti |
Vincitori
|
Quota |
14 |
<% Response.Write objTotip("Punti14") %>
|
<% if objTotip("Punti14") > 0 then
Response.Write formatvaluta(objTotip("Quota14"))
else
Response.Write "Jackpot " & formatvaluta(objTotip("Quota14"))
end if
%>
|
12
|
<% Response.Write objTotip("Punti12") %>
|
<% Response.Write formatvaluta(objTotip("Quota12")) %>
|
11 |
<% Response.Write objTotip("Punti11") %>
|
<% Response.Write formatvaluta(objTotip("Quota11")) %>
|
10
|
<% Response.Write objTotip("Punti10") %>
|
<% Response.Write formatvaluta(objTotip("Quota10")) %>
|
|
|
|