Persits MailSender
Hvordan kan det være at den email der står i AddCC kun modtager en blank email ???<%
If Request("Send") <> "" Then
strHost = "post.tele.dk"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "kalvi@booking.com"
Mail.FromName = "Booking"
Mail.AddAddress "kh@flexaholding.dk"
Mail.AddCC "ch@scanner-team.dk"
' Emne
Mail.Subject = "Booking Query"
' Body
Mail.IsHTML = False
Mail.Body = "<HTML><BODY><CENTER>" & strHTML & "</CENTER></BODY></HTML>"
Mail.AltBody = "New Booking:" & Chr(13) & Chr(10) & _
" " & Chr(13) & Chr(10) & _
"===Person data===" & Chr(13) & Chr(10) & _
" " & Chr(13) & Chr(10) & _
"Name: " & request("Navn") & Chr(13) & Chr(10) & _
"Company: " & request("Firma") & Chr(13) & Chr(10) & _
"Adress: " & request("Adresse") & Chr(13) & Chr(10) & _
"Postcode: " & request("Postnummer") & Chr(13) & Chr(10) & _
"City: " & request("By") & Chr(13) & Chr(10) & _
"Contry: " & request("Land") & Chr(13) & Chr(10) & _
"Phone: " & request("Telefon") & Chr(13) & Chr(10) & _
"Fax: " & request("Fax") & Chr(13) & Chr(10) & _
"Email: " & request("Email") & Chr(13) & Chr(10) & _
" " & Chr(13) & Chr(10) & _
"===Booking data===" & Chr(13) & Chr(10) & _
" " & Chr(13) & Chr(10) & _
"Number of persons: " & request("Personer") & Chr(13) & Chr(10) & _
"Number of nights: " & request("Overnatning") & Chr(13) & Chr(10) & _
"Arrival date: " & request("Ankomst") & Chr(13) & Chr(10) & _
"Departure date: " & request("Afrejse") & Chr(13) & Chr(10) & _
"Needs for shuttle-service: " & request("Shuttel") & Chr(13) & Chr(10) & _
"Type of stay: " & request("Type af ophold") & Chr(13) & Chr(10) & _
"Comments: " & request("Kommentar")
Mail.Send ' sender besked
If Err <> 0 Then
response.redirect "../error.asp"
End If
'Mailen er sendt ok
response.redirect "../thanks.asp"
End If
%>
