[asp] online questionaire form resultaten mailen?!

[_mitch_]

Hi,

Ik wil graag de resultaten van een online questionaire (formulier met vragen, keuzes en verschillende input velden) bij een submit, via email laten versturen (asp).

Een standaard mailform is geen probleem, daar zijn genoeg scripjes voor te vinden (o.a. hier na een search) en heb ik zo aan de praat.
Wat ik echter niet goed kan vinden is, hoe nu de inhoud van al die verschillende velden netjes gemaild te krijgen (middels smtp sendmail). Ik heb er niet bijzonder veel verstand van. Dat een standaard mailform met de velden name, subject, emailadres en message wel weg gaat is me duidelijk. Om nu alle resultaten van een uitgebreider formulier te stoppen in een bericht, is echter de vraag?!

Ik heb wat gelezen over strings, maar begrijp er niet veel van...

Iemand die me kan helpen?

Thnx,

Mitch.

[Jaspertje]

Je zal dus de message een opmaak mee moeten geven.. ik denk dat dat wel kan met behulp van HTML, alleen moet de ontvanger wel HTML accepteren (dolfijn doet dat bv niet, maar hotmail wel om ff een simpel voorbeeld te noemen)

Hoe doe je het nu? Dan kunnen we misschien sturen, want niet geschoten, dan zit je hier mis (oftewel laat wat zien anders zullen sommige het snel een scriptrequest noemen.. en dat mag nie..)

[ Voor 31% gewijzigd door Jaspertje op 03-11-2003 10:48 ]

[_mitch_]

Het formulier ziet er overigens als volgt uit:

--

<FORM name="questionaire" ACTION="formtomail.asp" METHOD="POST" onSubmit="return CheckRequiredFields()">
<INPUT TYPE="hidden" NAME="betreft" VALUE="Questionaire">

<table border="0">
<tr>
<td>Voornaam:</td>
<td><input type="text", name="voornaam" size="30"></td>
</tr>
<tr>
<td>Achternaam:</td>
<td><input type="text", name="achternaam" size="30"></td>
</tr>
<tr>
<td>Telefoonnummer:</td>
<td><input type="text", name="telefoonnummer" size="30"></td>
</tr>
<tr>
<td>E-mail adres:</td>
<td><input type="text", name="emailadres" size="30"></td>
</tr>
</table>
<br>
Leeftijdscategorie (in jaren):<br>
<input type="radio" name="leeftijd" value=" jonger dan 25">
jonger dan 25<br>
<input type="radio" name="leeftijd" value=" tussen 25 en 35">
tussen 25 en 35<br>
<input type="radio" name="leeftijd" value=" tussen 35 en 45">
tussen 35 en 45<br>
<input type="radio" name="leeftijd" value=" ouder dan 45">
ouder dan 45<br>
<br>
Maak hieronder uw keuze(s):<br>
<input type="checkbox" name="keuze" value=" Ik wil graag extra informatie">
Graag ontvang ik extra informatie<br>
<input type="checkbox" name="keuze" value=" Ik wil graag contact">
Neemt svp contact met mij op<br>
<input type="checkbox" name="keuze" value=" Ik heb geen interesse, want:">
Ik heb geen interesse, want:<br>

<ul><textarea name="reden_geen_interesse" rows="3" cols="50">
</textarea></ul>

<br>Eventuele opmerkingen:<br>
<br>
<textarea name="opmerkingen" rows="5" cols="60">
</textarea>
<br>
<br>
<input type="submit" value="Questionaire verzenden">
<br>
<br>
<br>
<input type="reset" value="Questionaire leeg maken">
</form>

--

[Folkert]

Voorbeeld
Vraag al je variabelen op dmv een request.form

ASP:

Dim varVoornaam, varAchternaam
varVoornaam = request.form("voornaam")
varAchternaam = request.form("achternaam")

vervolgens kan je een string aanmaken.

ASP:

Dim stringBody
stringBody = "De voornaam is: " & varvoornaam & "De achternaam is: " & varAchternaam

