Ik probeer tevergeefs een e-mail te versturen vanaf een formulier,
de volgende code heb ik gebruikt.
Wie kan mij vertellen wat ik verkeerd doe.
Formulier
Verzendgedeelte (mailtest.asp)
variabel: Mailto = "mijnemailadres@mijnprovider.nl"
de volgende code heb ik gebruikt.
Wie kan mij vertellen wat ik verkeerd doe.
Formulier
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| <table border="0" cellpadding="0" cellspacing="0" align="center">
<FORM ACTION="mailtest.asp" METHOD="POST" id=form1 name=form1>
<tr>
<td>E-mail:</td>
<td><input type="text" name="email" size="20"></td>
</tr>
<tr>
<td ALIGN="left"><INPUT TYPE="SUBMIT" NAME="submit" VALUE="Send Form"></td>
<td> </td>
<td ALIGN="right"><INPUT TYPE="RESET" NAME="reset" VALUE="Clear Form"></td>
</tr>
</table>
</FORM>
</BODY>
</html> |
Verzendgedeelte (mailtest.asp)
variabel: Mailto = "mijnemailadres@mijnprovider.nl"
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
| <%
on error resume next
Set Mailer = Server.CreateObject("CDONTS.NewMail")
if not request("email") = "" then
MailFrom = request("email")
else
MailFrom = "onbekend"
end if
Mailto = "mijnemailadres@mijnprovider.nl"
Subject = "Reactie via uw website"
Mailer.From = MailFrom
Mailer.To = MailTo
Mailer.Subject = Subject
for each whatever in request.querystring
Message = Message & whatever & " = "
Message = Message & request.querystring(whatever) & vbcrlf
next
for each whatever in request.form
Message = Message & whatever & " = "
Message = Message & request.form(whatever) & vbcrlf
next
Mailer.Body = Message
Mailer.Send
Set Mailer = nothing
'objrs.close
'set objrs=nothing
'conn.close
'set conn=nothing
%> |