<%@ Language=VBScript%> <% '========================================================= 'Script per l'inserimento di una nuova firma nel GuestBook 'per informazioni contattare: byluciani.com ' webmaster@byluciani.com '========================================================= Option Explicit Response.Buffer = True Dim Start Start = Timer() %> <% Dim Azione Dim Nominativo, Citta, Nazione, EMail, URL, Testo, TestoDuplicato Azione = Request.Form("Azione") If IsEmpty(Azione) OR Azione = "" Then %> <% End If If Azione = "check" then Function Controllo(campo, messaggio) If IsEmpty(campo) or campo="" then Response.Write "" Response.Write "Ops!

"& messaggio &"" Response.Write "" %> <% Response.End Else Controllo = campo End If End Function Nominativo = Controllo(Request.Form("Nominativo"), "Devi inserire il nome.") Citta = Controllo(Request.Form("Citta"), "Devi inserire la città.") Nazione = Controllo(Request.Form("Nazione"), "Devi inserire la nazione.") Email = Request.Form("Email") If Trim(Request.Form("URL")) = "http://" Then URL = "" Else URL = Request.Form("URL") End If Testo = Controllo(Request.Form("Testo"), "Non dimenticare di inserire il tuo commento!") TestoDuplicato = Testo TestoDuplicato = Request.Form("Testo") TestoDuplicato = Replace(TestoDuplicato, "<", "<") TestoDuplicato = Replace(TestoDuplicato, ">", ">") TestoDuplicato = Replace(TestoDuplicato, vbCrLf, "
") Azione = Request.Form("Azione") %>

INSERIMENTO SMS

Queste sono le informationi che hai appena inserito. Se desideri fare qualche cambiamento clicca su MODIFICA, altrimenti clicca su OK.

Nome: <%=Nominativo%>
Città: <%=Citta%>
E-Mail: <%=Email%>
HomePage: <%=URL%>
SMS:
<%=TestoDuplicato%>

<% End If If Azione = "salva" then Nominativo = Request.Form("Nominativo") Nominativo = Replace(Nominativo, "'", "''") Citta = Request.Form("Citta") Citta = Replace(Citta, "'", "''") Nazione = Request.Form("Nazione") Nazione = Replace(Nazione, "'", "''") Email = Request.Form("Email") URL = Request.Form("URL") Testo = Request.Form("Testo") Testo = Replace(Testo, "'", "''") Dim objConn, objRS, sql Set objConn = GetDatabaseConn() sql = "INSERT INTO guestbook (Nominativo,Citta,Nazione,Email,URL,Testo)" sql = sql & " VALUES (" sql = sql & "'" & Nominativo & "'," sql = sql & "'" & Citta & "'," sql = sql & "'" & Nazione & "'," sql = sql & "'" & Email & "'," sql = sql & "'" & URL & "'," sql = sql & "'" & Testo & "'" sql = sql & ")" Set objRS = objConn.execute(sql) 'gestione errori If err.number > 0 then Response.Write "Si è verificato un errore di VBScript:" & "

" Response.Write "Numero Errore " & err.number & "

" Response.Write "Descrizione: " & err.description & "

" Response.Write "Help Context: " & err.helpcontext & "

" Response.Write "Help Path: " & err.helppath & "

" Response.Write "Native Error: " & err.nativeerror & "

" Response.Write "Sorgente: " & err.source & "

" Response.Write "SQLState: " & err.sqlstate & "

" End If If objConn.errors.count > 0 then Response.Write "Si è verificato un errore sul Database" & "

" Response.Write SQL & "

" For counter= 0 to objConn.errors.count Response.Write "Errore #" & objConn.errors(counter).number & "

" Response.Write "Descrizione: " & objConn.errors(counter).description & "

" Next Else Response.Write "

" Response.Write "Grazie!
il tuo SMS è stato aggiunto.

" Response.Write "" Response.Write "Visualizza Gli altri Sms pronti

" End If Set objRS = Nothing objConn.Close Set objConn = nothing If inviaemail Then Call InvioEmail 'per notificare al webmaster una nuova firma via email End If Sub InvioEmail() 'notifica al webmaster, via email, dell'inserimento di una nuova firma Dim Mail, Mittente, Messaggio Set Mail = CreateObject("CDONTS.Newmail") If Request("email") = "" Then 'se chi firma non immette la propria email allora utilizzare quella del webmaster Mittente = emailwebmaster Else Mittente = Request("email") End If Mail.From = Mittente Mail.To = emailwebmaster Mail.Subject = "Nuovo sms TVB inserito" Messaggio = "Nome: " & request("Nominativo") & VbCrLf Messaggio = Messaggio & "Città: " & request("Citta") & VbCrLf Messaggio = Messaggio & "Nazione: " & request("Nazione") & VbCrLf Messaggio = Messaggio & "HomePage: " & URL & VbCrLf Messaggio = Messaggio & "Commenti:" & VbCrLf Messaggio = Messaggio & Request("Testo") Mail.Body = Messaggio Mail.Send Set Mail = Nothing End Sub Dim Finish, TotalTime Finish = Timer() TotalTime = Finish - Start %>
Questa pagina è stata eseguita in <%=TotalTime%> secondi