'declare the variables that will receive the values
'receive the values sent from the form and assign them to variables
'note that request.form("name") will receive the value entered into the textfield
'called name, and so with email and message
Dim name, email, message, NewMailObj
'create the mail object and send the details
NewMailObj.From = "email@example.com"
NewMailObj.To = "firstname.lastname@example.org"
NewMailObj.Subject = "New message sent.."
NewMailObj.Body = "the name you entered was " & name & _
"<br>the email was " & email & _
"<br>the message was " & message
'you need to add the following lines FOR the mail to be sent in HTML format
NewMailObj.BodyFormat = 0
NewMailObj.MailFormat = 0
'Close the email object and free up resources
Set NewMailObj = nothing
Response.write "The email was sent."
It's a little convoluted but what has worked for me is to use some kind of file uploader (perhaps an ASP class of code) to upload file to server, then attach the file from the server to your e-mail in code of course, then delete the file from the server.
And regarding the first post nowadays CDO is used more than CDONTS for sending e-mail.