![]() ![]() editoria § grafica § comunicazione |
Agorà
Servizi
Editoriali
di Arcangelo Renzulli |
|
MODULO DI PRENOTAZIONE "Dizionario Biografico di Capitanata 1900-2008" |
<% modulocontact = request.querystring("mode") if modulocontact = "send" then %> <% Response.ExpiresAbsolute=Now() Dim bChkSintaxEmail Function chkSintaxEmail(sEmail) Dim lPosAt Dim lLenName Dim sDomain Dim lLenDomain Dim lPosDotInDomain Dim i 'Reperisco la posizione della "@" lPosAt = InStr(sEmail, "@") 'Reperisco la lunghezza del testo che precede la "@" lLenName = lPosAt - 1 'Reperisco lunghezza del testo dopo la "@" lLenDomain = Len(sEmail) - lPosAt 'Reperisco il testo dopo la "@" sDomain = Right(sEmail, lLenDomain) 'Reperisco se e' presente almeno un "." nel testo dopo la "@" lPosDotInDomain = InStrRev(sDomain, ".") 'Controlli sull'email specificata: ' 1) Esiste il carattere "@". ' 2) Il nome utente e' almeno di 3 caratteri. ' 3) Il nome del dominio e' almeno di 3 caratteri. ' 4) C'e' almeno un "." nel nome di dominio. If lPosAt <> 0 And _ lLenName >= 3 And _ lLenDomain >= 3 And _ lPosDotInDomain <> 0 Then bChkSintaxEmail = True else bChkSintaxEmail = False End If End Function email = lcase(request.form("email")) chkSintaxEmail(email) If bChkSintaxEmail = false Then Response.Write "

invalid E-Mail!
" else dominioposta = "ilvademecum.it" mex = "Il Signor: " &request.form("Contatto_NomeCompleto") &""&VbCrLf & VbCrLf &_ " - Indirizzo: "&request.form("Contatto_Indirizzo") &""&VbCrLf &_ " - Città: "&request.form("Contatto_Citta") &""&VbCrLf &_ " - Provincia: "&request.form("Contatto_Provincia") &""&VbCrLf &_ " - Cap: "&request.form("Contatto_CAP") &""&VbCrLf &_ " - Codice Fiscale o Partita Iva: "&request.form("Cod_fisc") &""&VbCrLf &_ " - Intestazione Fattura: "&request.form("Int_fat") &""&VbCrLf &_ " - Tel: "&request.form("Contatto_Tel") &""&VbCrLf &_ " - Email: "&request.form("email") &""&VbCrLf & VbCrLf &_ " - Copie: "&request.form("Copie") &""&VbCrLf &_ " - ha richiesto di essere contattato telefonicamente?: "& request.form("contact") Set link = CreateObject("CDONTS.Newmail") link.From = request.form("email") link.To = "info@"&dominioposta link.Subject = "prenotazione by www.ilvademecum.it" link.Body = mex link.importance=2 link.Send Set link = Nothing %>|
Caro utente
<%Response.Write(request.Form ("Contatto_NomeCompleto"))%>
Torna a trovarci! |
|
Il «Dizionario Biografico di Capitanata»
Tre anni
di ricerche, 320 pagine, quasi 600 Schede Biografiche con centinaia di foto.
E’ la sintesi del «Dizionario Biografico di Capitanata - 1900-2008»
curato dal giornalista Maurizio De Tullio per conto delle Edizioni Agorà di
Foggia, un’opera al momento unica nel suo genere, che colma un vuoto
culturale, informativo ed editoriale di ben 105 anni.
DIZIONARIO BIOGRAFICO DI CAPITANATA |