%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim usxCDO
Set usxCDO= Server.CreateObject("CDO.Message")
With usxCDO
.From = cStr(Request("Email"))
.To = "vum@vummumbai.org"
.Subject = "Abhipray from VUMMumbai.org website"
.TextBody = Chr(13) & Chr(10) &_
"Name: " & cStr(Request("Name")) & Chr(13) & Chr(10) &_
"Email: " & cStr(Request("Email")) & Chr(13) & Chr(10) &_
"Address: " & cStr(Request("Address")) & Chr(13) & Chr(10) &_
"Subject: " & cStr(Request("Subject")) & Chr(13) & Chr(10) &_
"Reply: " & cStr(Request("Reply"))
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup" ' Or("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.0.0.3"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
End With
If (cStr(Request("Submit")) <> "") Then
usxCDO.Send
Response.Redirect "thankyou.htm"
End If
%>
Vidyarthi Utkarsh Mandal