Uiteindelijk plaats je deze variabelen in je mailobject.

ASP:

Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "[e-mail]"
objCDO.To = "[e-mail]"
objCDO.CC = ""
objCDO.Subject = "Onderwerp"
objCDO.Body = stringBody
objCDO.BodyFormat = 0
objCDO.MailFormat = 0
objCDO.Send()
Set objCDO = Nothing

[_mitch_]

Is dat request.form een apart bestand? en zoja, hoe roep je dat aan?
Waar plaats ik de variabelen en de string? in hetzelfde formulier?

m.a.w. hoe verwerk ik je tip tot een werkend geheel?

[Jaspertje]

Je hebt de basis principes van HTML/ASP nog niet echt onder controle denk ik, als je niet weet wat request.Form is, mwa

Als je een HTML formulier submit (input type=submit) of (document.submit();) dan geef je in je <form> tag een action mee:

C++:

<form method=post action="bla.asp">
<input type=text name="test">
<input type=submit value="submit">
</form>

Als je dan op bla.asp het volgende doet:

C++:

request.form("test")

Dan krijg je de waarde te zien die ingevuld is in het textvlak
c++ geeft de <> tenmiste goed weer

Maar dit alles doe je wel al zie ik nu sorry
nu moet je dus op formtomail.asp al je dingen uitvragen door middel van request.form

kleine hint zoek eens meer over:

code:

for each item in request.form
next

