%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim usxCDO Set usxCDO= Server.CreateObject("CDO.Message") With usxCDO .From = cStr(Request("email")) .To = "info@aapaliwebsite.com" .Subject = cStr(Request("subject")) .TextBody = Chr(13) & Chr(10) &_ "Name: " & cStr(Request("name")) & Chr(13) & Chr(10) &_ "Email: " & cStr(Request("email")) & Chr(13) & Chr(10) &_ "Phone: " & cStr(Request("phone")) & Chr(13) & Chr(10) &_ "Information: " & cStr(Request("information")) .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 %>
|