<%@ Language=VBScript %>
<%
if not IsEmpty(Request.Form("Send")) then
set objMail = CreateObject("CDONTS.NewMail")
objMail.AttachFile Request.Form("FileToSend")
objMail.Send "na@na.com", Request.Form("EmailAddress"), _
"File Request","Attached is the file you requested."
set objMail = nothing
TheMessage = "File Sent!"
end if
%>
Home