<%@LANGUAGE="VBSCRIPT"%> <% Dim Sortejos__MMColParam Sortejos__MMColParam = "Sábado" if (Request.QueryString("loteria") <> "") then Sortejos__MMColParam = Request.QueryString("loteria") %> <% set Sortejos = Server.CreateObject("ADODB.Recordset") Sortejos.ActiveConnection = MM_connCalabria50_STRING Sortejos.Source = "SELECT * FROM SortejosComplets WHERE IdLoteria = '" + Replace(Sortejos__MMColParam, "'", "''") + "' AND DataSorteig <> Null" Sortejos.CursorType = 0 Sortejos.CursorLocation = 2 Sortejos.LockType = 3 Sortejos.Open() Sortejos_numRows = 0 %> <% Dim Loteria__MMColParam Loteria__MMColParam = "1" if (Request.QueryString("loteria") <> "") then Loteria__MMColParam = Request.QueryString("loteria") %> <% set Loteria = Server.CreateObject("ADODB.Recordset") Loteria.ActiveConnection = MM_connCalabria50_STRING Loteria.Source = "SELECT Titol FROM Loteries WHERE IdLoteria = '" + Replace(Loteria__MMColParam, "'", "''") + "'" Loteria.CursorType = 0 Loteria.CursorLocation = 2 Loteria.LockType = 3 Loteria.Open() Loteria_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Sortejos_numRows = Sortejos_numRows + Repeat1__numRows %> Nautae.com - Calabria50 (lista de sorteos)

<%=(Loteria.Fields.Item("Titol").Value)%>

A continuación se le muestran las fechas correspondientes a los sorteos de <%=(Loteria.Fields.Item("Titol").Value)%> en los que puede comprar décimos. Elija aquel en el que desee participar.

<% While ((Repeat1__numRows <> 0) AND (NOT Sortejos.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Sortejos.MoveNext() Wend %>

Fecha del sorteo	Fecha límite (inclusive) de venta de décimos	Precio de un décimo
<% If Sortejos.Fields.Item("DataLimit").Value >= Date Then %> "><%= DoDateTime((Sortejos.Fields.Item("DataSorteig").Value), 1, -1) %> <% End If ' Sortejos.Fields.Item("DataLimit").Value >= Date %> <% If Sortejos.Fields.Item("DataLimit").Value < Date Then %> <%= DoDateTime((Sortejos.Fields.Item("DataSorteig").Value), 1, -1) %> <% End If ' Sortejos.Fields.Item("DataLimit").Value < Date %>	<% If Sortejos.Fields.Item("DataLimit").Value >= Date Then %> <%= DoDateTime((Sortejos.Fields.Item("DataLimit").Value), 1, -1) %> <% End If ' Sortejos.Fields.Item("DataLimit").Value >= Date %> <% If Sortejos.Fields.Item("DataLimit").Value < Date Then %> Venta cerrada <% End If ' Sortejos.Fields.Item("DataLimit").Value < Date %>	<%= FormatNumber((Sortejos.Fields.Item("PreuDecim").Value), 2, -2, -2, -2) %> €

<% Sortejos.Close() %> <% Loteria.Close() %>