<%
folder = Request("folder")
if folder="" then folder = "upload"
uploadUrl = "/_data/"&folder&"/"
strFilePath = Server.MapPath("/_data/"&folder)
If Right(strFilePath,1)<>"\" Then strFilePath = strFilePath &"\"
CreateFolder(strFilePath)
Set abc = Server.CreateObject("ABCUpload4.XForm")
abc.AbsolutePath = True
abc.MaxUploadSize = 4*1024*1024
UpFileSize = abc("uploadFile")(1).length
If UpFileSize>0 then
strImageFileName = abc("uploadFile")(1).FileName
fileExt = lcase(Mid(strImageFileName, InstrRev(strImageFileName, ".") + 1))
If ucase(fileExt)="DOC" or ucase(fileExt)="PDF" or ucase(fileExt)="ZIP" then
strImageFileName = DateFormat("YYYYMMDDHHNNSS",now) &"."& fileExt
abc("uploadFile")(1).Save strFilePath & strImageFileName
If Right(uploadUrl,1)<>"/" Then uploadUrl = uploadUrl &"/"
strUrlPath = uploadUrl & strImageFileName
Else
End If
firstname = abc("_1_")
lastname = abc("_2_")
email = abc("_3_")&"@"&abc("_4_")
division = abc("_5_")
title = abc("_6_")
content = abc("_7_")
m_content = FileRead("/contact.html")
m_content = Replace(m_content,"{NAME}", firstname&" "&lastname)
m_content = Replace(m_content,"{email}", email)
m_content = Replace(m_content,"{DATE}", DateFormat("MM/DD/YYYY",date()))
m_content = Replace(m_content,"{Division}", division)
m_content = Replace(m_content,"{title}", title)
m_content = Replace(m_content,"{content}", content)
If Not abc("uploadFile") Is Nothing Then
m_content = AddAttachment strUrlPath <--This Here happened Microsoft VBScript Error
End If
Call CDOMail(contemail, email, "[A company] Thank you for Your email!", m_content)
Call CDOMail(email, contemail, "["&division&"] "&firstname&" "&lastname, m_content)
%>
Please tell me.. how to send with attach files by cdo mail?