If strTo = "" Then %>
<FORM ACTION="./email_cdo.asp" METHOD="post">
Enter your e-mail address:<BR>
<INPUT TYPE="text" NAME="to" SIZE="30"></INPUT>
<!-- These would be used if we decided to let you edit them
Subject: <INPUT TYPE="text" NAME="subject" SIZE="30"></INPUT><BR>
Message: <TEXTAREA NAME="body" ROWS="10" COLS="40" WRAP="virtual"></TEXTAREA><BR>
-->
<INPUT TYPE="submit" VALUE="Send Mail!"></INPUT></FORM>
<%
Else
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "coollele@netease.com"
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.Send
Set objCDOMail = Nothing