|
wizard_oz -> RE: email (4/20/2005 11:36:19)
|
I have a code that doesn't work can anyone help me? <%
sub sendMail(fromWho,toWho,subject,body)
dim myMail
SET myMail=server.CreateObject("CDONTS.Newmail")
myMail.From=fromWho
myMail.TO=toWho
myMail.Subject=Subject
myMail.Body=Body
myMail.Send
SET myMail=nothing
end sub
fromWho=TRIM( Request.Form("fromWho"))
toWho=TRIM( Request.Form("toWho"))
Subject=TRIM( Request.Form("Subject"))
Body=TRIM( Request.Form("body"))
if toWho<>"" then
sendMail fromWho,toWho,Subject,body
end if
%>
<FORM method="POST" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
<br>TO:<INPUT type="text" name="toWho" size=40>
<br>FROM:<INPUT type="text" name="fromWho" size=40>
<br>SUBJECT:<INPUT type="text" name="subject" size=40>
<br><TEXTAREA rows=5 cols=40 id=textarea1 name=body></TEXTAREA>
<BR><INPUT type="submit" value="Send Mail" id=submit1 name=submit1>
</FORM>
|
|
|
|