Oggi è il <% Response.Write Day(Now) & "/" & Month(Now) & "/" & Year(Now) %>
Contatti
Usa questo modulo per contattare
la redazione:
<%
If Request.Form("sondaggio") <> "" Then
Dim nome, email, risp
nome = Request.Form("nome")
email = Request.Form("email")
risp = Request.Form("risp")
If nome = "" Then
Response.Write "
Inserisci il tuo nome
"
ElseIf InStr(email, "@") = 0 Then
Response.Write "
Inserisci la tua email
"
ElseIf risp = "" Then
Response.Write "
Inserisci un messaggio
"
Else
Dim MyMail
Set MyMail = Server.CreateObject("CDO.Message")
With MyMail
.To = "info@portaledeigiovani.it" ' Qui la tua email
.From = email
.Subject = "Form portaledeigiovani.it"
.TextBody = risp
.Send
End With
Set MyMail = Nothing
Response.Write "
Email inviata, grazie!
"
End If
End If
%>