<% 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

<% If errMsg <> "" Then %> <% End If %>
<%=errMsg%>
Alla uppgifter är obligatoriska
Förnamn:
Efternamn:
Adress:
Postnummer:
Postort:
E-postadress:
Tel nr:
Båtens vikt:
Djup där bojen ska ligga:
Skyddat/Oskyddat läge:
Bottenbeskaffenhet (lera, sten, berghällar, etc):
Båt på svaj?
 
<% Else %>


 

Tack för din beställning!
Vi kontaktar dig så snart vi kan!



<% End If %>