CDO и Attachment что-то не работает

есть форма:
<form action='tt1.asp?send_key=1' method='post'>
<input type='file' class='field' name='attach_cv'>
</form>
посылаю email с CDO. без attachment все работает. как только считываю из формы данные для attachment получаю сообщение:
CDO.Message.1 error '80070002'

The system cannot find the file specified

Код в студию...

0

1- file:tt1.asp
<!--#include file='header.asp'-->
<table width='100%' dir='rtl' cellpadding='0' cellspacing='10' border='0'>
<form action='tt1.asp?send_key=1' method='post'>
<tr valign='top'>
<td nowrap>attachment</td>
<td><input type='file' class='field' name='attach_cv'></td>
</tr>
<tr>
<td nowrap></td>
<td align='center'>
<input type='submit' value=' submit '>
<input type='reset' value=' reset '>
</td>
</tr>
</form>
</table>
<!--#include file='send_email01.asp'-->
<!--#include file='footer.asp'-->

2.file:send_email01.asp

<!--#include file='scriptsvariables.asp'-->
<%
if not isempty(request.QueryString('send_key')) then
str=request.form('attach_cv')
strBody=''
strBody = strBody & 'test'
strSubject = 'test'
SMFrom='veronicadar@hotmail.com'
SMTo= MyEmail
SMCc=''
SMSubject=strSubject
SMAllAttachments=str
SMBody=strBody
SMBodyFormat=0
SMMailFormat=0
call MultiEmailSender(SMFrom, SMTo, SMSubject, SMBody, SMAllAttachments)
response.redirect ('Email_was_sent.asp')

end if
Function MultiEmailSender( SM_From, SM_To, SM_Subject, SM_Body, SM_AllAttachments)
Const cdoSendUsingMethod = 'http://schemas.microsoft.com/cdo/configuration/sendusing'
Const cdoSMTPServer = 'http://schemas.microsoft.com/cdo/configuration/smtpserver'
Const cdoSMTPServerPort = 'http://schemas.microsoft.com/cdo/configuration/smtpserverport'
Const cdoSMTPconnectiontimeout = 'http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout'
Const cdoSendUserName = 'http://schemas.microsoft.com/cdo/configuration/sendusername'
Const cdoSendPassword = 'http://schemas.microsoft.com/cdo/configuration/sendpassword'
Const cdoSMTPServerPickupDirectory = 'http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory'

Const cdoSendUsingPort = 2
Const cdoRefTypeId = 0
Const cdoRefTypeLocation = 1

Dim iConf, Flds
Set objNewMail = Server.CreateObject('CDO.Message')
Set iConf = objNewMail.Configuration
Set Flds = iConf.Fields
If Trim(strDetailsParameter) = '' Then
' Send with Local properties
Flds.Item(cdoSendUsingMethod) = cdoRefTypeLocation
Else
' Send with 'Parameter from database' properties

Flds.Item(cdoSendUsingMethod) = cdoSendUsingPort
Flds.Item(cdoSMTPServer) = arrConnectionDetails(2) ' Address - 'smtp.registeredsite.com'
Flds.Item(cdoSMTPServerPort) = 25
Flds.Item(cdoSMTPconnectiontimeout) = 60
Flds.Item(cdoSendUserName) = arrConnectionDetails(0) ' UserName
Flds.Item(cdoSendPassword) = arrConnectionDetails(1) ' Password
End If

Flds.Item(cdoSMTPServerPickupDirectory) = 'C:inetpubmailrootpickup'
Flds.Update
Set objNewMail.Configuration = iConf
objNewMail.From = SM_From
objNewMail.To = SM_To
objNewMail.Cc = SM_Cc
objNewMail.Subject = SM_Subject


If Len(SM_AllAttachments) > 0 Then
objNewMail.AddAttachment SM_AllA

я пыталась проверить так:
<!--#include file='scriptsvariables.asp'-->
<%
if not isempty(request.QueryString('send_key')) then
str=replace(request.form('attach_cv'),ch r(32),'%20')
dim fs,f
set fs=Server.CreateObject('Scripting.FileSy stemObject')
set f=fs.GetFile(str)
Response.Write('The path is: ' & f.Path)
set f=nothing
set fs=nothing
response.end()
%>
ошибка:
Error Type:
Microsoft VBScript runtime (0x800A0035)
File not found
send_email01.asp, line 7

Прежде чем присоединять файл его нужно сохранить на диск т.к. метод AddAttachment принимает имя файла. Воспользуйся одним их компонентов для загрузки файлов в ASP, например AspSmartUpload. Примеры, можно найти в этом форуме.

0

А если 2 юзера посылают фаил с одинаковым именем. то что тогда?
и нужно ли их потом удалять?

> А если 2 юзера посылают фаил с одинаковым именем. то что тогда?
> и нужно ли их потом удалять?
Все зависит от конкретной задачи. Если нужно сохранять файл на сервере под определенным именем, то придется писать код определения коллизий. То же самое относится к удалению. Сервер за тебя эти файлы удалять не будет. Вот и решай - нужны они тебе после обработки или нет.

0