Email error on upload page

[tekyge]

Below is the code I am using and it works great except for this error, and the error started when I tried to add the email funtion can anyone help?

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'myMail'

/client_services/upload/thanks.asp, line 52




<%@ Language=VBScript %>
<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>
<!-- #include file="upload.asp" -->
<%

uploadsDirVar = "C:\Inetpub\

http://wwwroot\client_services\upload\files"

function OutputForm()
%>
<%
end function
function SaveFiles
Dim Upload, fileName, fileSize, ks, i, fileKey

Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)

' If something fails inside the script, but the exception is handled
If Err.Number<>0 then Exit function

SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
SaveFiles = "<B>Files uploaded:</B> "
for each fileKey in Upload.UploadedFiles.keys
SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
next
else
SaveFiles = "The file name specified in the upload form does not correspond to a valid file in the system."
end if
SaveFiles = SaveFiles & "<br>Enter a number = " & Upload.Form("enter_a_number") & "<br>"
end function

'-- Start Of Email

Set myMail=CreateObject("CDO.Message")

myMail.Subject="Support-Team"
myMail.From="upload_processing@mydomain.com"
myMail.To="support@mydomain.com"
myMail.TextBody="" & vbcrlf & vbcrlf & _

"Upload-Processing" & vbcrlf & _
"----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----" & vbcrlf & _
"----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----" & vbcrlf & _

"Account ID: " & Request.Form("enter_a_number") & vbcrlf & _

"File 1:

https://www.mydomain/client_services/upload/files/"

& Request.Form("attach1") & vbcrlf & _
"File 2:

https://www.mydomain/client_services/upload/files/"

& Request.Form("attach2") & vbcrlf & _
"File 3:

https://www.mydomain/client_services/upload/files/"

& Request.Form("attach3") & vbcrlf & _
"File 4:

https://www.mydomain/client_services/upload/files/"

& Request.Form("attach4")

myMail.Send
set myMail=nothing

'-- End Of Email
%>

 

[damber]

Read the error.

It says that the variable myMail is undefined.

Maybe you should define it ;-)

If you're not sure how to do that, you should read up on ASP at

http://www.w3schools.com

and search google for "dim variables ASP"



A smile is worth a thousand kind words. So smile, it's easy!

 

[tekyge]

I did define it

Dim myMail with no success thats why I ask for help.

 

[damber]

where...?


A smile is worth a thousand kind words. So smile, it's easy!

 

[tekyge]

gives this error

006~ASP 0206~Cannot call BinaryRead~Cannot call BinaryRead after using Request.Form collection.

 

[damber]

This is a different error.

I'm assuming you dim'ed your mymail variable now?

The second and new error (which should be raised in a new thread) is because you cannot access the form directly (e.g. request.form("myvar") ) before you do a binary read to get the attachments and vice versa. Basically reading in binary mode or through the collection are mutually exclusive.. it's an either/or situation.

It looks like you run SaveFiles after you've sent the email, but don't show that code above. My suggestion is you run it first, then use FreeASPUploads built in features to return the name of the attachment(s). In fact if you search in this forum (use the search button) then you will find information on doing exactly that, though I would recommend you start at the FreeASPUpload site:

http://www.freeaspupload.net/

A smile is worth a thousand kind words. So smile, it's easy!