% lingua = "it" If (Request.Form("act") = "doit" AND Request.Form("url") = "") Then For ix = 1 to Request.Form.Count fieldName = Request.Form.Key(ix) fieldValue = Request.Form.Item(ix) if(fieldName <> "url" AND fieldName <> "Invia" AND fieldName <> "act") Then testo = testo & fieldName & " = " & fieldValue & VbCrLf end if Next oggetto="Richiesta informazioni dal sito internet " & server_name Dim objNewMail Set objNewMail = Server.CreateObject("CDO.Message") objNewMail.From = email_admin_servizio objNewMail.To = email_admin_servizio objNewMail.Bcc = "webmaster@id-lab.it" if request.Form("email") <> "" then replytomail = request.Form("email") objNewMail.ReplyTo = trim(replytomail) end if objNewMail.Subject = oggetto objNewMail.textBody = testo objNewMail.Send Set objNewMail = nothing response.redirect("done.html") 'response.write testo End If %>