Kontaktformular

<% command = Request.Querystring("command") navn = Request.form("navn") telefonnr = Request.form("telefonnr") email = Request.form("email") besked = Request.form("besked") IF command = "send" THEN Dim mail, body Set mail = Server.CreateObject("JMail.SMTPMail") With mail .Subject = "bblaw.dk: Kontaktformular" .Body = "Nedenstående person har udfyldt kontaktformularen på bblaw.dk" & vbCrLf & vbCrLf & "-----------------------" & vbCrLf & "Personoplysninger" & vbCrLf & "-----------------------" & vbCrLf & "Navn: " & navn & vbCrLf & "Telefonnummer: " & telefonnr & vbCrLf & "E-mail adresse: " & email & vbCrLf & vbCrLf & "-----------------------" & vbCrLf & "Besked" & vbCrLf & "-----------------------" & vbCrLf & besked .Sender = "bb@bblaw.dk" .SenderName = "bblaw.dk" .AddRecipient "bb@bblaw.dk" .ServerAddress = "mail.jirty.dk" .Execute End With Set mail = Nothing END IF %>
     

Navn

Telefonnummer

E-mailadresse