T
Tracy
I am using ASP to write a text file and then email it. The data also
goes into a sql table (this works fine).
The error is a runtime error and says that the path cannot be found.
Any help would be appreciated!!! Thanks
here is the code:
Function WriteTextFile()
Dim STR
Dim filesys 'Dimension Variables required for File Output
Dim filetxt
Dim getname
Dim path
Set filesys = CreateObject("Scripting.FileSystemObject")
ERROR*** Set filetxt =
filesys.CreateTextFile("c:\www\curtisind.com\" & request.Form("name")
& ".txt", True)
'path = filesys.GetAbsolutePathName("c:\www\curtisind.com\" &
request.Form("name") & ".txt")
'getname = filesys.GetFileName(path)
filetxt.WriteLine(" ")
filetxt.WriteLine(" ")
filetxt.WriteLine(" ")
filetxt.WriteLine(" ")
filetxt.WriteLine("Name: " & Request.Form("name"))
filetxt.WriteLine("Company: " & Request.Form("company"))
filetxt.WriteLine("Email: " & Request.Form("email"))
filetxt.WriteLine("Phone Number: " & Request.Form("phone"))
filetxt.WriteLine("Password: " & Request.Form("password"))
filetxt.WriteLine("Confirm Pasword: " & Request.Form("password2"))
filetxt.WriteLine("----------------------------------------------------------------------------")
filetxt.Close
WriteTextFile = True
End Function
goes into a sql table (this works fine).
The error is a runtime error and says that the path cannot be found.
Any help would be appreciated!!! Thanks
here is the code:
Function WriteTextFile()
Dim STR
Dim filesys 'Dimension Variables required for File Output
Dim filetxt
Dim getname
Dim path
Set filesys = CreateObject("Scripting.FileSystemObject")
ERROR*** Set filetxt =
filesys.CreateTextFile("c:\www\curtisind.com\" & request.Form("name")
& ".txt", True)
'path = filesys.GetAbsolutePathName("c:\www\curtisind.com\" &
request.Form("name") & ".txt")
'getname = filesys.GetFileName(path)
filetxt.WriteLine(" ")
filetxt.WriteLine(" ")
filetxt.WriteLine(" ")
filetxt.WriteLine(" ")
filetxt.WriteLine("Name: " & Request.Form("name"))
filetxt.WriteLine("Company: " & Request.Form("company"))
filetxt.WriteLine("Email: " & Request.Form("email"))
filetxt.WriteLine("Phone Number: " & Request.Form("phone"))
filetxt.WriteLine("Password: " & Request.Form("password"))
filetxt.WriteLine("Confirm Pasword: " & Request.Form("password2"))
filetxt.WriteLine("----------------------------------------------------------------------------")
filetxt.Close
WriteTextFile = True
End Function