<% Dim err, errnavn, erremail, errbeskjed If Request.Form("Send") <> "" Then err = "" errnavn = "" erradresse = "" errbeskjed = "" strtil = "post@markedspool.no" strfra = "Kontakskjema Markedspool" strmottaker = Trim(Request.Form("recipient")) strsubject = Trim(Request.Form("subject")) strnavn = Trim(Request.Form("navn")) stradresse = Trim(Request.Form("adresse")) strpoststed = Trim(Request.Form("poststed")) strtlf = Trim(Request.Form("tlf")) stremail = Trim(Request.Form("email")) strkommentar = Trim(Request.Form("kommentart")) If Len(strnavn) = 0 then errnavn = "Fyll ut navn!" end If If Len(stremail) = 0 then erremail = "Fyll ut e-postadresse!" end If If Len(strkommentar) = 0 then errbeskjed = "Fyll ut en kommentar!" end If err = errnavn + erremail + errbeskjed if Len(err) = 0 then strHost = "193.71.150.34" Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = strmottaker Mail.FromName = strfra Mail.AddAddress strtil ' message subject Mail.Subject = strsubject ' message body Mail.Body = "Navn: " & strnavn & "
Adresse: " & stradresse & "
Poststed: " & strpoststed & "
Telefon: " & strtlf & "
E-postadresse: " & stremail & "
Beskjed: " & strkommentar Mail.IsHTML = True Mail.Send ' send message response.redirect "takk.htm" end if End If %> Markedspool AS
 

Tlf.(+47) 62 41 97 25 Fax (+47) 62 41 97 01 E-post: post@markedspool.no
 

 

Om oss
Produkter
Nettbutikk
Kontakt oss
Hovedside

 

Navn <%=errnavn%>
Adresse
Postnr/sted
Telefon
E-mail <%=erremail%>
Kommentar <%=errbeskjed%>
 


 

 
Markedspool AS Grindalsvn. 14 N-2406 ELVERUM