Søg
Avatar billede kramerfan Nybegynder
05. november 2000 - 22:05 Der er 16 kommentarer og
1 løsning

hva\' fanden er der galt

Den siger at den ikke kan finde ned til filen.
Hvor meget skal man skrive med af stien.
Dim filesys, peoplefile, fname, lname, gender, age, email
Set filesys = CreateObject(\"Scripting.FileSystemObject\")
Set peoplefile = _
filesys.OpenTextFile( _
\"http://www14.brinkster.com/jewer/guestbook/gbpeople.txt\",1)
dette er den fejl Netscape kommer med.
 
Microsoft VBScript runtime error \'800a004c\'
Path not found
/jewer/guestbook/gblist.asp, line 12

Jeg har brugt mange timer på dette \"lille\" problem. Er der ikke en der har en løsning.
Avatar billede dalbjerg Nybegynder
05. november 2000 - 22:06 #1
Det er fordi, du ikke skal bruge www stien men den fysik sti, eks d:\\www\\brinkster.com\\jewer\\guestbook\\gbpeople

Avatar billede dalbjerg Nybegynder
05. november 2000 - 22:07 #2
eller brug server.mappath metoden
Avatar billede stigc Nybegynder
05. november 2000 - 22:10 #3
  Set objFS = CreateObject(\"Scripting.FileSystemObject\")
  strDir = Request.ServerVariables(\"SCRIPT_NAME\")
  sFile = Server.MapPath(Left(strDir, InStrRev(strDir,\"/\"))) & \"/dinfil.asp\" & sFile
  Set tekst = objFS.OpenTextFile(sFile, 1, False)
Avatar billede kramerfan Nybegynder
05. november 2000 - 23:02 #4
dalbjerg
hvad mener du med fysik sti.
Det er jo en tekst fil der ligger nede på serveren som jeg skal skrive ned i.
Avatar billede kramerfan Nybegynder
05. november 2000 - 23:10 #5
jeg tror det er denne sætning jeg ikke forstår.

\"c:\\inetpub\\wwwroot\\gb\\gbpeople.TXT\",_

Det er den der skal konfigueres til min opsætning. Hvad skal der stå når min sti er
http://www14.brinkster.com/jewer/guestbook/gbpeople.txt\"

Avatar billede stigc Nybegynder
05. november 2000 - 23:11 #6
kramerfan>>

Hvis du bruger:

  Set objFS = CreateObject(\"Scripting.FileSystemObject\")
  strDir = Request.ServerVariables(\"SCRIPT_NAME\")
  sFile = Server.MapPath(Left(strDir, InStrRev(strDir,\"/\"))) & \"/dinfil.asp\"

Så får du den rigtig sti, ligemeget hvor koden ligger!
Avatar billede kramerfan Nybegynder
05. november 2000 - 23:29 #7
stigc
hvad skal så stå hvor

<%
Dim objFS, peoplefile (du manglede denne sætning)
Set objFS = CreateObject(\"Scripting.FileSystemObject\")
  strDir = Request.ServerVariables(\"peoplefile\")
  sFile = Server.MapPath(Left(strDir, InStrRev(strDir,\"/\"))) & \"/gbproc.asp\" & sFile
  Set tekst = objFS.OpenTextFile(sFile, 1, False)
peoplefile.WriteLine Request.Form(\"FirstName\")
peoplefile.WriteLine Request.Form(\"LastName\")
peoplefile.WriteLine Request.Form(\"Gender\")
peoplefile.WriteLine Request.Form(\"Age\")
peoplefile.WriteLine Request.Form(\"Email\")
%>
Avatar billede stigc Nybegynder
05. november 2000 - 23:53 #8
Hvis du gerne vil skrive til filen:


<%
Dim objFS, peoplefile (du manglede denne sætning)
Set objFS = CreateObject(\"Scripting.FileSystemObject\")
  strDir = Request.ServerVariables(\"peoplefile\")
  sFile = Server.MapPath(Left(strDir, InStrRev(strDir,\"/\"))) & \"/gbpeople.txt\" & sFile
 
Set rekordliste = objFS.CreateTextFile(sFile, True)
peoplefile.WriteLine Request.Form(\"FirstName\")
peoplefile.WriteLine Request.Form(\"LastName\")
peoplefile.WriteLine Request.Form(\"Gender\")
peoplefile.WriteLine Request.Form(\"Age\")
peoplefile.WriteLine Request.Form(\"Email\")
%>
Avatar billede stigc Nybegynder
05. november 2000 - 23:54 #9
UPS:

Hvis du gerne vil skrive til filen:


<%
Dim objFS, peoplefile (du manglede denne sætning)
Set objFS = CreateObject(\"Scripting.FileSystemObject\")
  strDir = Request.ServerVariables(\"peoplefile\")
  sFile = Server.MapPath(Left(strDir, InStrRev(strDir,\"/\"))) & \"/gbpeople.txt\" & sFile
 
Set peoplefile = objFS.CreateTextFile(sFile, True)
peoplefile.WriteLine Request.Form(\"FirstName\")
peoplefile.WriteLine Request.Form(\"LastName\")
peoplefile.WriteLine Request.Form(\"Gender\")
peoplefile.WriteLine Request.Form(\"Age\")
peoplefile.WriteLine Request.Form(\"Email\")
%>
Avatar billede kramerfan Nybegynder
05. november 2000 - 23:59 #10
så melder den fejlen

Microsoft VBScript runtime error \'800a01f4\'
Variable is undefined: \'strDir\'
/jewer/guestbook/gbproc.asp, line 17
Avatar billede kramerfan Nybegynder
06. november 2000 - 00:02 #11
er det rigtigt at script_name i denne sætning skal være \"peoplefile\"

strDir = Request.ServerVariables(\"SCRIPT_NAME\")
Avatar billede stigc Nybegynder
06. november 2000 - 00:02 #12
<%
Set objFS = CreateObject(\"Scripting.FileSystemObject\")
  strDir = Request.ServerVariables(\"SCRIPT_NAME\")
  sFile = Server.MapPath(Left(strDir, InStrRev(strDir,\"/\"))) & \"/gbpeople.txt\"

Set peoplefile = objFS.CreateTextFile(sFile, True)
peoplefile.WriteLine Request.Form(\"FirstName\")
peoplefile.WriteLine Request.Form(\"LastName\")
peoplefile.WriteLine Request.Form(\"Gender\")
peoplefile.WriteLine Request.Form(\"Age\")
peoplefile.WriteLine Request.Form(\"Email\")
%>
Avatar billede stigc Nybegynder
06. november 2000 - 00:03 #13
der skal stå:

strDir = Request.ServerVariables(\"SCRIPT_NAME\")
Avatar billede kramerfan Nybegynder
06. november 2000 - 00:05 #14
der er noget med en variabel der ikke er defineret
Fra netscape:
\"Variable is undefined: \'strDir\'\"
Avatar billede kramerfan Nybegynder
06. november 2000 - 00:09 #15
nu ser scriptet sådan her ud og den skriver at permission denied i linie 22.

<% Option Explicit %>
<html>
<head>
<title>Guest Book Response</title>
</head>
<body>
<%=now%><p>
<%=Request.Form(\"FirstName\")%><br>
<%=Request.Form(\"LastName\")%><br>
Gender: <%=Request.Form(\"Gender\")%><br>
Age: <%=Request.Form(\"Age\")%><br>
Email: <%=Request.Form(\"Email\")%><p>
<p>
<%
Dim objFS, peoplefile
Dim strDir
Dim sfile
Set objFS = CreateObject(\"Scripting.FileSystemObject\")
  strDir = Request.ServerVariables(\"SCRIPT_NAME\")
  sFile = Server.MapPath(Left(strDir, InStrRev(strDir,\"/\"))) & \"/gbpeople.txt\" & sFile
 
Set peoplefile = objFS.CreateTextFile(sFile, True)
peoplefile.WriteLine Request.Form(\"FirstName\")
peoplefile.WriteLine Request.Form(\"LastName\")
peoplefile.WriteLine Request.Form(\"Gender\")
peoplefile.WriteLine Request.Form(\"Age\")
peoplefile.WriteLine Request.Form(\"Email\")
%>

<h3>This information has been saved.</h3>

<a href=\"gblist.asp\">See others who signed in.</a>
</body>
</html>
Avatar billede stigc Nybegynder
06. november 2000 - 00:14 #16
Jeg tror det er rigtigt nu. Prøv at sætte en respone.write så du kan se om stien er rigtig!

Set objFS = CreateObject(\"Scripting.FileSystemObject\")
  strDir = Request.ServerVariables(\"SCRIPT_NAME\")
  sFile = Server.MapPath(Left(strDir, InStrRev(strDir,\"/\"))) & \"/gbpeople.txt\" & sFile
 
>>>>>>>>  respone.write(\"\" & sFile)
Avatar billede kramerfan Nybegynder
06. november 2000 - 00:22 #17
den skriver denne sti ud
e:\\sites\\www14\\jewer\\guestbook/gbpeople.txt

så efter www14  mangler brinkster.com
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 08:39 Produktnøgle Af hkv i Office & Kontorpakker
13/1116:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »