CDOSYS probs

i don't know what the prob is with this

VB Code:

<%@LANGUAGE="VBSCRIPT"%>
<%
If request.servervariables("CONTENT_LENGTH") <> 0 THEN
Set objEMail = Server.CreateObject("CDO.Message")
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Confi = objConfig.Fields
Confi("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Confi("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup"
Confi.Update
Set objEMail.Configuration = objConfig
objEMail.To = "[email protected]" 'i have inputed a valid address while testing here
objEMail.From = Request("from")
objEMail.Subject = Request("subject")
objEMail.TextBody = Request("message")   
objEMail.Send
Set objEMail = Nothing
 
Response.Write("Message Sent")
Else
 
%>
<html>
<body>
<form method="post" action="stupid.asp">
From Email: <INPUT type=text name="from"><br />
Subject: <INPUT type=text name="subject"><br />
Message: <TEXTAREA name="message" rows=10 cols=40></TEXTAREA><br />
<INPUT type="submit" value="Send" name="submit">
</form>
</body>
</html>
<% 
End If
%>

the mail never gets delivered. this is copied straight from a tutorial:sick:

Obvious q, but is the server configured properly to send emails?

i don't know, since it is configured to use the microsoft smtp server. if i tried to use my server, i get a http500 error. but i configured my server to use pop3 and smtp. i had this prob before and could never get it to work. it would always go through with no error, and nothing would show up in the que