<%@language=vbscript%>
<%
Dim site_name
Dim email_target
Dim fs
sub verifica()
Set fs = CreateObject("Scripting.FileSystemObject")
If (fs.FileExists(Server.MapPath("formmail.ini"))) Then
else
set b = fs.CreateTextFile(Server.MapPath("formmail.ini"), True)
b.close
data_form=Server.MapPath("formmail.ini")
Set a = fs.OpenTextFile(data_form, 8, True)
a.WriteLine "[Proprietario]"
a.WriteLine "Nome = Comunicando con Quartavia.org"
a.WriteLine "Email = informations@quartavia.org"
a.close
response.write "Errore di accesso al modulo. Contattare il supporto tecnico."
response.end
end if
data_form=Server.MapPath("formmail.ini")
Set a = fs.OpenTextFile(data_form, 1, FALSE)
Do while Not a.AtEndOfStream
Strings = a.ReadLine
if lcase(left(Strings, 4))="nome" then
pos_site_name=instr(Strings, "=")+1
site_name=trim(mid(Strings, pos_site_name))
elseif lcase(left(Strings, 5))="email" then
pos_email=instr(Strings, "=")+1
email_target=trim(mid(Strings, pos_email))
end if
Loop
a.Close
Set fs = Nothing
if email_target="" or email_target = "" then
response.write "Errore di accesso al modulo. Contattare il supporto tecnico."
response.end
elseif site_name="" then
site_name=email_target
end if
end sub
On error resume next
verifica()
%>
Write Us - Quartavia.org
CONTACT
FORM
If
you want to take part in the “banner
exchange” operation, establish
collaborations, if you are online
bookshops and you want to offer
discounts to our visitors, if you want
to register for the Forum, if you want
to write to our “POST” column or
simply send us a message or request
information, use the form below:
Have
you got an article or document about the
Fourth way?Send
it to us!
We will publish it.
In
accordance with Italian law 675 on
privacy, we advise you that your data,
given on this form, will not in any way
be divulged to third parties, and will
not be used for purposes other than
those specified.
In
this regard we also advise you that by
filling in this form you implicitly
accept these conditions.
