%@ Language=Vbscript %> <% option explicit %> <% Dim strSQL ,TabRic, Giochi (3,2), NumGiochi, I, TuttiGiochi, TutteRicariche, Ricariche (4), NumRicariche set TabRic = Server.createobject ("ADODB.RecordSet") strSQL = "SELECT * "_ & "FROM Ricevitorie " _ & "WHERE (IDCliente =" & Request ("ID") & ") " TabRic.Open strSQL, objConnRicevitorie NumGiochi=0 if TabRic ("NSisal") <> "" then NumGiochi=NumGiochi+1 Giochi (NumGiochi,1)=TabRic ("NSisal") Giochi (NumGiochi,2)="Sisal" end if if TabRic ("NLotto") <> "" then NumGiochi=NumGiochi+1 Giochi (NumGiochi,1)=TabRic ("NLotto") Giochi (NumGiochi,2)="Lottomatica" end if if TabRic ("NSnai") <> "" then NumGiochi=NumGiochi+1 Giochi (NumGiochi,1)=TabRic ("NSnai") Giochi (NumGiochi,2)="Snai" end if NumRicariche=0 if TabRic ("Tim") then NumRicariche=NumRicariche+1 Ricariche (NumRicariche)="Tim" end if if TabRic ("Omintel") then NumRicariche=NumRicariche+1 Ricariche (NumRicariche)="Omintel" end if if TabRic ("Wind") then NumRicariche=NumRicariche+1 Ricariche (NumRicariche)="Wind" end if for I=1 to NumRicariche TutteRicariche=TutteRicariche & Ricariche(I) if I< NumRicariche then if I= NumRicariche-1 then TutteRicariche =TutteRicariche & " e " else TutteRicariche =TutteRicariche & ", " end if end if next %>
|
||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||