% content = Request("content") IF content = "kontakt" then strFlash = "peclokal.swf" Else strFlash = "stefan_sv.swf" IF Request("sendmail") = 1 then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.CharSet = 2 Mailer.FromName = Request.Form("namn") Mailer.FromAddress= Request.Form("epost") Mailer.RemoteHost = "qmail.tdcwebmore.se" Mailer.AddRecipient "Simon Blomster", "simon.blomster@pec.se" 'Mailer.AddRecipient "Tommy Nässén", "tommy.nassen@pec.se" Mailer.Subject = "Webbkontakt" Body = "Skickades: " & Now() & VbCrLf & VbCrLf Body = Body & "Ärende: " & Request.Form("Errand") & VbCrLf & vbCrLf Body = Body & "Namn: " & Request.Form("namn") & VbCrLf Body = Body & "Företag: " & Request.Form("foretag") & VbCrLf Body = Body & "Telefon:" & Request.Form("telefon") & VbCrLF Body = Body & "Fax:" & Request.Form("Fax") & VbCrLF Body = Body & "E-post:" & Request.Form("epost") & VbCrLF & VbCrLf Body = Body & "Meddelande: " & Request.Form("meddelande") & VbCrLf & VbCrLf Body = Body & "Från IP: " & Request.ServerVariables("REMOTE_ADDR") Mailer.BodyText = Body if Mailer.SendMail then Response.Redirect "index.html" else intError = 1 strError = "Ett fel uppstod: " & Mailer.Response end if End IF %>
Pan European Callcenter
|
|
Simon Blomster, Platschef |
Fyll i nedanstående formulär för snabb och enkel kontakt med Pan European Callcenter.
