<%@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
 
 
 
 
 
 
 
............... c