Bygglaget Östersund AB

Kontaka oss angående oferter

Namn:

Mailadress:

Ärende:

Offertförfrågan:

<% If Request.QueryString("action") = "skicka" Then Name = Request.Form("name") SenderEmail = Request.Form("email") Subject = Request.Form("amne") Recipient = "info@byla.se "' & SenderEmail Body = Request.Form("message") 'Set JMail = Server.CreateObject ("JMail.SMTPMail") ' Below you should enter your own SMTP-server 'JMail.ServerAddress = "smtp.systemetit.se" 'JMail.Sender = SenderEmail 'JMail.Subject = Subject 'JMail.AddRecipientEx Recipient, "jan.forsberg@cybercom.se" 'JMail.AddRecipientEx Epost, Recipient 'JMail.AddRecipientBCC "jan_forsberg@hotmail.com" 'JMail.Body = Body 'JMail.Priority = 3 'JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") 'JMail.Execute 'response.write SenderEmail ' Get the form data 'Name = Request.Form("name") 'SenderEmail = Request.Form("email") 'Subject = "Regarding " & Request.Form("subject") 'Recipient = Request.Form("recipient") 'Body = Request.Form("body") ' Create the JMail message Object set msg = Server.CreateOBject( "JMail.Message" ) ' Set logging to true to ease any potential debugging ' And set silent to true as we wish to handle our errors ourself msg.Logging = true msg.silent = true ' Enter the sender data msg.From = SenderEmail msg.FromName = Name 'Recipientname = "Bygglaget " 'Recipientname=Recipientname=Ö 'Recipientname=Recipientname="stersund " ' Note that as addRecipient is method and not ' a property, we do not use an equals ( = ) sign msg.AddRecipient Recipient, "Byla" if SenderEmail <>"" then msg.AddRecipient SenderEmail, Name end if 'msg.AddRecipientBCC "jan_forsberg@hotmail.com" ' The subject of the message msg.Subject = Subject ' And the body msg.body = Body ' Now send the message, using the indicated mailserver if not msg.Send("smtp.systemetit.se" ) then Response.write "
" & msg.log & "
" else 'Response.write "Message sent succesfully!" response.redirect "kontakta.asp" end if ' And we're done! the message has been sent. 'response.redirect "kontakta.asp" End if %>