Tjena,
Jag har försökt göra en funktion av cdonts mail. Såhär ser koden ut...
Här e själva formuläret. 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>
Och här e sendmail.asp:
<%
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")
Mes = 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)
%>
Jag får detta felmeddelande:
Microsoft VBScript compilation error '800a0414'
Cannot use parentheses when calling a Sub
/ricki/TestKatalog/sendmail.asp, line 30
SendMail(Request.Form("Reciever"),Title,Mess)
---------------------------------------------^
VAD E FEL????
------------------
Hälsningar Ricki
www.ricki.nu
[Redigerat av Ricki den 10 aug 2000]