I tried it.. but it doesn't email the result of URL.
simpl.asp
===========================
<%
' change to address of your own SMTP server
strHost = "smtp.mydomain.com"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.Username = "
rt@mydomain.com"
Mail.Password = "123456"
Mail.Subject = Request("Subject")
Mail.Body = request("Body") & vbcrlf & vbcrlf & "Checkbox: " & request.form("checkbox") & vbcrlf & vbcrlf & "URL: " & request.form("posturl")
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 %>
==============================
simple.htm
==============================
<HTML>
<BODY BGCOLOR="#FFFFFF">
<FORM METHOD="POST" ACTION="Simple.asp">
<TABLE CELLSPACING=0 CELLPADDING=2 BGCOLOR="#E0E0E0">
<strong><font color="red" size="+1"> <%= Request.ServerVariables("HTTP_REFERER") %></font></strong>
<TR>
<TD>Body:</TD>
<TD><TEXTAREA NAME="Body"></TEXTAREA></TD>
</TR>
<TR>
<TD COLSPAN=2><input type="text" name="subject"></TD>
</TR>
<TR>
<TD COLSPAN=2><input type="checkbox" name="checkbox" value="Misspell">
<input type="checkbox" name="checkbox" value="Miss">
<input type="checkbox" name="checkbox" value="incorrect">
<input type="checkbox" name="checkbox"'value="link">
<input type="hidden" name="posturl" value='<%response.write request.servervariables("URL")%>'>
</TD>
</TR>
<TR>
<TD COLSPAN=2><INPUT TYPE="SUBMIT" NAME="Send" VALUE="Send Message">
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
=================================