<%@ Language=VBScript %> <% cnLettere.open Set rs = Server.CreateObject("ADODB.Recordset") if Request.QueryString("in") <>"" then rs.Open "SELECT * FROM Lettere",cnLettere,3,3 strErr="" if Request.Form("Autore")="" then strErr= strErr + " - Inserire il nome dell'autore
" end if if Request.Form("Titolo")="" then strErr= strErr + " - Inserire il titolo della lettera
" end if if Request.Form("Lettera")="" then strErr=strErr + " - Inserire la lettera
" end if end if %>

	<% if Request.QueryString("in")="" then %> Autore: Titolo: Smile: Lettera: <% else %> <% else rs.AddNew rs("Autore")=Request.Form("Autore") rs("Smile")=Request.Form("Icona") rs("Data")=date rs("Titolo")=Request.Form("Titolo") rs("Lettera")=Request.Form("Lettera") rs.Update 'INVIA L' EMAIL Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From="albertomandolesi@hotmail.com" objMail.To="albertomandolesi@hotmail.com" objMail.Subject="Lettera dal sito" mssg = "Lettera scritta il: " & cstr(date) & vbCrLf & vbCrLf mssg = "Lettera da: " & Request.Form("autore") & vbCrLf & vbCrLf mssg = mssg & "Titolo:" & Request.Form("Titolo") & vbCrLf mssg = mssg & "Lettera:" & Request.Form("Lettera") objMail.Body=mssg objmail.Send Set objMail = nothing rs.Close set rs=nothing cnlettere.close set cnlettere=nothing %> Grazie per avermi scritto. Vi risponderò il prima possibile. <% end if %> <% if strErr<>"" then Response.Write ("Errori di immissione: " + strErr) %> <% end if %>