Microsoft VBScript runtime error '800a01a8'

Hi-

I am having so many problems with this script. It emails information from a form to an email address. Everything worked like a charm until i had to add the ability to upload an image.
I am using the code that my webhost requires SoftArtisans.FileUp - and now i have obviously done something wrong.

Here is the error:

Microsoft VBScript runtime error '800a01a8'

Object required: 'Upload'

/be_friends_form2.asp, line 62

-------------------

The form code is here: www.thinkfeelbe.com/be_friends_form2.html

-------------------

Here is the code:

<%
' ----------------------------------------------------
' -----
' ----- Forms To Go v2.6.9 by Bebosoft, Inc.
' -----
' ----- [bebosoft.com...]
' -----
' ----------------------------------------------------

'----------
' Filter Control Characters

Function filterCchar(TextToFilter)

Dim regEx

Set regEx = New RegExp

regEx.Global = true
regEx.IgnoreCase = true
regEx.Pattern ="[\x00-\x1F]"

filterCchar = regEx.Replace(TextToFilter, "")

End Function
Dim ClientIP

if Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" then
ClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
else
ClientIP = Request.ServerVariables("REMOTE_ADDR")
end if

Dim objCDOSYSMail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Dim objCDOSYSCnfg
Set objCDOSYSCnfg = Server.CreateObject("CDO.Configuration")

Dim oFileUp

'--- Instantiate the FileUp object
Set oFileUp = Server.CreateObject("SoftArtisans.FileUp")

'--- Set the Path property to the location you wish to temporarily cache the incoming file before saving
oFileUp.Path = Server.MapPath("uploads")

'--- Check if a file was selected (myFile is coming from the html code)
'--- If so, continue processing
If Not oFileUp.Form("attachedfile").IsEmpty Then

'--- Save the file
oFileUp.Form("attachedfile").Save

Else
Response.Write("Error: There was no file submitted for upload.")
End If

'--- Destroy objects
Set oFileUp = Nothing
FTGname = Upload.Form("name")
FTGage = Upload.Form("age")
FTGcity = Upload.Form("city")
FTGstate = Upload.Form("state")
FTGemail = Upload.Form("email")
FTGoccupation = Upload.Form("occupation")
FTGHow_stay_fit = Upload.Form("How_stay_fit")
FTGwhat_motivates_you = Upload.Form("what_motivates_you")
FTGpassions_hobbies = Upload.Form("passions_hobbies")

If Not fileUpload_attachedfile Is Nothing Then
FTGattachedfile = fileUpload_attachedfile.Path
Else
FTGattachedfile = ""
End If
FTGfull_name = Upload.Form("full_name")
FTGmail_address = Upload.Form("mail_address")
FTGcity_mail = Upload.Form("city_mail")
FTGstate_mail = Upload.Form("state_mail")
FTGzip_mail = Upload.Form("zip_mail")
FTGphone = Upload.Form("phone")
FTGsubmit = Upload.Form("submit")

' Redirect user to the error page

If (validationFailed = true) Then

Response.Redirect "error.html"
Response.End

End If

' Owner Email: cdosys

objCDOSYSCnfg.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.1and1.com"
objCDOSYSCnfg.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCnfg.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCnfg.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCnfg.Fields.Update

objCDOSYSMail.Configuration = objCDOSYSCnfg
emailFrom = FilterCchar(FTGemail)
emailSubject = FilterCchar("Be Friends Form")
emailBodyText = "Name: " & FTGname & "" & vbCrLf _
& "" & vbCrLf _
& "Age: " & FTGage & "" & vbCrLf _
& "" & vbCrLf _
& "City: " & FTGcity & "" & vbCrLf _
& "" & vbCrLf _
& "State: " & FTGstate & "" & vbCrLf _
& "" & vbCrLf _
& "Email Address: " & FTGemail & "" & vbCrLf _
& "" & vbCrLf _
& "Occupation: " & FTGoccupation & "" & vbCrLf _
& "" & vbCrLf _
& "How do you stay fit?: " & FTGHow_stay_fit & "" & vbCrLf _
& "" & vbCrLf _
& "What motivates you?: " & FTGwhat_motivates_you & "" & vbCrLf _
& "" & vbCrLf _
& "What are your passions and hobbies?: " & FTGpassions_hobbies & "" & vbCrLf _
& "" & vbCrLf _
& "attachedfile: " & FTGattachedfile & "" & vbCrLf _
& "" & vbCrLf _
& "Full Name: " & FTGfull_name & "" & vbCrLf _
& "" & vbCrLf _
& "Mailing Address: " & FTGmail_address & "" & vbCrLf _
& "" & vbCrLf _
& "City: " & FTGcity_mail & "" & vbCrLf _
& "" & vbCrLf _
& "State: " & FTGstate_mail & "" & vbCrLf _
& "" & vbCrLf _
& "Zip Code: " & FTGzip_mail & "" & vbCrLf _
& "" & vbCrLf _
& "Phone: " & FTGphone & "" & vbCrLf _
& "" & vbCrLf _
& "" & vbCrLf _
& ""

objCDOSYSMail.To = "shawnbee@charter.net, robin@thinkfeelbe.com"
objCDOSYSMail.From = emailFrom
objCDOSYSMail.Subject = emailSubject
objCDOSYSMail.TextBody = emailBodyText
objCDOSYSMail.BodyPart.Charset = "ISO-8859-1"

If Not fileUpload_attachedfile Is Nothing Then

objCDOSYSMail.AddAttachment fileUpload_attachedfile.path

End If

objCDOSYSMail.Send

' Redirect user to success page

Response.Redirect "thankyou.html"

' End of ASP script
%>

Microsoft VBScript runtime error '800a01a8'

SBee

mattglet

SBee

mattglet

SBee

Join The Conversation

Moderators and Top Contributors

Hot Threads This Week