Snippets

Home / Snippets / CDONTS Mail

CDONTS Mail

Snippet Menu

snippet |

revisions |

comments | Related Snippets

related |

Add to Favorites | Email

download | Print

print | Blog It

blog it

-1

Tue. Oct. 18th, 2005 9:24 AM

1 of 1

zero

ASP | CDONTS | Mail

1 comments

CDONTS Mail

<body>

<%

If request("Submit")="ENVOYE" then

        Set objMail = Server.CreateObject("CDONTS.NewMail")

        '---your e-mail address

        objMail.From=("my@domain.com")

        CorpoMessaggio=CorpoMessaggio  & CHR(13) & "Name: " & request("name")  

        CorpoMessaggio=CorpoMessaggio  & CHR(13) & "Tel: " & request("tel")

        CorpoMessaggio=CorpoMessaggio  & CHR(13) & "E-mail: " & request("email")

        CorpoMessaggio=CorpoMessaggio  & CHR(13) & "Comment: " & request("comment")

        objMail.Body=CorpoMessaggio

        '---receiver's e-mail address

        objMail.To="her@domain.com"

        objMail.Subject="Comment for web site"

        objMail.Send

        set objMail = nothing

%>

<p> Your informations are be send.</p>

<p> THANK YOU</p>

<%Else%>

        <form action="#" method="post">

          <p> 

            <input name="name" type="text">

          </p>

          <p>

            <input type="tel" name="textfield2">

         </p>

          <p> 

            <input type="email" name="textfield">

         </p>

          <p> 

            <textarea name="comment" wrap="VIRTUAL" id="comment"></textarea>

         </p>

         <p> 

             <input type="reset" name="Submit" value="Submit">

             <input type="reset" name="Submit2" value="Cancel">

        </p>

        </form>

<%End if%>

</body>