%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% If Request.Form.Count > 0 Then For I = 1 to Request.Form.Count Body = Body & Request.Form.Key(I) & " " _ & Request.Form.Item(I) & vbCRLF Next '*** send email notice Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mrvnet.kundenserver.de" Mailer.FromName = "ISL" Mailer.FromAddress = "info@isl-biometrics.com" Mailer.AddRecipient "info", "info@isl-biometrics.com" Mailer.AddRecipient "info", "diane@diagram-services.com" Mailer.Subject = "Contact Us" Mailer.BodyText = Body Mailer.SendMail Set Mailer = Nothing Response.Redirect "contact/thankyou.asp" End If %>
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||