<% 'ASP Verzendscript gemaakt door Remco Koemans 'Voor Deining Communicatie '28-02-2006 '******************************************** IF Request.querystring("action")="send" THEN koptekst = "" naam = ""&Request.form("naam") bedrijf = ""&Request.form("bedrijf") straat = ""&Request.form("straat") PP = ""&Request.form("postplaats") tel = ""&Request.form("tel") email = ""&Request.form("email") wil = ""&Request.form("wil") contact = ""&Request.form("contact") wilAnders = ""&Request.form("wilAnders") beschrijving = ""&Request.form("beschrijving") Rechtsvorm = ""&Request.form("Rechtsvorm") andersRechtsvorm = ""&Request.form("andersRechtsvorm") ordners = ""&Request.Form("ordners") boekhouding = ""&Request.Form("boekhouding") omzetbelasting = ""&Request.Form("omzetbelasting") omzetbelastingper = ""&Request.Form("omzetbelastingper") internationaal = ""&Request.Form("internationaal") personeelsleden = ""&Request.Form("personeelsleden") cijfers = ""&Request.Form("cijfers") if naam = "" then koptekst = koptekst & "• S.v.p. uw naam invullen" & "
" if bedrijf = "" then koptekst = koptekst & "• S.v.p. uw bedrijfsnaam invullen" & "
" if straat = "" then koptekst = koptekst & "• S.v.p. uw straat en huisnummer invullen" & "
" if PP = "" then koptekst = koptekst & "• S.v.p. uw postcode en woonplaats invullen" & "
" if tel = "" then koptekst = koptekst & "• S.v.p. uw telefoonnummer invullen" & "
" if email = "" then koptekst = koptekst & "• S.v.p. uw e-mailadres invullen" & "
" if koptekst = "" then 'SEND mails 'Maak een mail aan Set Mail = Server.CreateObject("CDO.Message") 'Mail naar Mail.To = "info@stenoro.nl" 'Mail is van Mail.From = "Stenoro website " 'Mail onderwerp Mail.Subject = "Nieuw bericht van " & naam & " [" & day(date) & "-" & month(date) & "-" & year(date) & "]" 'Mail inhoud (HTML) MailBody = "Nieuw bericht
" MailBody = MailBody & "Naam: " & naam & "
" MailBody = MailBody & "Bedrijfsnaam: " & bedrijf & "
" MailBody = MailBody & "Straat en huisnummer: " & straat & "
" MailBody = MailBody & "Postcode en woonplaats: " & PP & "
" MailBody = MailBody & "Telefoonnummer: " & tel & "
" MailBody = MailBody & "E-mail: " & email & "

" MailBody = MailBody & "Wil graag contact over: " & replace(wil, ",", "
") & "" MailBody = MailBody & wilAnders MailBody = MailBody & "

" MailBody = MailBody & replace(contact, ",", "
") & "
" MailBody = MailBody & beschrijving MailBody = MailBody & "

" MailBody = MailBody & "Rechtsvorm: " & Rechtsvorm & " " & andersRechtsvorm & "

" MailBody = MailBody & "Hoeveel ordners omvat uw administratie? : " & ordners & "
" MailBody = MailBody & "Verwerkt u zelf de boekhouding op de PC? : " & boekhouding & "
" MailBody = MailBody & "Doet u zelf de aangifte omzetbelasting? : " & omzetbelasting & "
" MailBody = MailBody & "De aangifte omzetbelasting moet per : " & omzetbelastingper & "
" MailBody = MailBody & "Doet u internationaal zaken? : " & internationaal & "
" MailBody = MailBody & "Hoeveel personeelsleden heeft u in loondienst? : " & personeelsleden & "
" MailBody = MailBody & "Wilt u tussentijdse cijfers : " & cijfers & "
" MailBody = MailBody & "

" MailBody = MailBody & "IP addres: " & Request.ServerVariables("REMOTE_ADDR") & "" '-------------- Mail.htmlBody = MailBody 'Mail verzenden Mail.Send Set Mail = Nothing Set Mail = Server.CreateObject("CDO.Message") 'Mail naar Mail.To = email 'Mail is van Mail.From = "Stenoro website " 'Mail onderwerp Mail.Subject = "Bevestiging [" & day(date) & "-" & month(date) & "-" & year(date) & "]" 'Mail inhoud (HTML) MailBody = "Dank u wel voor uw aanvraag. Wij nemen zo spoedig mogelijk contact met u op." '-------------- Mail.htmlBody = MailBody 'Mail verzenden Mail.Send Set Mail = Nothing koptekst = "OK" end if ELSE koptekst = "Uw gegevens" END IF %> Stenoro Contactformulier

 

         
|
|


 

 

<% if koptekst = "OK" then %>
Bedankt voor uw aanvraag. Wij nemen zo spoedig mogelijk contact met u op.
<% else %>
Reactieformulier
<% = koptekst %>
Naam:
" size="40">
Bedrijfsnaam:
" size="40">
Straat en huisnummer:
" size="50">
Postcode en woonplaats: " size="50">
Telefoonnummer:
" size="50">
E-mail:
" size="50">

0 then response.write "checked" %>> Ik wil graag dat er contact met mij opgenomen wordt over
0 then response.write "checked" %>>Controller abonnement
0 then response.write "checked" %>>Interim management
0 then response.write "checked" %>>Fiscaal advies
0 then response.write "checked" %>>Financial planning
0 then response.write "checked" %>>Verzorging financiŽle administratie
0 then response.write "checked" %>>Anders, namelijk:

0 then response.write "checked" %>> Ik wil graag een prijsindicatie ontvangen

Korte beschrijving bedrijfsactiviteiten:

Rechtsvorm:
>Eenmanszaak
>VOF
>B.V.
>Stichting/vereniging
>Anders:
Gegevens administratie:
Hoeveel ordners omvat uw administratie?

" size="10">

Verwerkt u zelf de boekhouding op de PC?

>Ja >Nee

Doet u zelf de aangifte omzetbelasting?

>Ja >Nee

De aangifte omzetbelasting moet per

>maand>kwartaal>jaar

Doet u internationaal zaken?

>Ja >Nee

Hoeveel personeelsleden heeft u in loondienst?

" size="10">

Wilt u tussentijdse cijfers

>Ja >Nee

<% end if %>

 


Adresgegevens en contact

Heeft u interesse in één van de diensten van Stenoro of wilt u meer informatie? Neemt u dan contact met ons op. Wij zijn u graag van dienst.

Stenoro
Kuiperbergweg 35
1101 AE Amsterdam Z-O

Tel:020 - 3632622
Fax: 020 - 363 2634 E-mail: info@stenoro.nl

U kunt ook gebruik maken van het reactieformulier.

Tenzij anders overeengekomen, zijn op al onze diensten onze algemene voorwaarden van toepassing.