Bygglaget Östersund AB

Kontaka oss angående oferter

Namn:

Mailadress:

Offertförfrågan:

<%if request.querystring("do")="savesend" then KontaktPerson = Request.Form("name") EPOST = Request.Form("email") strText = Request.Form("message") szBody =strText ' Create JMail objekt Set JMail = Server.CreateObject("JMail.SMTPMail") ' This is my local SMTP server JMail.ServerAddress = "smtp.systemetit.se" JMail.ContentType = "text/html" szNewLine = "
" szFileExt = "html" szTextType = "HTML" JMail.Sender = EPOST JMail.SenderName= KontaktPerson szSubject = "Offert" JMail.Subject = szSubject if EPOST <> "jan.forsberg@cybercom.com" Then JMail.AddRecipientEx EPOST, KontaktPerson JMail.AddRecipientEx "info@byla.se", "Bygglaget Östersund " JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") JMail.Body = szBody ' Send it... IF NOT JMail.execute THEN Response.Write( "ERROR MESSAGE: " & JMail.ErrorMessage & "
" & vbcrlf ) Response.Write( "ERROR SOURCE: " & JMail.ErrorSource & "
" & vbcrlf ) Response.Write( "LOG: " & JMail.Log & "
" & vbcrlf ) Else %>
Ärendet är nu skickad:
<% End If JMail.Close 'Response.Redirect "kontakta.asp" end if %>