<% elseif Request.QueryString("mode") = "send" then %> <% Set JMail = Server.CreateObject("JMail.SMTPMail") Response.Expires = 0 'Her bliver variabler til inputene fra formen defineret Dim strFor, strEfter, strAddresse, strEmail, strTlf, strBesked 'Resten af dokumentet består én stor IF-ELSE sætning som tjekker om formularen allerede 'er blevet udfyldt, hvis den ikke er viser den formularen, ellers sender scriptet form-mailen 'og skriver en lille response på skærmen til brugeren. If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then ' Følgende linier henter dataen fra form-mailen. strNavn = Trim(Request.Form("Navn")) strAddresse = Trim(Request.Form("Adresse")) strEmail = Trim(Request.Form("Email")) strTlf = Trim(Request.Form("Tlf")) strBesked = Trim(Request.Form("Besked")) 'Konfiguration: Her skal du angive din JMAIL server, afsenderen (Her skal normalt stå din e-mail), 'Titlen på e-mailen samt modtagerne (Hvis du vil have flere modtagere adskiller du blot modtagernes e-mail addresser med et komma.) JMail.ServerAddress = "127.0.0.1" JMail.sender = strEmail JMail.subject = "Besked fra hjemmesiden" JMail.AddRecipient "info@dgb-samsoe.dk" 'Her bliver e-mailen til et "ENTER" bliver angivet med: "& VbCrLF" JMail.Body = "Besked fra kontaktformular: " & VbCrLf & VbCrLf JMail.Body = JMail.Body & "Navn: " & strNavn & VbCrLf JMail.Body = JMail.Body & "Adresse: " & strAddresse & VbCrLf JMail.Body = JMail.Body & "Telefonnummer: " & strTlf & VbCrLf JMail.Body = JMail.Body & "E-mail: " & strEmail & VbCrLf & VbCrLf JMail.Body = JMail.Body & "Besked: " & VbCrLf & strBesked & VbCrLf JMail.Body = JMail.Body & strCv 'Her bliver form-mailens prioritet bestemt ' 1 - højeste (Haster / Vigtigt) ' 3 - normal ' 5 - lavest JMail.Priority = 3 JMail.Execute %>

Tak for din besked. Vi vil vende tilbage til dig hurtigst muligt.

Med venlig hilsen
Det Gamle Bageri. <% End if %> <% End if %>