<%@ 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 %> <%= TabRic ("NomeRicevitoria") %> a <%= TabRic ("Citta") %>
<%= TabRic ("NomeRicevitoria") %> a <%= TabRic ("Citta") %>

<%= UppercaseFirstChar(IL_LA (TabRic ("NomeRicevitoria"))) & " " & TabRic ("NomeRicevitoria")%> č all'indirizzo :
<%= TabRic ("Indirizzo")%> -  <%= TabRic ("Cap")%> -  <%= TabRic ("Citta")%> (<%= TabRic ("Provincia")%>)
<% if TabRic ("InfoIndirizzo") <> "" then Response.Write "Ulteriori informazioni su come raggiungerci : " & TabRic ("InfoIndirizzo") & "
" %> <% if (TabRic ("Telefono") <> "") then Response.Write "La ricevitoria puņ essere contatta telefonicamente al numero : " & TabRic ("Telefono") if (TabRic ("Fax") <> "") then Response.Write " o tramite fax al numero : " & TabRic ("Fax") end if if (TabRic ("Telefono") = "") And (TabRic ("Fax") <> "") then Response.Write "La ricevitoria puņ essere contattata tramite fax al numero : " & TabRic ("Fax") end if %>
E-mail: "><%= TabRic ("EMail")%> 
 

" end if %>

<% TuttiGiochi="" if NumGiochi > 0 then Response.Write "Ricevitoria " for I=1 to NumGiochi Response.Write Giochi (I,2) & " N. " & Giochi (I,1) TuttiGiochi=TuttiGiochi & Giochi (I,2) if I< NumGiochi then if I= NumGiochi-1 then Response.Write " e " TuttiGiochi=TuttiGiochi & " e " else Response.Write ", " TuttiGiochi=TuttiGiochi & ", " end if end if next end if Response.Write "
" if TabRic ("SistemiCollettivi") then Response.Write "Sono disponibili sistemi collettivi per i giochi " & TuttiGiochi & ". 
 

<% if TabRic ("NTabaccheria") <> "" then Response.Write "L'esercizio dispone di una fornita Tabaccheria, ed offre inoltre i seguenti servizi :
" else Response.Write "L'esercizio dispone dei seguenti servizi :
" end if if TutteRicariche <> "" then Response.Write " - Ricariche telefoniche : " & TutteRicariche & "
" if TabRic ("ServizioFax") then Response.Write " - Servizio FAX
" if TabRic ("BiglietteriaFS") then Response.Write " - Biglietteria FS
" if TabRic ("TasseAutomobilistiche") then Response.Write " - Tasse Automobilistiche
" if TabRic ("ServiziTiscali") then Response.Write " - Servizi Tiscali
" if TabRic ("TVSisal") then Response.Write " - TV Sisal
" Response.Write "
" if TabRic ("Messaggio") <> "" then Response.Write "
" & TabRic ("Messaggio") & "
 " %>

<% if TabRic ("Software") <> "" then Response.Write "Per lo sviluppo e la stampa dei sistemi e delle giocate singole " & IL_LA (TabRic ("NomeRicevitoria")) & " " & TabRic ("NomeRicevitoria") & " si affida al software " & TabRic ("Software") & ". " else Response.Write "Il " & TabRic ("NomeRicevitoria") & " non dispone di software per l'elaborazione di sistemi." end if %>

www.ricevitorie.it