Asp problem!

MT

Hojlös:(
Gick med
9 Mar 2003
Ort
Lkpg
Hoj
Saknar min KTM
Hej!
Håller på och slita mitt hår för jag får inte mitt formulär att uppdatera som jag vill!

Jag har alltså en form som jag skall mata in text i och sedan spara ner det i en txt fil för att kunna visa det på en annan sida.

Visningen funkar perfa om man skapar en txt fil och skriver in lite text i den via ftp men jag får inte texten från formen att komma in i txt filen.
Felmeddelandet jag får är:

Microsoft VBScript runtime error '800a0036'

Bad file mode

/asp/skicka.asp, line 23


Och här kommer koden:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args+".location='"+args[i+1]+"'");
}
//-->
</script>
</head>

<% Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
strFilePath = Server.Mappath( "/" ) & "../../db/data.txt"

Set objFile = objFso_OpenTextFile(strFilePath)

objFile.WriteLine Request.Form("text")
Replace str, vbcrlf, "<br>"

%>

<body onLoad="MM_goToURL('parent','visa.asp');return document.MM_returnValue">
</body>
</html>



Fetmarkerade line 23.

Nån som vet vad det kan vara?
 

Zormin

Aldrig under 10.000 rpm
Gick med
6 Mar 2003
Ort
Linköping
Hoj
ZX-10R
File mode är read om man inte anger ngt annat. Öppna textfilen så här istället:
Set objFile = objFSO.OpenTextFile(strFilePath, 2)

Sen undrar jag varför du sätter objFSO två ggr och vad du har den sista replacen till...
 

MT

Hojlös:(
Gick med
9 Mar 2003
Ort
Lkpg
Hoj
Saknar min KTM
Hmm!

Testade med den ändringen men det funkade inte heller!

Den sista replacen är till för att få med radbytena så det ser lite hyffsat ut
eller?
 

MT

Hojlös:(
Gick med
9 Mar 2003
Ort
Lkpg
Hoj
Saknar min KTM
Zormin skrev:
Sen undrar jag varför du sätter objFSO två ggr och vad du har den sista replacen till...


Jippie! :banana

Det hade inte jag tänkt på alls!
När jag tog bort dom dubbla objFSO så funkade det klockrent!

Tusen tack för hjälpen även denna gången Zormin! :tummenupp
 
Last edited:

Zormin

Aldrig under 10.000 rpm
Gick med
6 Mar 2003
Ort
Linköping
Hoj
ZX-10R
Nä .. nu har du nog varit i flaskan tror jag.

Att du satte objFSO två ggr har inte med saken att göra. Det vara bara onödigt. Men du menar på allvar att det funkar utan tvåan? Då blir jag imponerad...

Den sista replacen gör replace på variabeln str som inte är definierad. Du använder inte str efter replacen heller. Om jag säger så här då: Vad har du tänkt att ha replacen till?
 

MT

Hojlös:(
Gick med
9 Mar 2003
Ort
Lkpg
Hoj
Saknar min KTM
Jo visst funkar det nu!
Dock är jag osäker på om jag verkligen refreshade sidan första gången jag
ändrade den.?!?

Nej 2:an är med nu också , det var det första jag ändrade!

Koden ser alltså ut på följande sätt.


</head>

<% Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

strFilePath = Server.Mappath( "/" ) & "../../db/data.txt"

Set objFile = objFSO.OpenTextFile(strFilePath, 2)

objFile.WriteLine Request.Form("text")
Replace str, vbcrlf, "<br>"

%>


Den sista replacen har jag bara för att det är tufft att ha den :rolleyes:

Provar att ta bort den och kolla om det funkar utan den!
 

MT

Hojlös:(
Gick med
9 Mar 2003
Ort
Lkpg
Hoj
Saknar min KTM
Och givetvis så fungerade det utan replacen med!
Fanken du är ju en klippa på asp! :yoparty

Nått tips på bra sida/bok som en riktig nybörjare kan lära sig mera om detta
ännu för mig skumma språk?
 

Zormin

Aldrig under 10.000 rpm
Gick med
6 Mar 2003
Ort
Linköping
Hoj
ZX-10R
MT skrev:
Och givetvis så fungerade det utan replacen med!
Det jag kan tänka mig att du kanske vill ha replacen till är att byta ut radbrytningar i texten från ditt formulärfält (det som heter "text" asså). Men då får du nog anropa replace innan du skriver till filen, typ:
objFile.WriteLine Replace(Request.Form("text"), vbcrlf, "<br>")

MT skrev:
Nått tips på bra sida/bok som en riktig nybörjare kan lära sig mera om detta ännu för mig skumma språk?
Denna kanske. Värsta tegelstenen! 1232 sidor :tummenupp
 

MT

Hojlös:(
Gick med
9 Mar 2003
Ort
Lkpg
Hoj
Saknar min KTM
Radbrytningarna funkar perfa just nu så jag hoppar det sålänge!

Hua! Den var nog lite för tung för min del.
Ingen "Lär dig allt om ASP på 5 min" bok? :rolleyes:
 

Zormin

Aldrig under 10.000 rpm
Gick med
6 Mar 2003
Ort
Linköping
Hoj
ZX-10R
MT skrev:
Hua! Den var nog lite för tung för min del.
Ingen "Lär dig allt om ASP på 5 min" bok? :rolleyes:
5 min? Jag lära dig ASP på 3-4 sek annars. Du får ett metallspett i nacken, du blinkar lite med ögonen, sen öppnar du ögonen och säger "I know ASP".

Men är du allergisk mot metallspett i nacken så har Bokus en lite lättare bok också. Annars så tror jag tegelstenen är bra. Det brukar vara mycket kodexempel i Wileys böcker.
 

MT

Hojlös:(
Gick med
9 Mar 2003
Ort
Lkpg
Hoj
Saknar min KTM
Hmm! Jag tror jag kommer att få mycket ont om vi kör din utlärningsteknik! ;)

Den boken tror jag passar mig lite bättre!
Skall inhandla nått snart iaf och plugga mera än dom halvhjärtade försök jag har gjort hitills.

Tack för tipsen!
 
Nyheter
Längre bakstänka för R 1300 GS

Det tyskbaserade företaget ...

Längre bakstänka för R 1300 GS

Svingarmslagringen, svingar...

Vi breddar tidningen ytterligare!

Björn Glansk från BigTwin o...

Vi breddar tidningen ytterligare!

Björn Glans från BigTwin oc...

Slut med fri mc-körning på Nürburgring Nordschleife

Motorcykelkörning på klassi...

Färre döda i vägtrafiken

Foto: Jacob Sjöman Trans...

Ökat antal körkortsåterkallelser

Foto: Liza Simonsson Und...

CFMOTO dag 2, Gymkhana, Gokartbana och Portimao!

Idag har vi äntligen fått s...

BMW Motorrad slår nytt försäljningsrekord

Efter att ha sålt 210 408 m...

Honda Gold Wing fyller 50 år

Sedan 1975 har Honda Gold W...

Top