<%
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)
---------------------------------------------^