1 svar · 152 visningar · startad av Ricki
Hej igen,
Jag har gjort en funktion som skicar iväg ett brev. Den ser ut på följande sätt:
Mail.asp:
<p>
<span class="huvudrubrik">Skicak brev!</span><br>
</p>
<center>
<table border="0" cellpadding="0" cellspacing="0">
<form action="sendmail.asp" method="post">
<tr>
<tr>
<td width="50">Till:</td>
<td><input type="TEXT" size="25" NAME="Reciever"></td>
</tr>
<tr>
<td width="50">Från:</td>
<td><input type="TEXT" size="25" NAME="from"></td>
</tr>
</tr>
<td> </td>
<td><input type="submit" value="Skicka"></td>
</tr>
</form>
</table>
</center>
Sendmail.asp ser ut såhär:
<%
Function SendMail(Receiver,Title,Mess)
Set CDOMail = Server.CreateObject("CDONTS.NewMail")
CDOMail.From = "webmaster@ricki.nu"
CDOMail.To = Receiver
CDOMail.Subject = Title
CDOMail.Body = Mess
CDOMail.Send
Set CDOMail = Nothing
End Function
%>
<%
Title = "Länk-tips från " & Request.Form("from")
Mess = Request.Form("from") & " har tipsat dig om siten <A HREF="http://www.ricki.nu"" TARGET=_blank>www.ricki.nu"</A>
SendMail Request.Form("Reciever"),Title,Mess
Response.Write Mes
%>
<p>
<span class="huvudrubrik">Brev skickat!</span><br>
</p>
Problemet är att mailet alldrig skickas, men jag får inget felmeddelande. Vad har jag gjort fel?
------------------
Hälsningar Ricki
www.ricki.nu
Det ser väl helt ok ut. Det enda som jag reagerade över var att du inte returnerar något med din SendMail-funktion. Och det är väl helt OK då, men när du väl anropar funktionen så anropar du den som en sub-rutin. Testa att antingen göra om den till en Sub eller att anropa den enligt:
sFoo = SendMail(Request.Form("Reciever"),Title,Mess)
Det är väl det enda jag kan komma att tänka på.
------------------
/ Torbjörn Hansson, webbutvecklare
Endero Sverige
