<% 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! < - BACK - "
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"))%>
hai lasciato questo indirizzo mail:
<%Response.Write(request.Form ("email"))%>
Grazie per averci inviata la tua prenotazione. Riepilogo dati inseriti:
Torna
a trovarci!
<< Torna
all'Home page |
<% end if%>
<% else %>
<% end if %>
|
"CapitanLibri" (pp.
64, Euro 5,00) è il primo repertorio bibliografico sull'editoria di
Capitanata curato dal giornalista Maurizio De Tullio e pubblicatodalle
Edizioni Agorà di Foggia, che editano in rete anche il mensile
www.ilvademecum.it.
Il titolo di questa pubblicazione deriva da una crasi dei termini
"Capitanata" e "Libri" e al di là del prezioso lavoro di raccolta
sistematica dei dati (in questa prima edizione sono censiti circa 350
titoli) è un omaggio ai tanti che, in silenzio o lontano da questo
territorio, hanno prodotto cose importanti e che forse per la prima volta
ottengono la visibilità che meritano.
"CapitanLibri" è il primo titolo della collana 'UtiLibri' e per cominciare
fotografa la produzione editoriale dell?anno 2000 in provincia di Foggia.
Nel volume sono compresi i volumi pubblicati dalle case editrici presenti
sull?intero territorio provinciale e i libri curati dai singoli autori.
L'aspetto più innovativo è rappresentato dalla scelta del curatore di
raccogliere le schede bibliografiche di foggiani che, a vario titolo,
vivono o lavorano fuori dai confini provinciali (o anche all'estero) e che
nel corso dell?anno 2000 hanno dato alle stampe un qualche titolo.
In appendice a "CapitanLibri" sono compresi un elenco aggiornato delle
riviste e delle collane editoriali edite in provincia di Foggia e uno
delle case editrici e dei centri di promozione editoriale operanti nel
territorio.
Nel corso di quest'anno le Edizioni Agorà daranno alle stampe le annualità
2001, 2002 e 2003 di "CapitanLibri" e l'anno prossimo quelle dedicate
agli anni 2004 e 2005.
CAPITANLIBRI - Catalogo dei libri, degli autori, editori e
riviste della provincia di Foggia
di Maurizio De Tullio - Edizioni Agorà - Foggia
€ 5,00 (i.i.) - ISBN 88-89329-009
info@ilvademecum.it
www.ilvademecum.it |
|
