<%
If request.form("email")<>"" then
Set Rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT REGISTRAZIONI_FARINOTTI.* FROM REGISTRAZIONI_FARINOTTI;"
Rs.Open Sql, Conn, 1, 3, 1
Rs.AddNew
Rs("DATA")=DATE()
Rs("CODICEATTIVAZIONE")= "DISCOVERY"
Rs("EMAIL")=Request.form("email")
Rs.Update
Rs.Close
Set Rs=Nothing
end if
%>
<%If request.form("email")<>"" then%>
Vivo per miracolo
La tua richiesta è stata inoltrata, riceverai una email con la richiesta dei nominativi da accreditare.
Grazie e buona visione con
DISCOVERY CHANNEL
<%Else%>
Vivo per miracolo
Dai produttori dell'acclamato
Touching the Void,
Discovery Channel presenta una serie spettacolare, avvincente e sconvolgente come solo la realtà può essere.
Anteprima luendì 2 ottobre a Roma (Cinema Nuovo Olimpia ore 20.30) e Milano (Cinema Apollo ore 20.00).
Richiedi un invito gratuito per 2 persone »
<%End If%>
