<%@LANGUAGE="VBSCRIPT"%> <% Dim elenco_notizie Dim elenco_notizie_numRows Set elenco_notizie = Server.CreateObject("ADODB.Recordset") elenco_notizie.ActiveConnection = MM_scuolaimpresa_STRING elenco_notizie.Source = "SELECT * FROM notizie WHERE visibile = 'S' ORDER BY posizione ASC" elenco_notizie.CursorType = 0 elenco_notizie.CursorLocation = 2 elenco_notizie.LockType = 1 elenco_notizie.Open() %> <% Dim elenco_seminari__MMColParam elenco_seminari__MMColParam = "1" If (Request.QueryString("id") <> "") Then elenco_seminari__MMColParam = Request.QueryString("id") End If %> <% Dim elenco_seminari Dim elenco_seminari_numRows Set elenco_seminari = Server.CreateObject("ADODB.Recordset") elenco_seminari.ActiveConnection = MM_scuolaimpresa_STRING elenco_seminari.Source = "SELECT * FROM seminari WHERE id = " + Replace(elenco_seminari__MMColParam, "'", "''") + "" elenco_seminari.CursorType = 0 elenco_seminari.CursorLocation = 2 elenco_seminari.LockType = 1 elenco_seminari.Open() elenco_seminari_numRows = 0 %> <% Dim elenco_prenotazioni__MMColParam elenco_prenotazioni__MMColParam = "1" If (Request.QueryString("id") <> "") Then elenco_prenotazioni__MMColParam = Request.QueryString("id") End If %> <% Dim elenco_prenotazioni Dim elenco_prenotazioni_numRows Set elenco_prenotazioni = Server.CreateObject("ADODB.Recordset") elenco_prenotazioni.ActiveConnection = MM_scuolaimpresa_STRING elenco_prenotazioni.Source = "SELECT * FROM elenco_prenotazioni WHERE seminari.id = " + Replace(elenco_prenotazioni__MMColParam, "'", "''") + " ORDER BY posto ASC" elenco_prenotazioni.CursorType = 0 elenco_prenotazioni.CursorLocation = 2 elenco_prenotazioni.LockType = 1 elenco_prenotazioni.Open() elenco_prenotazioni_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 elenco_notizie_numRows = elenco_notizie_numRows + Repeat2__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 elenco_prenotazioni_numRows = elenco_prenotazioni_numRows + Repeat1__numRows %> ScuolaImpresa - Prenotazione - <%=(elenco_seminari.Fields.Item("relatore").Value)%>

ScuolaImpresaweb

<%=(elenco_seminari.Fields.Item("relatore").Value)%>

<%=(elenco_seminari.Fields.Item("titolo").Value)%>

<% file = elenco_seminari.Fields.Item("file_immagine1").Value if (file <> "") then %>
<% end if%> <% file = elenco_seminari.Fields.Item("file_immagine2").Value if (file <> "") then %>

<% end if%> <% file = elenco_seminari.Fields.Item("file_immagine3").Value if (file <> "") then %>

<% end if%> <% file = elenco_seminari.Fields.Item("file_immagine4").Value if (file <> "") then %>

<% end if%> <% file = elenco_seminari.Fields.Item("file_immagine5").Value if (file <> "") then %>

<% end if%>

<%=Testo_Data_Esteso(elenco_seminari.Fields.Item("data").Value)%>

 

Modulo di prenotazione

Passo 1. Cliccate sul posto di Vostro gradimento.

<% rem Calcolo del numero di righe e colonne posti = elenco_seminari.Fields.Item("num_posti").Value righe = int ( posti / colonne_posti ) resto = posti - righe * colonne_posti if resto > 0 then righe = righe + 1 conta = 0 Rem compone elenco posti occupati DIM posti_occupati(200) While ((Repeat1__numRows <> 0) AND (NOT elenco_prenotazioni.EOF)) posti_occupati(elenco_prenotazioni.Fields.Item("posto").Value) = 1 Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 elenco_prenotazioni.MoveNext() Wend %>

<% i = 1 do while (i <= righe) if ((i = righe) and(resto<>0)) then colonne = resto else colonne = colonne_posti end if %> <% j = 1 Do while (j <= colonne) conta = conta + 1 %> <% j = j + 1 Loop %> <% i = i + 1 Loop %>
<%=conta%>
<% if (posti_occupati(conta)=1) then%> Posto n. <%=conta%> OCCUPATO <% else%> Posto n. <%=conta%> LIBERO <% end if%>

 

Home Page | Chi siamo <%elenco_notizie.MoveFirst()%> <% While ((Repeat2__numRows <> 0) AND (NOT elenco_notizie.EOF)) %> | <% REM se titolo = Seminari allora va alla pagina dei seminari, altrimenti usa la normale pagina di dettaglio della notizia if (elenco_notizie.Fields.Item("titolo").Value="Seminari") then %> <%=(elenco_notizie.Fields.Item("titolo").Value)%> <% else%> "><%=(elenco_notizie.Fields.Item("titolo").Value)%> <% end if%> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 elenco_notizie.MoveNext() Wend %>

 

ScuolaImpresa
Viale Dante, 12/7
Tel. 0434 241523 Fax 0434 243579
e-mail info@scuolaimpresa.com

 

realizzazione web NAONIS.COM sas

 

<% elenco_seminari.Close() Set elenco_seminari = Nothing %> <% elenco_prenotazioni.Close() Set elenco_prenotazioni = Nothing %> <% elenco_notizie.Close() Set elenco_notizie = Nothing %>