You may have multiple questions there, and I'm not sure the
main one is an ASP question, but here goes.
Here's a link that may answer your question about attachments:
http://www.microsoft.com/mspress/books/sampchap/3449.aspx
Here is a link to MS where you can search for fast answers to
questions like these:
http://technet.microsoft.com/en-us/default.aspx
If you want to create a file to attach, you must say exactly
what type of file you need. Excel? Word? Text?
You may need to create a file system object to save strings
as a text file. You can put stuff into strings from your ADO
recordsets from your Access database (or any database).
This is a basic problem in VBScript and ADO. Maybe this is
not best addressed in this particular newsgroup.
If you need help here, try these:
http://www.microsoft.com/communities/newsgroups/list/en-us/default.as...
http://www.microsoft.com/communities/newsgroups/list/en-us/default.as...
If you want to extract data "AS DATA," put it in a file and
send it to another technical person to be imported into another
database, then you might want to create a "comma-separated
values" (CSV) textfile, a tab-delimited text file, or an XML file
from an ADO recordset of that data you want to send.
Here is my standard library snippet for creating an XML file
from an ADO recordset:
<% Option Explicit %>
<% Response.Buffer = TRUE %>
<% Response.CacheControl = "no-cache" %>
<% Response.AddHeader "Pragma", "no-cache" %>
<% Response.Expires = -1
'====================
%>
<!-- METADATA TYPE="typelib"
NAME="Microsoft ActiveX Data Objects 2.8 Library"
uuid="{2A75196C-D9EB-4129-B803-931327F72D5C}"
-->
<%
'====================
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="
http://www.w3.org/1999/xhtml">
<head>
<title>Whatever Page</title>
</head>
<body>
<%
'
'====================
Dim Cnxn
Set Cnxn = Server.CreateObject("ADODB.Connection")
Cnxn.Mode = adModeReadWrite
Cnxn.CursorLocation = adUseClient
Cnxn.Open Server.MapPath("/mdb_directory/MyAccessFile.mdb")
'====================
Dim rsMyData
Set rsMyData = Server.CreateObject("ADODB.Recordset")
rsMyData.Open
'====================
If Not rsMyData.EOF
rsMyData.Save "F:\DataDirectory\MyXmlDataFile.xml", adPersistXML
End If
'====================
rsMyData.Close
Set rsMyData = Nothing
'====================
Cnxn.Close
Set Cnxn = Nothing
'====================
'
%>
</body>
</html>
And, finally, here is my standard library snippet for CDO that
includes an attachment (this is a whole asp file):
<% Option Explicit %>
<% Response.Buffer = TRUE %>
<% Response.CacheControl = "no-cache" %>
<% Response.AddHeader "Pragma", "no-cache" %>
<% Response.Expires = -1
'====================
%>
<!-- METADATA TYPE="typelib"
NAME="Microsoft CDO for Windows 2000 Library"
uuid="{CD000000-8B95-11D1-82DB-00C04FB1625D}"
-->
<%
'====================
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="
http://www.w3.org/1999/xhtml">
<head>
<title>Whatever Page</title>
</head>
<body>
<% '
'====================
'
' Send e-mail to (e-mail address removed)...
' by connecting to port 25 of the SMTP server
'
Dim iMsg, iConf, Flds, sHost, strHTML
'
sHost = "smtp.whoever-my-isp.net"
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
'
' set the CDOSYS configuration fields to use port 25 on the SMTP server
'
With Flds
.Item("
http://schemas.microsoft.com/cdo/configuration/sendusing") =
cdoSendUsingPort
.Item("
http://schemas.microsoft.com/cdo/configuration/smtpserver") =
sHost
.Item("
http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 10
.Update
End With
'
' build HTML for message body
'
strHTML = "<html><head></head>"
strHTML = strHTML & "<body style=""background-color: #d0d0d0; color:
#002080; font-family: Verdana, Tahoma, Arial, Helvetica, sans-serif;
font-size: 13px;"">" & vbCrLf
strHTML = strHTML & "Hey there," & vbCrLf
strHTML = strHTML & "<br> <br>" & vbCrLf
strHTML = strHTML & "Blah, blah, blah" & vbCrLf
strHTML = strHTML & "<br> <br>" & vbCrLf
strHTML = strHTML & "Cheers,<br> <br>" & vbCrLf
strHTML = strHTML & "Your mother." & vbCrLf
strHTML = strHTML & "</body></html>"
'
' apply the settings to the message and send it
'
With iMsg
Set .Configuration = iConf
.To = sContact_Email
.From = "(e-mail address removed)"
.BCC = "(e-mail address removed)"
.Subject = "Thank you for your request."
.HTMLBody = strHTML
.AddAttachment "F:\FamilyDocs\YourSpringBudget.xls"
.Send
End With
'
' cleanup of variables
'
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
'
'====================
'
%>
</body>
</html>
