Skriva till fil via form action="... ???

testa så här

<form method="Get" Action="update.asp?func=editmenu">
<SELECT id=select1 name=val>
<OPTION>Choose Country to view</OPTION>
<OPTION value=uk>United Kingdom</OPTION>
<OPTION value=se>Sweden</OPTION>
</SELECT>
<%

strPath = server.mappath("./") & "\txt_country_all.txt")

SET fsoall=CreateObject("scripting.FileSystemObject")
SET txtFilall=fsoall.OpenTextFile(strPath, 8)
txt_country_all=txtFilall.ReadAll
txt_country_all= txtFilall.WriteLine(val&"<BR>")
Response.Write(val)
txtFil_country_all.Close
%>
<input type="submit" value="Go" name="cmdSkicka"> 
</form>

------------------
kolung.....det tål att tänkas på!

[Redigerat av icaaq den 11 dec 2001]

Har testat ditt förslag men det ville sig inte till en början. Upptäckte sedan lite fel
i filnamnet.

Efter korrigering så ser koden ut så här:

<form method="Get" Action="update.asp?func=editmenu">
<SELECT name=val>
<OPTION>Choose Country to view</OPTION>
<OPTION value=uk>United Kingdom</OPTION>
<OPTION value=se>Sweden</OPTION>
</SELECT>

<%
strPath = server.mappath("txtFilall.txt")

SET fsoall=CreateObject("scripting.FileSystemObject")
SET txtFilall=fsoall.OpenTextFile(strPath, 8)
'txt_country_all=txtFilall.ReadAll (Bortkommenterad för att jag fick "BAD FILE MODE" på denna rad)
txt_country_all= txtFilall.WriteLine(val)
Response.Write(val)
txtFilall.Close
%>

<input type="submit" value="Go" name="cmdSkicka">
</form>

Det Trubbel som återstår är det att när sidan laddas igen så hänger inte menyn
med i addressbaren. Som ser ut så här:

admin/update.asp?val=uk&cmdSkicka=Go

Mysko!? Eller hur? Och vad kan det bero på tro?

------------------
There is no Tomorrow...

Okay!

Har nu kommit förbi det lilla bekymret (kör med post iställer för get i form action). Men men, som vanligt så kommer det alltid lite efterföljande problem. filen ser nu ut så här:

"Variabeldeklarationer, cookies etc."

landet = Request.form("val")

'läser upp en textfil med superadmins val i listboxen. Det landet listas sedan

SET fsoall=CreateObject("scripting.FileSystemObject")
set txtFilall = fsoall.OpenTextFile (Server.MapPath("txtFilall.txt"))
txt_country_all=txtFilall.ReadAll
Response.Write(txt_country_all)
txtFilall.Close

"Sen kommer det lite SQL"

	SQL = "SELECT \* FROM tblUpdate\_" & txt_country_all &"  where...

"Sen kommer det lite HTML"

<form method="post" Action="update_hdx.asp?func=editmenu">

<SELECT name=val>
<OPTION>Choose Country to view</OPTION>
<OPTION value=uk>United Kingdom</OPTION>
<OPTION value=se>Sweden</OPTION>
</SELECT>
<input type="submit" value="Go" name="cmdSkicka">
</form>

<%
strPath = server.mappath("txtFilall.txt")

SET fsoall=CreateObject("scripting.FileSystemObject")
SET txtFilall=fsoall.OpenTextFile(strPath, 8)
'txt_country_all=txtFilall.ReadAll
txt_country_all= txtFilall.WriteLine(val)
Response.Write(val)
txtFilall.Close
%>

Det fungerar jättebra så långt. Men i filen så lägger den till option valet
istället för att ersätta den befintliga. Finns det någon växel eller dylikt
så att det blir replace istället för en append?

Har nu några förslag till en stackars Hobby knackare?

------------------
There is no Tomorrow...

[Redigerat av T_Codez den 12 dec 2001]

Hej igen

Ibland är man så skruvad i kodträsket att man gör det svårare än det borde vara... (Nybörjargrej antar jag).

Grumf... Ni som följt mitt lilla dilemma har säkert undrat varför jag inte gjort så här från början.

Lösningen blev i alla fall... HELLO T_Codez! Räcker det inte med en variabel, kanske!

Självklart gör'e det, tänkte jag i mitt något frustrerade sinne. Och sen åtgärdade jag min tanke bugg.

Så för er som läst och undrar hur det gick med variablelösningen då? så kommer lösningen här:

<% option explicit
Dim landet, SelLandet...

landet = Request.form("val")

if landet = "" then
landet = "uk"
end if

'############################ Textfil med användarens ModersLand om ej satt till ALL admin som ser alla länder

SET fso=CreateObject("scripting.FileSystemObject")
set txtFil ...

'############################ SELECT SATS MED LANDS RÄTTIGHETER
SELECT * ...

'############################ SELECT SATS MED ALL RÄTTIGHETER
'SELECT * Fr...

<!-- #INCLUDE FILE="include/inc_gui.asp" -->

<HTML...> etc.

<form method="post" Action="update.asp?func=editmenu">

...<SELECT name=val>
<OPTION value=uk>Choose Country to view</OPTION> 'Uk is default and allways the first choise
<OPTION value=uk>United Kingdom</OPTION>
<OPTION value=se>Sweden</OPTION>
</SELECT>
<input type="submit" value="Go" name="cmdSkicka">
</form>

Ps. Alla som ägnat detta problem en tanke ska ha ett stort tack i alla fall. :e

------------------
There is no Tomorrow...