% Function sendEmail(senderName,senderAddress,recipientsEmail,recipientsName,subject,body) On error resume next Dim mySmartMail Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail") mySmartMail.Server = "smtp1.webbpost.se" mySmartMail.SenderName = senderName mySmartMail.SenderAddress = senderAddress mySmartMail.Recipients.Add recipientsEmail, recipientsName mySmartMail.Subject = subject mySmartMail.Body = body mySmartMail.SendMail If Err.Number<>0 Then sendEmail = "Error: " & Err.description Else sendEmail = "Success!" '"An e-mail has just been sent to " & mySmartMail.Recipients.Item(1).Name & "." End If End Function %>
<% If Request.Querystring("form") = "send" Then errMsg = "" 'Hämtar formulär data dataFirstName = Request.Form("dataFirstName") dataLastName = Request.Form("dataLastName") dataAddress = Request.Form("dataAddress") dataZipCode = Request.Form("dataZipCode") dataCity = Request.Form("dataCity") dataEmail = Request.Form("dataEmail") dataPhone = Request.Form("dataPhone") dataBoat = Request.Form("dataBoat") dataDepth = Request.Form("dataDepth") dataPlace = Request.Form("dataPlace") dataBottom = Request.Form("dataBottom") dataSvaj = Request.Form("dataSvaj") 'Kollar data If dataFirstName = "" OR dataLastName = "" OR dataAddress = "" OR dataZipCode = "" OR dataCity = "" OR dataEmail = "" _ OR dataPhone = "" OR dataBoat = "" OR dataDepth = "" OR dataPlace = "" OR dataBottom = "" OR dataSvaj = "" Then errMsg = "Du måste fylla i alla fält (inkl en korrekt e-postadress)." Else If dataPlace = 0 Then dataPlaceText = "Oskyddat" Else dataPlaceText = "Skyddat" End If If dataSvaj = 0 Then dataSvajText = "Nej" Else dataSvajText = "Ja" End If End If If errMsg = "" Then 'Skickar e-post body = "Beställning skickad från webbformulär " & now() & Vbcrlf & Vbcrlf body = body & dataFirstName & " " & dataLastName & Vbcrlf body = body & dataAddress & Vbcrlf & dataZipCode & " " & dataCity & Vbcrlf & Vbcrlf body = body & dataEmail & Vbcrlf & dataPhone & Vbcrlf & Vbcrlf body = body & "Båtens vikt: " & dataBoat & Vbcrlf body = body & "Djup där bojen ska ligga: " & dataDepth & Vbcrlf body = body & "Skyddat/Oskyddat läge: " & dataPlaceText & Vbcrlf body = body & "Bottenbeskaffenhet (lera, sten, berghällar, etc): " & dataBottom & Vbcrlf body = body & "Båt på svaj? " & dataSvajText & Vbcrlf & Vbcrlf sendMail = sendEmail(dataFirstName & " " & dataLastName,"henrik@willers.se","henrik@willers.se","BojNet","Webb-beställning: BojNet",body) If sendMail <> "Success!" Then errMsg = "Du måste fylla i alla fält (inkl en korrekt e-postadress)." End If End If End If %> <% If Request.Querystring("form") <> "send" OR (Request.Querystring("form") = "send" AND errMsg <> "") Then %>
Fyll i uppgifterna nedan så kontaktar vi dig! Vid leverans kommer BojNet till dig per post.
1) Fyll i uppgifterna
2) Vi kontaktar dig för bekräftelse
3) Vi skickar BojNet till dig per post
Tack för din beställning!
Vi kontaktar dig så snart vi kan!