<% If Request("aa") = "aa" Then
body = ""
for each item in request.form
If item <> "aa" AND item <> "invia" Then
body=body&""&item&": "&request.form(item)&chr(13)&" "
link=link&item&"="&Request.Form(item)&"&"
End If
next
body = body&""
Dim mail
Set mail = Server.CreateObject("CDO.Message")
mail.From = "info@immagina.com"
mail.To = "info@immagina.com"
mail.Subject = "Richiesta informazioni dal sito"
mail.htmlBody = Body
mail.Send
Set mail = nothing
Response.Redirect("recapiti.asp?invia=ok")
End If %>
Digipac sistemi - contatti e recapiti
Sistemi e macchine per l'imballaggio di fine linea con film estensibile
