Email AND File Appends

[dmiller23462]

I would like to append to a file, AS WELL AS, send an email via
ASP....I have some sample code from ASP101.com and am planning on
modifying it to my uses but I don't know where exactly I should place
it....Should I begin a whole new set of ASP commands or should I
incorporate it into the current ASP that specifies an email being
sent?

EMAIL BEING SENT
***
<%
Mode = request.form("m ode")
From = request.form("f rom")
Ext = request.form("e xt")
Subject = request.form("s ubject")
Body = request.form("b ody")

if mode = "Send" then

Set Mail = Server.CreateOb ject("Persits.M ailSender")
Mail.Host = "gwfs1" ' Specify a valid SMTP server
Mail.From = "dm*****@coach. com" ' Specify sender's address
Mail.FromName = "Dave Miller - Test Email" ' Specify sender's name

if subject = "" then
Mail.Subject = "Test Email"
else
Mail.Subject = subject
end if

Mail.AddAddress "dmiller"
Mail.AddReplyTo "dm*****@coach. com"

Mail.Body = body & vbcrlf & vbcrlf &
request.serverv ariables("REMOT E_ADDR")

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If

End if
%>

SAMPLE CODE TO APPEND TO A FILE
***
<%
' Declare variables for the File System Object and the File to be
accessed.
Dim objFSO, objTextFile

' Create an instance of the the File System Object and assign it to
objFSO.
Set objFSO = CreateObject("S cripting.FileSy stemObject")

' Open the file
'Set objTextFile = objFSO.OpenText File("C:\InetPu b\PR86027\sampl es\textfile.txt ")
Set objTextFile = objFSO.OpenText File(Server.Map Path("textfile. txt"))

Do While Not objTextFile.AtE ndOfStream
Response.Write objTextFile.Rea dLine & "<BR>" & vbCrLf
Loop

' Close the file.
objTextFile.Clo se

' Release reference to the text file.
Set objTextFile = Nothing

' Release reference to the File System Object.
Set objFSO = Nothing
%>

[Curt_C [MVP]]

put it all in one page

--
Curt Christianson
Owner/Lead Developer, DF-Software
Site: http://www.Darkfalz.com
Blog: http://blog.Darkfalz.com
"dmiller234 62" <dm**********@y ahoo.com> wrote in message
news:59******** *************** ***@posting.goo gle.com...

I would like to append to a file, AS WELL AS, send an email via
ASP....I have some sample code from ASP101.com and am planning on
modifying it to my uses but I don't know where exactly I should place
it....Should I begin a whole new set of ASP commands or should I
incorporate it into the current ASP that specifies an email being
sent?

EMAIL BEING SENT
***
<%
Mode = request.form("m ode")
From = request.form("f rom")
Ext = request.form("e xt")
Subject = request.form("s ubject")
Body = request.form("b ody")

if mode = "Send" then

Set Mail = Server.CreateOb ject("Persits.M ailSender")
Mail.Host = "gwfs1" ' Specify a valid SMTP server
Mail.From = "dm*****@coach. com" ' Specify sender's address
Mail.FromName = "Dave Miller - Test Email" ' Specify sender's name

if subject = "" then
Mail.Subject = "Test Email"
else
Mail.Subject = subject
end if

Mail.AddAddress "dmiller"
Mail.AddReplyTo "dm*****@coach. com"

Mail.Body = body & vbcrlf & vbcrlf &
request.serverv ariables("REMOT E_ADDR")

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If

End if
%>

SAMPLE CODE TO APPEND TO A FILE
***
<%
' Declare variables for the File System Object and the File to be
accessed.
Dim objFSO, objTextFile

' Create an instance of the the File System Object and assign it to
objFSO.
Set objFSO = CreateObject("S cripting.FileSy stemObject")

' Open the file
'Set objTextFile = objFSO.OpenText File("C:\InetPu b\PR86027\sampl es\textfile.txt ") Set objTextFile = objFSO.OpenText File(Server.Map Path("textfile. txt"))

Do While Not objTextFile.AtE ndOfStream
Response.Write objTextFile.Rea dLine & "<BR>" & vbCrLf
Loop

' Close the file.
objTextFile.Clo se

' Release reference to the text file.
Set objTextFile = Nothing

' Release reference to the File System Object.
Set objFSO = Nothing
%>

[Me Padre]

Using Persits ASP Email... it is way easier than you are
doing... if you are using the premium version

Try:

Set Mail = Server.CreateOb ject("Persits.M ailSender")
Mail.Host = "gwfs1"
Mail.From = "dm*****@coach. com"
Mail.FromName = "Dave Miller - Test Email"
if subject = "" then
Mail.Subject = "Test Email"
else
Mail.Subject = subject
end if
Mail.AddAddress "dmiller"
Mail.AddReplyTo "dm*****@coach. com"
Mail.Body = body & vbcrlf & vbcrlf &
request.serverv ariables("REMOT E_ADDR")

' -------------------------------------

' ASSUMES THE PREMIUM VERSION OF ASPEMAIL

strFile = "C:\path\to\fil e\fileToAppend. txt"
mail.appendBody FromFile strFile, true

' Note the true appends it to the Body
' If it were false it would append it to
' the AltBody (for multipart messages)

' -------------------------------------

On Error Resume Next

Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
End if

-----Original Message-----
I would like to append to a file, AS WELL AS, send an email viaASP....I have some sample code from ASP101.com and am planning onmodifying it to my uses but I don't know where exactly I should placeit....Should I begin a whole new set of ASP commands or should Iincorporate it into the current ASP that specifies an email beingsent?

EMAIL BEING SENT
***
<%
Mode = request.form("m ode")
From = request.form("f rom")
Ext = request.form("e xt")
Subject = request.form("s ubject")
Body = request.form("b ody")

if mode = "Send" then

Set Mail = Server.CreateOb ject("Persits.M ailSender")
Mail.Host = "gwfs1" ' Specify a valid SMTP server
Mail.From = "dm*****@coach. com" ' Specify sender's address
Mail.FromNam e = "Dave Miller - Test Email" ' Specify sender's name
if subject = "" then
Mail.Subject = "Test Email"
else
Mail.Subject = subject
end if

Mail.AddAddres s "dmiller"
Mail.AddReplyT o "dm*****@coach. com"

Mail.Body = body & vbcrlf & vbcrlf &
request.server variables("REMO TE_ADDR")

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If

End if
%>

SAMPLE CODE TO APPEND TO A FILE
***
<%
' Declare variables for the File System Object and the File to beaccessed.
Dim objFSO, objTextFile

' Create an instance of the the File System Object and assign it toobjFSO.
Set objFSO = CreateObject("S cripting.FileSy stemObject")

' Open the file
'Set objTextFile = objFSO.OpenText File("C:\InetPu b\PR86027 \samples\textfi le.txt")Set objTextFile = objFSO.OpenText File(Server.Map Path ("textfile.txt" ))
Do While Not objTextFile.AtE ndOfStream
Response.Write objTextFile.Rea dLine & "<BR>" & vbCrLfLoop

' Close the file.
objTextFile.Cl ose

' Release reference to the text file.
Set objTextFile = Nothing

' Release reference to the File System Object.
Set objFSO = Nothing
%>
.