ERROR on 'Set file = fso.opentextfile(path,3,TRUE)

PCLWebster · Feb 7, 2001

I'm just starting out with ASP and I am having loads of probs getting to write a file. I get an Error on the line containing Set file = fso.opentextfile(path,3,TRUE

I dunno why.. Maybe its because I havent been given a FULL path by my ISP. All they have given me is a folder called _Private which has read/write permissions.

Can any one help??? Please

<%
Dim name1,name2,email,company,address1,address2,address3,address4,username,password,password2,status
Dim strName,strUsername,strPassword,strCurrentStatus,path
Dim objCDO
path="/_private/pcl-user.txt"
sender=Request.Form("email&quot

first_name=Request.Form("name1&quot

last_name=Request.Form("name2&quot

company=Request.Form("company&quot

add1=Request.Form("address1&quot

add2=Request.Form("address2&quot

add3=Request.Form("address3&quot

add4=Request.Form("address4&quot

username=Request.Form("username&quot

password=Request.Form("password&quot

validate=Request.Form("password2&quot

status=Request.Form("status&quot

Set objCDO=Server.CreateObject("CDONTS.NewMail&quot

' Variables for Read/Write > > > > > > > > > > > > > > > >
strName=Request.Form("name1&quot

& Request.Form("name2&quot

strUsername=Request.Form("username&quot

strPassword=Request.Form("password&quot

strCurrentStatus="Guest"
Set fso=Server.CreateObject("Scripting.FileSystemObject&quot

set file=fso.opentextfile(path,3,TRUE)
file.write(strName) & vbcrlf
file.write(strUsername) & vbcrlf
file.write(strPassword) & vbcrlf
file.write(strCurrentStatus) & vbcrlf & vbcrlf
file.close
set file = nothing
set fso = nothing
' > > > > > > > > > > > > > > > > > > >
objCDO.From=sender
objCDO.To="webmaster@priory-campus.co.uk"
objCDO.Subject="HLC Registration"
objCDO.BodyFormat = 0
objCDO.MailFormat = 0
HTML="<html>"
HTML=HTML & "<head>"
HTML=HTML & "</head>"
HTML=HTML & "<body>"
HTML=HTML & first_name & " " & last_name & " from "& company &" has completed the regitration form." & " "
HTML=HTML & "Details are; "
HTML=HTML & "Username: " & username & " "
HTML=HTML & "Password: " & password & " "
HTML=HTML & "Company :" & " "
HTML=HTML & " " & company & " "
HTML=HTML & "Address :" & " "
HTML=HTML & " " & add1 & " "
HTML=HTML & " " & add2 & " "
HTML=HTML & " " & add3 & " "
HTML=HTML & " " & add4 & " "
HTML=HTML & "The user has requested " & status & " Status" & " "
HTML=HTML & "</body>"
HTML=HTML & "</html>"
objCDO.body=HTML
objCDO.Send
%>

<%
Response.Write("Thank You." & " Your current User Status is '"& current_status &"'&quot

%>

giahan · Feb 8, 2001

Hi,

When you set the path:
path="/_private/...."
it can't find that folder. Where do u locate ur _private folder. If it under ur web folder then you should set the webrootpath and then set the path as follow:
<% 'set path
Dim webrootPath
webrootPath = Server.MapPath("..&quot

Path = webrootPath & "\_private\yourtxt.txt"
'the rest u set is fine
%>

there is another way that u can do like:
<%
path="urDrive:/urfolder/urTxt.txt"
%>
u need to declare as a full path ):

<% Hope this helps %>

GH

PCLWebster · Feb 8, 2001

I am now getting the following error ;

Server object error 'ASP 0177 : 80070057'

Server.CreateObject Failed

/register.asp, line 44

When you said Web Root Path, do you mean the URL I FTP upload to ?

Sorry 2 b a pain ! ! !

giahan · Feb 8, 2001

I mean where you locate ur folder "_private"
Did u try both ways????

GH

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

ERROR on 'Set file = fso.opentextfile(path,3,TRUE)

PCLWebster

Technical User

giahan

Programmer

PCLWebster

Technical User

giahan

Programmer

Similar threads

Part and Inventory Search

Sponsor