Author: Steammike | Posted on: 2/2/2009 12:18:25 AM | Views : 252

 <%
dim subop,email

subop=request("subop")
email=request("email")

if subop="Send" then
    
    Set myMail=CreateObject("CDO.Message")
        myMail.Subject="Sending email with CDO"
        myMail.From="info@gogir.com"
        myMail.To=email
        myMail.TextBody="This is a testing. Here i'm, gogir!!!!!!!"
        myMail.AttachFile attach
        myMail.Send
    set myMail=nothing
    
    response.Write("The mail had been send!!!!!!!")
end if
%>
<html>
<head>
<title>Gogir</title>
<meta http-eq ...

Go to the complete details ...