Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Webprogrammeren & scripting

html en form. in asp

m.t.borst
6 antwoorden
  • Wie kan mij helpen onderstaand script te laten werken, zodat er een html pagina wordt verstuurd, met daarin ingevuld de results van een antwoordformulier.

    Bij voorbaat dank.



    <html>

    <head>
    <meta http-equiv=Content-Type content="text/html; charset=us-ascii">
    <meta name=Generator content="Microsoft Word 10 (filtered)">
    <title>mail versturen met cdonts</title>

    </head>

    <body bgcolor=white lang=NL link=black vlink="#000066" alink=black>

    <div class=Section1>

    <p class=MsoNormal><span style='font-size:10.0pt;font-family:Verdana'>&nbsp;</span></p>

    <%

    Dim MijnMail
    Set MijnMail = CreateObject("CDONTS.NewMail")

    HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & vbCrLf
    HTML = HTML & "<html>"
    HTML = HTML & "<head>"
    HTML = HTML & "<title>Bericht van de Website</title>"
    HTML = HTML & "</head>"
    HTML = HTML & "<body>"
    HTML = HTML & "<center><u><b>Bericht van de website</b></u></center><BR></body>"
    HTML = HTML & "</html>"

    MyBody = Request.Form("Onderwerp") & vbCrLf & Request.Form("Ander Onderwerp") & vbCrLf

    MyBody = MyBody & vbCrLf & Request.Form("Opmerkingen") & vbCrLf

    MyBody = MyBody & vbCrLf & Request.Form("naam")

    MyBody = MyBody & vbCrLf & Request.Form("emailadres")

    MyBody = MyBody & vbCrLf & Request.Form("tel.gebruiker") & vbCrLf


    MijnMail.From = "info@test.nl"
    MijnMail.To = "email@provider.nl"
    MijnMail.Subject = "Bericht van de Website"
    MijnMail.BodyFormat = 0
    MijnMail.MailFormat = 0
    MijnMail.Body = HTML
    ?…..MijnMail.Body = MyBody
    MijnMail.Send
    Set MijnMail = Nothing
    Response.Redirect "bedankt.htm"


    %>


    </div>

    </body>

    </html>
  • Behoorlijk standaard werk vind je ook niet?
    [code:1:4c8bb9e19d]
    <%
    Dim MijnMail
    Set MijnMail = CreateObject("CDONTS.NewMail")

    ' start bericht
    HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & vbCrLf
    HTML = HTML & "<html>"
    HTML = HTML & "<head>"
    HTML = HTML & "<title>Bericht van de Website</title>"
    HTML = HTML & "</head>"
    HTML = HTML & "<body>"
    HTML = HTML & "<center><u><b>Bericht van de website</b></u></center><BR>"

    ' form info
    MyBody = Request.Form("Onderwerp") & "<br />" & Request.Form("Ander Onderwerp") & "<br />"
    MyBody = MyBody & "<br />" & Request.Form("Opmerkingen") & "<br />"
    MyBody = MyBody & "<br />" & Request.Form("naam")
    MyBody = MyBody & "<br />" & Request.Form("emailadres")
    MyBody = MyBody & "<br />" & Request.Form("tel.gebruiker") & "<br />"

    ' afsluiten bericht
    HTML = HTML & MyBody & "</body></html>"


    MijnMail.From = "info@test.nl"
    MijnMail.To = "email@provider.nl"
    MijnMail.Subject = "Bericht van de Website"
    MijnMail.BodyFormat = 0
    MijnMail.MailFormat = 0
    MijnMail.Body = HTML
    MijnMail.Send
    Set MijnMail = Nothing
    Response.Redirect "bedankt.htm"
    Response.End
    %>
    [/code:1:4c8bb9e19d]
  • Annie bedankt, ik ga het even proberen

    vr. gr.
  • Dan hoop ik dat ik geen tikfouten heb gemaakt.
    Ik doe niet aan bugfixing namelijk :grin:
  • Annie, it works! Thanks.

    Nog 1 klein vraagje: kan ik in het te ontvangen e-mail ook de onderwerpen laten weergeven met daarachter de results?

    zoals:
    Onderwerp: result
    Ander onderwerp: result
    Opmerkingen: result
    enz.

    de juiste syntax?
  • Zoals ik al in mijn eerste bericht vermeldde: dit is wel heel erg basic wat je allemaal vraagt.
    Ik zal je een stukje op weg helpen, maar dan verwacht ik wel dat je het zelf verder uitzoekt.

    Als je naar de code kijkt zie je dat, naast de bewerkingen op de mailcomponent, het enige wat er gebeurt het opbouwen van de bericht string is.
    Twee tekstuele waarden knoop je aan elkaar met een ampersand, dus:

    string = "stukje" & "en nog een stukje"
    of
    string = "stukje" & waarde

    Het enige wat je dus moet doen is kijken hoe je het bericht wil hebben. Schrijf de html daarvoor uit en bouw deze daarna op als een lange string in ASP.
    En het mooiste lijkt me dan om de resultaten-waarden in een <table> te zetten.

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.