Untitled Document

<%@ Language = "VBScript"%> <% if request.querystring("ep") = "send" then dim navn, adresse, postnummer, poststed, telefon, epost, kommentar navn = request.form("navn") adresse = request.form("adresse") postnummer = request.form("postnummer") poststed = request.form("poststed") telefon = request.form("telefon") epost = request.form("epost") kommentar = request.form("kommentar") Dim mailer dim Innhold Innhold = "En epost har blitt sendt av " & request.form("navn") & " med epostadresse: " & request.form("epost") & "
"_ & "Følgende info er registrert:
"_ & "Navn: " & navn & "
"_ & "Adresse: " & adresse & "
"_ & "Postnummer: " & postnummer & "
"_ & "Poststed: " & poststed & "
"_ & "Telefon: " & telefon & "
"_ & "Epostadresse: " & epost & "
" _ & "Kommentar/spm: " & kommentar 'response.write(Innhold) 'response.end Set Mailer = Server.CreateObject("JMail.SMTPMail") Mailer.ContentType = "text/html" Mailer.ISOEncodeHeaders = false Mailer.ContentTransferEncoding = "8bit" Mailer.ServerAddress = "smtp.webonline.no" Mailer.Sender = "auto@candybouquet.no" ' Mailer.AddRecipient epost 'ENO holdes denne som erstatning for DEBUG Mailer.AddRecipient "post@candybouquet.no" Mailer.Subject = "Ny mulig franchisetaker?" Mailer.Body = Innhold Mailer.Execute Set Mailer = Nothing response.write("Takk for din henvendelse.") response.end end if %> Untitled Document

Navn*
Adresse
Postnummer
Poststed
Telefon*
Epost
Eventuelle kommentarer/ spørsmål
* må fylles ut
\|Postboks 327 Skøyen \| 0213 Oslo Norway \| \| Tel +47 2255 2255\| Fax+47 2255 2250 \| Email post@candybouquet.no \| Made with premission from Candy Bouquet International Copyright ©1996-2001 Candy Bouquet International, Inc.