<%@ LANGUAGE="VBSCRIPT" %> <% If Request("action")<>"" Then If Request("action")="Submit" Then Path = Request.ServerVariables("PATH_TRANSLATED") While (Right(Path, 1) <> "\" And Len(Path) <> 0) iLen = Len(Path) - 1 Path = Left(Path, iLen) Wend ExportDirectory = path & "Temp\" Exportfile = request("FileName") 'Response.write ExportDirectory & ExportFile FilePath = ExportDirectory & ExportFile Set myMail=CreateObject("CDO.Message") myMail.Subject=request("Subject") myMail.From=request("From") myMail.To=request("To") myMail.TextBody=Request("Body") myMail.AddAttachment FilePath 'ExportDirectory & ExportFileName myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ =session("EmailIP") 'Server port myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _ =25 myMail.Configuration.Fields.Update myMail.Send set myMail=nothing Response.Redirect "EmailSend.asp" Response.End End If Response.Redirect "EmailSend.asp" Response.End End if %>
Email Form
From:
To:
CC:
Subject:
>
>