For ASPFree's forums-Quick, Easy to use, Searchable, Email when replyed to and more!!: http://www.aspfree.com/forum/forums.aspx </textarea> </td> </tr> </table>
<br> <input type="submit" value="Send the Info!" name="btnSubmit"></center> <br> <br> <blockquote>
This message sent to you from an associate as a service of ASPFree.com. For <br> live ASP demos, downloads, source code, forums and more! <a href="http://www.aspfree.com/Default.asp">http://www.aspfree.com</a><br><br> <i>When the message is sent, you'll automatically be copied on the message. <br> The text immediately above will be added to the message automatically,<br> identifying the message as coming from ASPfree.com.</i><br>
</blockquote>
</form> </body> </html>
<% End Sub %>
<% Sub DoRecords() %> <% 'Write to a database if so desired 'dim strconn 'dim conn 'dim rs
strBody = "Your Friend has recommended you check out ASPFree.com: " & request("YourEmailaddress") & chr(10) & chr(10) strBody = strBody & "Friends Comments: " & chr(10) & request("comments") & chr(10) & chr(10) & chr(10) strBody = strBody & "This message sent to you from an associate as a service of ASPFree.com." strBody = strBody & "For live ASP+, ASP demos, downloads, source code, forums and more! http://www.aspfree.com"
'Send a copy via an email set objNewMail = server.CreateObject("CDONTS.NewMail") objNewMail.From = request("YourEmailAddress") objNewMail.To = request("FriendsEmailAddress") objNewMail.CC = request("YourEmailAddress") objNewMail.BCC = "webmaster@somedomain.com" objNewMail.Subject = request("Subject") objNewMail.Body = strBody objNewMail.Send set objNewMail = Nothing response.redirect "tellfriend.asp?strMessage=Thanks"
End Sub %>
<% If request("btnSubmit") = "" and request("strMessage") = "" Then call IntroPage() End If
If request("btnSubmit") = "Send the Info!" Then call DoRecords() End If
Database Code 
/ 20 
Free input form all done from one Page using Sub Procedures