[ Voor 57% gewijzigd door Jaspertje op 03-11-2003 11:18 . Reden: typo's ]

[_mitch_]

Dit is mijn formulier regel:

<FORM name="questionaire" ACTION="formtomail.asp" METHOD="POST" onSubmit="return CheckRequiredFields()">

Deze variabelen maak ik aan, inclusief string:

ASP:

Dim varvoornaam, varachternaam, vartelefoonnummer, varemailadres, varleeftijd, varkeuze, varreden_geen_interesse, varopmerkingen

varvoornaam = request.form("voornaam")
varachternaam = request.form("achternaam")
vartelefoonnummer = request.form("telefoonnummer")
varemailadres = request.form("emailadres")
varleeftijd = request.form("leeftijd ")
varkeuze = request.form("keuze")
varreden_geen_interesse = request.form("reden_geen_interesse")
varopmerkingen = request.form("opmerkingen")


Dim stringBody
stringBody = "De voornaam is: " & varvoornaam & "De achternaam is: " & varachternaam & "Het telefoonnummer is: " & vartelefoonnummer & ... etc.

Waar staan deze variabelen?

ASP:

Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "[e-mail]"
objCDO.To = "[e-mail]"
objCDO.CC = ""
objCDO.Subject = "Onderwerp"
objCDO.Body = stringBody
objCDO.BodyFormat = 0
objCDO.MailFormat = 0
objCDO.Send()
Set objCDO = Nothing

Waar plaats je request.form?

[_mitch_]

ik zie nog twee vraagjes trouwens ... het aangegeven mailscript ken ik nog niet.

Krijgt elke waarde in de verzonden mail nu een eigen regel waardoor de mail leesbaar is? en...

Waar stop ik de verwijzing naar een html pagina, die aangeeft dat de mail verzonden is?

Thnx weer.

[Janoz]

De bovenstaande code zul je ergens in formtomail.asp moeten plaatsen.

(ad)

Je eerste vraag geeft eigenlijk aan dat je niks hebt begrepen van de aangeleverde code. Lees deze nog eens even goed door en probeer te begrijpen wat er gebeurt.

[ Voor 57% gewijzigd door Janoz op 03-11-2003 11:38 ]

[_mitch_]

De variabelen moeten in het formtomail.asp bestand dat bestaat uit de variabelen en het aangeleverde stukje script om het fomulier te versturen. Dat is wat ik er van begrijp... ik ben nu bezig met het implementeren van de stukjes om te kijken of het werkt. Toch vrees ik dat wat vraagjes ook nu nog open staan...

Thnx anyway!

[_mitch_]

Ok, het werkt helaas niet... wat is er mis met onderstaand script

Het formtomail.asp bestand ziet er nu als volgt uit:

HTML:

<html>
<head>
<title>Questionaire send</title>
</head>
<body>
<%
Dim varvoornaam, varachternaam, vartelefoonnummer, varemailadres, varleeftijd, varkeuze, varreden_geen_interesse, varopmerkingen

varvoornaam = request.form("voornaam")
varachternaam = request.form("achternaam")
vartelefoonnummer = request.form("telefoonnummer")
varemailadres = request.form("emailadres")
varleeftijd = request.form("leeftijd")
varkeuze = request.form("keuze")
varreden_geen_interesse = request.form("reden_geen_interesse")
varopmerkingen = request.form("opmerkingen")

Dim stringBody
stringBody = "Voornaam: " & varvoornaam & "Achternaam: " & varachternaam & "Telefoonnummer: " & vartelefoonnummer & "E-mailadres: " & varemailadres & "Leeftijdcategorie: " & varleeftijd & "De gemaakte keuze(s): " & varkeuze & "Reden geen interesse: " & varreden_geen_interesse & "Eventuele opmerkingen: " & varopmerkingen

Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "[e-mail]"
objCDO.To = "[e-mail]"
objCDO.CC = ""
objCDO.Subject = "Questionaire test"
objCDO.Body = stringBody
objCDO.BodyFormat = 0
objCDO.MailFormat = 0
objCDO.Send("smtpmail.bla.bla")
Set objCDO = Nothing
%>
</body>
</html>

Het formulier heeft nog steeds als action="formtomail.asp"

Waar het stukje voor de redirect moet staan in het script, na het succesvol versturen van de mail, is me nog niet duidelijk overigens. Het toevoegen van: response.redirect("questionaire_send.htm") wellicht?

Anyone?

[ Voor 15% gewijzigd door _mitch_ op 03-11-2003 12:21 ]

[gorgi_19]

Waar het stukje voor de redirect moet staan in het script, na het succesvol versturen van de mail, is me nog niet duidelijk overigens.

Waar denk je zelf, als je weet dat zaken chronologisch uitgevoerd worden?

[ Voor 14% gewijzigd door gorgi_19 op 03-11-2003 12:32 ]

[_mitch_]

aan het eind, duh! maar wat moet er dan staan? Toch bedankt voor je hulp.

Belangrijker is echter hoe ik het script werkend krijg... <zucht>

[gorgi_19]

_mitch_ schreef op 03 november 2003 @ 12:54:
aan het eind, duh! maar wat moet er dan staan? Toch bedankt voor je hulp.

Je geeft zelf een suggestie; die al geprobeerd?

[_mitch_]

het formtomail.asp bestandje hierboven werkt niet, krijg een : The page cannot be displayed, error...

dus alvorens toevoegingen reeds te verwerken, lijkt het me verstanding eerst de basis aan de praat te krijgen

Tips?

[gorgi_19]

Debuggen in ASP al doorgenomen?

[_mitch_]

nee, thnx voor de tip

Ik ben er nu mee bezig...

[_mitch_]

Ok, er ontstaat een error bij regel 30: objCDO.Send("smtpmail.bla.bla")

objCDO.Send() helpt ook niet.

Waar moet je de smtp server opgeven in dit script?

[Jaspertje]

Subtiele hint:

response.redirect "ganaardevolgedepagina" of Server.transfer "ganaardevolgendepagina"

[ Voor 39% gewijzigd door Jaspertje op 03-11-2003 13:16 ]

[_mitch_]

de error luidt:

Microsoft VBScript runtime error '800a0046'

Permission denied

/formtomail.asp, line 30

[Jaspertje]

Je mag dus niet versturen, je hebt niet de goede rechten.. iets met Norton zou dat kunnen?

[_mitch_]

Een simpel mailform (voorbeeld hieronder), dat ik eerst geprobeerd heb om te kijken hoe smtp mail aan de praat komt, werkt wel.
Aangezien ik de verschillende velden van de Questionaire in een dergelijk script niet kan laten versturen, ben ik op zoek naar een script dat dit wel kan. Vooralsnog werkt het vermelde formtomail.asp script helaas niet.

Ik heb, hoe dan ook, geen idee waarom er nu permission denied staat.
(Norton? aan serverzijde neem ik aan, geen idee?)

sendmail.asp

code:

<html>
<head>
    <title>ASPSend mail example</title>
</head>

<body>

<%
'Getting (Requesting) the Session variables from Form on previous page
Session("FromName") = Request("FromName")
Session("FromAddress") = Request("FromAddress")
Session("Subject") = Request("Subject")
Session("BodyText") = Request("BodyText")

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

    'Setting variables
    Mailer.FromName = "Questionaire"
    Mailer.FromAddress = Session("FromAddress")
    Mailer.RemoteHost = "smtpmail.activeisp.com"
    Mailer.AddRecipient "Questionaire test", "[e-mail]"
    Mailer.Subject = Session("Subject")
    Mailer.BodyText = Session("BodyText")

'Checking if mail sent ok, if not display error message
if Mailer.SendMail then
Response.Write "Mail sent..."
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if

'Abandoning session variables
Session.Abandon
%>

</body>
</html>

[gorgi_19]

Erhm.. Die FAQ bestond uit meer dan alleen een debugging gedeelte. Ook een gedeelte met foutmeldingen staat er in.

Jouw foutmelding in de FAQ

@Jaspertje:
Norton veroorzaakt als enige dat de pagina 'geblocked' wordt er er dus geen enkele output is; de pagina lijkt 'te hangen'

[ Voor 38% gewijzigd door gorgi_19 op 03-11-2003 13:46 ]

[_mitch_]

Why do I get "Microsoft VBScript runtime error '800a0046' - Permission denied" on the line that calls the send method?

This is usually the result of the IUSR_{machinename} NT account not having the appropriate permissions on the mail directories. When the mail service goes to write the file to the directory on the drive it doesn't have access and the script bombs.

You can fix this by ensuring that the account name in question has write access to the pickup directory. This is usually something like c:\inetpub\mailroot\pickup It probably wouldn't hurt to give the account access to mailroot and everything underneath.

Another possible cause of this is if you've set the application from which you're trying to send the email to run out of process.

Ok. Ik kan hier echter weinig mee. Deze instellingen worden toch door de provider verzorgd? En waarom kan ik via de provider wel een smtp mail versturen met het standaard mailform? <zucht>

Lastig allemaal dit. Een standaard mailtje via de site versturen werkt prima. En meerdere velden uit een form in het mailtje verwerken, blijkt ineens niet te mogen....

[_mitch_]

via mailto is het allemaal geen probleem, maar dat staat zo slordig...

[gorgi_19]

Je gebruikt ook 2 verschillende mailobjecten?

[_mitch_]

Nee, ik wil formtomail.asp gebruiken om het questionaire te laten versturen.

Het voorbeeld script om een simpel mailform te laten versturen heb ik alleen als test gebruikt, om te kijken of ik via de server mail kon versturen.

[Jaspertje]

_mitch_ schreef op 03 november 2003 @ 15:14:
Nee, ik wil formtomail.asp gebruiken om het questionaire te laten versturen.

Het voorbeeld script om een simpel mailform te laten versturen heb ik alleen als test gebruikt, om te kijken of ik via de server mail kon versturen.

En dat ging wel goed? En welk script was dat ook alweer?

Want wat gorgi_19 bedoelt (toch?? ) is dat je 2 verschillende aanroepen hebt:

C++:

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Set objCDO = Server.CreateObject("CDONTS.NewMail")

Zie jij het verschil welke wil je gebruiken..??

[ Voor 32% gewijzigd door Jaspertje op 03-11-2003 15:20 ]

[gorgi_19]

* gorgi_19 doelde daar op en dat zou ook idd de foutmelding kunnen verklaren

[_mitch_]

Ik zie zeker verschil

De eerste Set Mailer = Server.CreateObject("SMTPsvg.Mailer") werkte wel in het standaard mailform!

Hoe ziet het script er dan uit als ik smtpsvg.mailer gebruik? hoe stop ik de stringBody erin?

[gorgi_19]

Gokje

ASP:

Mailer.BodyText  = "tekst"

[DeverauX]

Hoe ziet het script er dan uit als ik smtpsvg.mailer gebruik? hoe stop ik de stringBody erin?

Kijk eens naar de code zou ik zo zeggen! En dan met name de volgende regel:

ASP:

  Mailer.BodyText = Session("BodyText")

offtopic:
Ik krijg de indruk dat je een compleet werkend script verwacht in plaats van dat je zelf met de tips die je zijn gegeven aan de gang wilt gaan...

[_mitch_]

OK! middels SMTPsvg.Mailer verstuurt ie mail. Da's erg mooi, thnx.

Probleempje echter : Er staat niks in de mail! De variabelen moeten in de messagebody komen...

Hieronder de code zover:

HTML:

<%
Dim varbedrijf, varcontactpersoon, vartelefoonnummer, varemailadres, varomvang, varkeuze, varalternatieve_oplossing, varopmerkingen

varvoornaam = request.form("voornaam")
varachternaam = request.form("achternaam")
vartelefoonnummer = request.form("telefoonnummer")
varemailadres = request.form("emailadres")
varleeftijd = request.form("leeftijd")
varkeuze = request.form("keuze")
varreden_geen_interesse = request.form("reden_geen_interesse")
varopmerkingen = request.form("opmerkingen")

Dim stringBody
stringBody = "Voornaam: " & varvoornaam & "Achternaam: " & varachternaam & "Telefoonnummer: " & vartelefoonnummer & "E-mailadres: " & varemailadres & "Leeftijdcategorie: " & varleeftijd & "De gemaakte keuze(s): " & varkeuze & "Reden geen interesse: " & varreden_geen_interesse & "Eventuele opmerkingen: " & varopmerkingen

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

    'Setting variables

    Mailer.FromName = "Questionaire"
    Mailer.FromAddress = "[e-mail]"
    Mailer.RemoteHost = "smtpmail.activeisp.com"
    Mailer.AddRecipient "Questionaire", "[e-mail]"
    Mailer.Subject = "test"
    Mailer.BodyText = Session("stringBody")

'Checking if mail sent ok, if not display error message

if Mailer.SendMail then
Response.redirect("questionaire_send.htm")
else
Response.Write "Mail send failure. Please go back and try again. Error was " & Mailer.Response
end if

'Abandoning session variables

Session.Abandon
%>

offtopic:
Nee, ik verwacht geen compleet werkend script. No offense, maar ik geef de scripts toch zelf steeds, na het verwerken van de opmerkingen. Het lukt alleen net niet steeds, maar ik kom beetje bij beetje wel verder... thnx anyway!

[ Voor 18% gewijzigd door _mitch_ op 03-11-2003 15:57 ]

[gorgi_19]

Kijk eens goed wat je aan het doen bent..

Je leest een Session("stringbody") uit.

[whoami]

Mjah, sorry hoor, maar P&W is niet bedoeld als helpdeskforum, en 't is ook geen plek waar je voor ieder wissewasje een nieuwe vraag kunt stellen zonder dat je zelf ook eerst eens een en ander uitgezocht hebt.
Je hebt hier al tips gekregen over debuggen (+ een link daarover). Ik stel voor dat je zelf ook eens een en ander zelf probeert op te lossen, door je code zelf te debuggen en eens één en ander zelf op te zoeken.
P&W is een discussieforum waar we best anderen willen helpen met hun problemen, mits die personen zelf ook enige moeite doen om de oplossing van hun probleem te vinden.