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.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
Reply With Quote