I tried.. it shows 500 error Internal server error
================================
<%
' change to address of your own SMTP server
strHost = "mail.mydoman.com"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.From = report@mydomain.com
Mail.FromName = "123"
Mail.AddAddress ("rt@mydomain.com")
Mail.Subject = Request("Subject")
Mail.Body = Request("Body")
"Checkbox: " & request.form("checkbox")
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>
<% If strErr <> "" Then %>
<h3>Error occurred: <% = strErr %>
<% End If %>
<% If bSuccess Then %>
Success! Message sent to <% = Request("To") %>.
<% End If %>
=================================
I also tried...
Mail.checkbox = Request("checkbox")
but it still doesn't work
Edited by Lucent - 14 June 2005 at 7:50pm
Topic Options
Post Options
Thanks(0)
