Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  SUPPORTO TECNICO VECCHIE VERSIONI
      FUNZIONALITA' PERSONALIZZATE
         Calendario e eventi per piu' giorni

Calendario e eventi per piu' giorni

Autore Messaggio
erreti

Principiante
Principiante
12 Discussioni


Profilo - erreti 		26 settembre 2004 alle 12:08:04 Profilo - erretiInvia un messaggio privato Rispondi quotando
Modificato il 26 settembre 2004 alle 12:13:42
Scusate ma ho postato per sbaglio il messaggio qui invece che nel forum per la versione 2.0

Inserendo degli aventi per piu' giorni con degli apostrofi nei campi, questo viene moltiplicato.
Ho risolto questo problema modificando le seguenti funzioni nel file calendar-inc.asp.


' Inserisci settimane multiple
Function MultiInsert(Data_Inserimento, Author, Data_Evento, Luogo_Evento, Orario_Evento, Categoria_Evento, Titolo_Evento, Dettagli_Evento, N_Settimane, nValid)
Dim oCn, rSQL, rSQL1, n, s, i, orig_Author, orig_Luogo_Evento, orig_Orario_Evento, orig_Categoria_Evento, orig_Titolo_Evento, orig_Dettagli_Evento
Set oCn = DBConnexion(DB_CALENDAR)

orig_Author = Author
orig_Luogo_Evento = Luogo_Evento
orig_Orario_Evento = Orario_Evento
orig_Categoria_Evento = Categoria_Evento
orig_Titolo_Evento = Titolo_Evento
orig_Dettagli_Evento = Dettagli_Evento

rSQL = "INSERT INTO calendar_events (data_inserimento, author, data_evento, luogo_evento, orario_evento, categoria_evento, titolo_evento, dettagli_evento, eValid) VALUES ('" & DateToString(Data_Inserimento) & "', '" & SQLEncrypt(Author) & "', '" & DateToString(Data_Evento) & "', '" & SQLEncrypt(Luogo_Evento) & "', '" & SQLEncrypt(Orario_Evento) & "', '" & SQLEncrypt(Categoria_Evento) & "', '" & SQLEncrypt(Titolo_Evento) & "', '" & SQLEncrypt(Dettagli_Evento) & "', "&nValid&")"
DBExecute oCn, rSQL
n=(N_Settimane * 7 ) - 2
s=1

For i=0 to n
Author = orig_Author
Luogo_Evento = orig_Luogo_Evento
Orario_Evento = orig_Orario_Evento
Categoria_Evento = orig_Categoria_Evento
Titolo_Evento = orig_Titolo_Evento
Dettagli_Evento = orig_Dettagli_Evento

rSQL1 = "INSERT INTO calendar_events (data_inserimento, author, data_evento, luogo_evento, orario_evento, categoria_evento, titolo_evento, dettagli_evento, eValid) VALUES ('" & DateToString(Data_Inserimento) & "', '" & SQLEncrypt(Author) & "', '" & DateToString(DateAdd("d", s, ""&Data_Evento&"")) & "', '" & SQLEncrypt(Luogo_Evento) & "', '" & SQLEncrypt(Orario_Evento) & "', '" & SQLEncrypt(Categoria_Evento) & "', '" & SQLEncrypt(Titolo_Evento) & "', '" & SQLEncrypt(Dettagli_Evento) & "', "&nValid&")"
DBExecute oCn, rSQL1
s = s + 1
Next

oCn.Close
Set oCn = Nothing

MultiInsert = True
End Function

' Inserisci giornate multiple
Function MultiDay(Data_Inserimento, Author, Data_Evento, Luogo_Evento, Orario_Evento, Categoria_Evento, Titolo_Evento, Dettagli_Evento, N_Giorni, nValid)
Dim oCn, rSQL, rSQL1, n, s, i, orig_Author, orig_Luogo_Evento, orig_Orario_Evento, orig_Categoria_Evento, orig_Titolo_Evento, orig_Dettagli_Evento
Set oCn = DBConnexion(DB_CALENDAR)

orig_Author = Author
orig_Luogo_Evento = Luogo_Evento
orig_Orario_Evento = Orario_Evento
orig_Categoria_Evento = Categoria_Evento
orig_Titolo_Evento = Titolo_Evento
orig_Dettagli_Evento = Dettagli_Evento

rSQL = "INSERT INTO calendar_events (data_inserimento, author, data_evento, luogo_evento, orario_evento, categoria_evento, titolo_evento, dettagli_evento, eValid) VALUES ('" & DateToString(Data_Inserimento) & "', '" & SQLEncrypt(Author) & "', '" & DateToString(Data_Evento) & "', '" & SQLEncrypt(Luogo_Evento) & "', '" & SQLEncrypt(Orario_Evento) & "', '" & SQLEncrypt(Categoria_Evento) & "', '" & SQLEncrypt(Titolo_Evento) & "', '" & SQLEncrypt(Dettagli_Evento) & "', "&nValid&")"
DBExecute oCn, rSQL

n=N_Giorni
s=1
For i=0 to n
Author = orig_Author
Luogo_Evento = orig_Luogo_Evento
Orario_Evento = orig_Orario_Evento
Categoria_Evento = orig_Categoria_Evento
Titolo_Evento = orig_Titolo_Evento
Dettagli_Evento = orig_Dettagli_Evento

rSQL1 = "INSERT INTO calendar_events (data_inserimento, author, data_evento, luogo_evento, orario_evento, categoria_evento, titolo_evento, dettagli_evento, eValid) VALUES ('" & DateToString(Data_Inserimento) & "', '" & SQLEncrypt(Author) & "', '" & DateToString(DateAdd("d", s, ""&Data_Evento&"")) & "', '" & SQLEncrypt(Luogo_Evento) & "', '" & SQLEncrypt(Orario_Evento) & "', '" & SQLEncrypt(Categoria_Evento) & "', '" & SQLEncrypt(Titolo_Evento) & "', '" & SQLEncrypt(Dettagli_Evento) & "', "&nValid&")"
DBExecute oCn, rSQL1
s = s + 1
Next

oCn.Close
Set oCn = Nothing

MultiDay = True
End Function


Ad inizio delle due funzioni mi salvo in una variabile quali sono i campi iniziali che poi fanno uso della funzione SQLEncrypt e all'interno del loop ripristino i valori interessati

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 119
Membri : 0 offline Anna

Iscritti

 Utenti: 18940
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2210 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 558 Notizie: 180 Sondaggi: 11 Preferiti: 5685470 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi