Cheap & Best     World Class     Faster     Reliable     Secured    Professional Web Hosting

 
 
     
  Scripts & Programming ==> Database Coding Samples  
     
  Database Coding Samples ?  
     
 

We offer the following codes on free basis. We do not offer any support and are not liable for any issues that may arise due to the use of such codes.
'PLEASE CUT AND PASTE THE CODING BELOW AND SAVE THE FILE AS " mail.asp ".

'AS per the Govt Of India regualtions , bulk mailing is considered a spam and hence your account will be deleted immedietly 'while bulk mailing. Hence avoid bulk mailing. This program is strictly for non-bulk mailing application only.

'If found to be abusing with bulk mail, your domain will be deleted without any prior notice.

' strHost = "mail.yourdomain.com"
' We not offer support for this coding.
' Please note that either one of the email id
'i.e. from email or to email should from your domain name. Else, the code will throw an error " this server requires 'authentication"

<%
' change to address of your own SMTP server
strHost = "mail.yourdomain.com"

If Request("Send") <> "" Then

Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost

Mail.From = Request("From") ' From address
Mail.FromName = Request("FromName") ' optional
Mail.AddAddress Request("To")

' message subject
Mail.Subject = Request("Subject")
' message body
Mail.Body = Request("Body")

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

<HTML>
<HEAD>
<TITLE>FORM MAIL</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">

<H2>FORM TO MAIL</h2>

<% If strErr <> "" Then %>
<h3><FONT COLOR="#FF0000">Error occurred: <I><% = strErr %></I></FONT></h3>
<% End If %>

<% If bSuccess Then %>
<h3><FONT COLOR="#00A000">Success! Message sent to <% = Request("To") %>.</FONT></h3>
<% End If %>

<FORM METHOD="POST" ACTION="mail.asp">

<TABLE CELLSPACING=0 CELLPADDING=2 BGCOLOR="#E0E0E0">
<TR>
<TD>Host (change as necessary in script):</TD>
<TD><B><% = strHost %></B></TD>
</TR>
<TR>
<TD>From (enter sender's address):</TD>
<TD><INPUT TYPE="TEXT" NAME="From"></TD>
</TR>
<TR>
<TD>FromName (optional, enter sender's name):</TD>
<TD><INPUT TYPE="TEXT" NAME="FromName"></TD>
</TR>
<TR>
<TD>To: (enter one recipient's address):</TD>
<TD><INPUT TYPE="TEXT" NAME="To"></TD>
</TR>
<TR>
<TD>Subject:</TD>
<TD><INPUT TYPE="TEXT" NAME="Subject"></TD>
</TR>
<TR>
<TD>Body:</TD>
<TD><TEXTAREA NAME="Body" rows="1" cols="20"></TEXTAREA></TD>
</TR>
<TR>
<TD COLSPAN=2><INPUT TYPE="SUBMIT" NAME="Send" VALUE="Send Message"></TD>
</TR>

</TABLE>

</FORM>

</BODY>
</HTML>

 
   

2005 Tech Freedom Online. All rights reserved