Hoi, ik heb overal in dit forum dit script zien staan maar op een of andere manier worden de variabelen niet naar de 2e pagina doorgegeven, ze blijven leeg elke keer als ik ze op het scherm probeer te laten zien. In de gegenereerde email staan wel de kopjes maar niet de inhoud zelf. Wie o wie ziet de fout?
CODE:
<form method="post" action="sent.asp" enctype="text/plain">
<table>
<tr>
<td>Name</td>
<td><input type="text" name="name" size="30" /></td>
</tr>
<tr>
<td>E-mail adress</td>
<td><input type="text" name="email" size="30" /></td>
</tr>
<tr>
<td>Phone number</td>
<td><input type="text" name="telephone" size="15" /></td>
</tr>
<tr>
<td></td>
<td align="left"><input type="submit" value="Submit" /><input type="reset" value="Clear" /></td>
</tr>
</table>
</form>
en dit is dus sent.asp:
<%
Dim objNewMail
set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.From = "mailadres"
objNewMail.To = "mailadres"
objNewMail.Subject = "onderwerp"
name=Request.Form("name")
email=Request.Form("email")
telephone=Request.Form("telephone")
dim strTekst
strTekst = "Name: " & name & vbCrLf
strTekst = strTekst & "Email:" & email & vbCrLf
strTekst = strTekst & "Telephone:" & telephone
objNewMail.Body = strTekst
objNewMail.Send
set objNewMail = Nothing
%>
<p>Bedankt voor uw reactie! <br>
Wij zullen deze zo spoedig mogelijk verwerken.</p>
Nog even: de mail komt in de mailroot\pickup te staan en word niet verzonden. Iemand daar nog een idee over?
CODE:
<form method="post" action="sent.asp" enctype="text/plain">
<table>
<tr>
<td>Name</td>
<td><input type="text" name="name" size="30" /></td>
</tr>
<tr>
<td>E-mail adress</td>
<td><input type="text" name="email" size="30" /></td>
</tr>
<tr>
<td>Phone number</td>
<td><input type="text" name="telephone" size="15" /></td>
</tr>
<tr>
<td></td>
<td align="left"><input type="submit" value="Submit" /><input type="reset" value="Clear" /></td>
</tr>
</table>
</form>
en dit is dus sent.asp:
<%
Dim objNewMail
set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.From = "mailadres"
objNewMail.To = "mailadres"
objNewMail.Subject = "onderwerp"
name=Request.Form("name")
email=Request.Form("email")
telephone=Request.Form("telephone")
dim strTekst
strTekst = "Name: " & name & vbCrLf
strTekst = strTekst & "Email:" & email & vbCrLf
strTekst = strTekst & "Telephone:" & telephone
objNewMail.Body = strTekst
objNewMail.Send
set objNewMail = Nothing
%>
<p>Bedankt voor uw reactie! <br>
Wij zullen deze zo spoedig mogelijk verwerken.</p>
Nog even: de mail komt in de mailroot\pickup te staan en word niet verzonden. Iemand daar nog een idee over?