flasssss & ASP fra .txt

Det er der vist kun én der kan lave...

Erh? *g*

Diktator er den eneste ASP gut i den her kategori så vidt jeg ved...

Nej det er da ikke så svært - men tiden er gået i lort. På asp101.com ligger fx et eksempel. Vist også på asptoday.com. Det er godt nok til Access-men det er da nemt lavet om.

Men tiden...

Håber du kan bruge link\'sne i det mindste.

http://www.asp101.com er bare lige nede i øjeblikket....

Du kan bruge et ServerKomponent til det formål:
Den her skriver dato, tid, navn og email i en txt fil ved navn; \'log.txt\'

<%
Set objLog = Server.CreateObject(\"Scripting.fileSystemObject\")
  Set objTxtFile = objLog.OpenTextFile(\"x:\\home\\diktator\\\\log.txt\", 8, TRUE)
  objTxtFile.WriteLine(\"Dato: \" & Date() & \" \" & Time() & \", Navn: \" & Request(\"Navn\") & \" Email: \" & Request(\"Email\"))
  objTxtFile.Close
  Set objLog = Nothing
  Set objTxtFile = Nothing
%>

Og ja, log.txt skal selvfølgelig ligge på serveren i forvejen ;-)
/D!ktator

Erh.. Nu er jeg jo ikke lige den klogeste til ASP... Men kan du ikke forklare mig hvordan jeg ændrer det til at det skal være variabler den modtager fra flash i stedet for det der dato, tid, navn og email...?

- imp

BTW: Et copy & paste svar... TSK TSK TSK!!! *Gg*

ja, ok dato og alt det fis er bare lidt exkstra for pengene ;-)

Men kig lige efter her; & Request(\"DinVariable\")
Så simpelt kan det være ...

objTxtFile.WriteLine(\"DinVariable:\" & Request(\"DinVariable\"))

Hmmm... OK.. tror jeg er lidt mere med nu... Men jeg må nok hellere lige forklare mig nærmere så jeg er sikker på at det er det helt rigtige jeg får at vide... Det ASP\'en skal gøre er at gemme nogle varibler fra Flashen i et .txt-dokument sådan at Flashen senere kan hente disse variabler og bruge dem i en anden film... Disse variabler indeholder noget tekst som skal være i nogle bestemte tekstboxe i den anden film... Dem skriver man ind i den første film som sender dem til ASP\'en som sender dem til .txt-dokumentet som bliver åbnet af den anden Flash der bruger disse variabler til at skrive den tekst man tidligere har skrevet ind til at blive skrevet i nogle andre tekstboxe... Blahhh... Jeg kludrer i ordene... Håber du forstår? *Gg*

- imp

skal den egentlig ikke sætte et & ind før navnet på variablen for at flash forstår det er en variabel?

Jeg forstår, og du har fået det du skal bruge...

Ovenstående script er din ASP der modtager ved dine variable fra Flash ved hjælp af Request parameteret. Dernæst skriver den dine variable ned i et txt dokument ved navn log.txt (du sender vel dine variable fra Flash med \'POST\' og henviser til denne ASP)

Nu kan du frit og kvit hente fra log.txt
Hvis Flash skal hente en variable og dens værdi skal det sættes op således:

TilFlash=DinVariable

DVS. at du skal skrive til din log.txt sådan:
objTxtFile.WriteLine(\"TilFlash=\" & Request(\"DinVariable\"))

Vær opmærksom på at du kan indsætte breaks i dit script efter hvert input.

Du skal indsætte et \'&\' hvis du skal hente flere variable F.eks:

objTxtFile.WriteLine(\"TilFlash=\"& Request(\"DinVariable\") & \"&Variable2\" & Request(\"DinVariable2\"))
 

rettelse:

objTxtFile.WriteLine(\"TilFlash=\"& Request(\"DinVariable\") & \"&Variable2=\" & Request(\"DinVariable2\"))

Ahem... Ok... RET dumt spørgsmål... Heh... Hvordan sender man variblerne til ASP\'en? Er helt væk lige nu...

- imp

on (release) {
    loadVariablesNum (\"stien-til-din.asp\", 0, \"POST\");
}

I linien objTxtFile.WriteLine(\"TilFlash=\"& Request(\"DinVariable\"))  skal der hvor der står DinVariable så være navnet på min variabel med et & foran eller uden (variabler i flash laves jo med &)? Dvs. objTxtFile.WriteLine(\"TilFlash=\"& Request(\"&overskrift\")) f.eks.?

- imp

Der skal ikke et \'&\' foran.

en variable streng ser normalt sådan her ud:

Overskrift=Overskriften&Indhold=Indholdet

Dvs. at din første variable ikke skal indehode et & tegn, men derimod hvis du vil tilføje flere adskiller du dem med & tegn.

Se min rettelse, (..& \"&Variable2=\"Request(\"DinVariable2\"))  sådan fungerer det :)

Hmm.. Kigger lige videre på det i morgen om det fungerer (har fri nu *Ss*) Så det er i morgen der er point... :)
tak for hjælpen indtil videre...

- imp

Hehe... Skal lige vide nogle ting...:

Skal Flashen ligge i ASP-dokumentet?
Hvad skal stien til ASP-dokumentet være i LoadVariablesNum hvis ASP-dokumentet ligger i samme mappe? Bare indhold.asp?
Hvad skal Flashen gøre efter den har lavet LoadVariblesNum ? Kan den godt køre videre til næste frame?

Mvh. imp

Det er en god idé at lægge flash og ASP i samme bibliotek., og ja, så skal det bare være \'indhold.asp\'

Flashen kan sagtens køre videre efter det ....

Hvordan går det imp ??

:) Bare rolig der skal nok blive givet point til dig... Men jeg skal lige tilbage på arbejdet først *Ss* Det er jo weekend og jeg har ikke hevet det med hjem til comp\'N herhjemme da jeg for det meste ikke sidder ved computeren herhjemme *Ss*

Mvh. imp

ja, Man skal også have lov til at slappe af en gang imellem ;-)
fortsat god weekend...

Heh... Endelig er jeg tilbage... Jeg har ligget syg det sidste lange stykke tid :(
Nårh, men skal vi så se på det...

Diktator-> Når jeg prøver at gå ind på .asp-siden får jeg kun denne meddelelse:

\"Server object error \'ASP 0177 : 800a0046\'

Server.CreateObject Failed

/asptestside/indhold.asp, line 3

The operation completed successfully.\"

Hvad vil det sige?

- imp

1) Du skal være sikker på at ServerKomponentet er installeret rigtigt på din server.

2) Bliver dine variable \'Navn\' og \'Email\' ikke sendt med kan der opstå fejl. Prøv f.eks: at sætte:

<%
MyNavn = Request(\"Navn\")
If MyNavn =\"\" THEN
MyNavn =\"Ikke oplyst\"
END IF

MyEmail=Request(\"Email\")
if MyEmail =\"\" THEN
MyEmail =\"Ikke oplyst\"
END IF


Set objLog = Server.CreateObject(\"Scripting.fileSystemObject\")
  Set objTxtFile = objLog.OpenTextFile(\"x:\\home\\diktator\\\\log.txt\", 8, TRUE)
  objTxtFile.WriteLine(\"Dato: \" & Date() & \" \" & Time() & \", Navn: \" & MyNavn & \" Email: \" & MyEmail)
  objTxtFile.Close
  Set objLog = Nothing
  Set objTxtFile = Nothing
%>

3) Hvis du har brugt Copy - Paste her fra eksperten, kan der være kommet nogle mellemrum med, som konflikter i scriptet.

/D!ktator.dk

Du kan evt. paste dit script her, så kan jeg se om der er noget galt ...

damn.. *gG* Jeg har alt for travlt lige nu... Hvor er det irriterende! Synes ikke rigtig jeg får lov til at lave de ting jeg begynder på færdig før der kommer noget nyt... skod arbejde *Gg*

dik-> Jes... Her har du mit script.. *Ss*

<%
        Set objTxtFile = objLog.OpenTextFile(\"test.txt\", 8, TRUE)
        objTxtFile.WriteLine(\"&overskrift=\" & Request(\"overskriftindtast\") & \"&forsidetekst=\" & Request(\"forsidetekstindtast\") & \"&menuknap1=\" & Request(\"menuknap1indtast\") & \"&menuknap2=\" & Request(\"menuknap2indtast\") & \"&menuknap3=\" & Request(\"menuknap3indtast\") & \"&menuknap4=\" & Request(\"menuknap4indtast\") & \"&menuknap5=\" & Request(\"menuknap5indtast\") & \"&menuknap6=\" & Request(\"menuknap6indtast\") & \"&rakke1knap1=\" & Request(\"rakke1knap1indtast\") & \"rakke1knap2=\" & Request(\"rakke1knap2indtast\") & \"&rakke1knap3=\" & Request(\"rakke1knap3indtast\") & \"&rakke1knap4=\" & Request(\"rakke1knap4indtast\") & \"&rakke2knap1=\" & Request(\"rakke2knap1indtast\") & \"&rakke2knap2=\" & Request(\"rakke2knap2indtast\") & \"&rakke2knap3=\" & Request(\"rakke2knap3indtast\") & \"&rakke3knap1=\" & Request(\"rakke3knap1indtast\") & \"&rakke3knap2=\" & Request(\"rakke3knap2indtast\") & \"&rakke3knap3=\" & Request(\"rakke3knap3indtast\") & \"&rakke4knap1=\" & Request(\"rakke4knap1indtast\") & \"&rakke4knap2=\" & Request(\"rakke4knap2indtast\") & \"&rakke4knap3=\" & Request(\"rakke4knap3indtast\") & \"&rakke4knap4=\" & Request(\"rakke4knap4indtast\") & \"&rakke4knap5=\" & Request(\"rakke4knap5indtast\") & \"&rakke5knap1=\" & Request(\"rakke5knap1indtast\") & \"&rakke5knap2=\" & Request(\"rakke5knap2indtast\") & \"&rakke6knap1=\" & Request(\"rakke6knap1indtast\") & \"&rakke6knap2=\" & Request(\"rakke6knap2indtast\") & \"&rakke6knap3=\" & Request(\"rakke6knap3indtast\") & \"&rakke6knap4=\" & Request(\"rakke6knap4indtast\") & \"&rakke1knap1url=\" & Request(\"rakke1knap1urlindtast\") & \"&rakke1knap2url=\" & Request(\"rakke1knap2urlindtast\") & \"&rakke1knap3url=\" & Request(\"rakke1knap3urlindtast\") & \"&rakke1knap4url=\" & Request(\"rakke1knap4urlindtast\") & \"&rakke2knap1url=\" & Request(\"rakke2knap1urlindtast\") & \"&rakke2knap2url=\" & Request(\"rakke2knap2urlindtast\") & \"&rakke2knap3url=\" & Request(\"rakke2knap3urlindtast\") & \"&rakke3knap1url=\" & Request(\"rakke3knap1urlindtast\") & \"&rakke3knap2url=\" & Request(\"rakke3knap2urlindtast\") & \"&rakke3knap3url=\" & Request(\"rakke3knap3urlindtast\") & \"&rakke4knap1url=\" & Request(\"rakke4knap1urlindtast\") & \"&rakke4knap2url=\" & Request(\"rakke4knap2urlindtast\") & \"&rakke4knap3url=\" & Request(\"rakke4knap3urlindtast\") & \"&rakke4knap4url=\" & Request(\"rakke4knap4urlindtast\") & \"&rakke4knap5url=\" & Request(\"rakke4knap5urlindtast\") & \"&rakke5knap1url=\" & Request(\"rakke5knap1urlindtast\") & \"&rakke5knap2url=\" & Request(\"rakke5knap2urlindtast\") & \"&rakke6knap1url=\" & Request(\"rakke6knap1urlindtast\") & \"&rakke6knap2url=\" & Request(\"rakke6knap2urlindtast\") & \"&rakke5knap3url=\" & Request(\"rakke6knap3urlindtast\") & \"&rakke6knap4url=\" & Request(\"rakke6knap4urlindtast\") & \"&menunedknap=\" & Request(\"menunedknapindtast\") & \"&ned=\" & Request(\"ned1indtast\") & \"&ned2=\" & Request(\"ned2indtast\") & \"&ned3=\" & Request(\"ned3indtast\") & \"&ned4=\" & Request(\"ned4indtast\") & \"&ned1url=\" & Request(\"ned1urlindtast\") & \"&ned2url=\" & Request(\"ned2urlindtast\") & \"&ned3url=\" & Request(\"ned3urlindtast\") & \"&ned4url=\" & Request(\"ned4urlindtast\"))
        objTxtFile.Close
        Set objTxtFile = Nothing
%>

Heh.. Der er MANGE variabler... *Ss*
Kan det passe det skal se sådan ud?

Du mangler at sætte \'Server.CreateObject\' i 1. linie.
Stien til din \'log.txt\' skal være absolut. dvs. stien helt til roden af din server.(jeg har sat et \'x\' som skal svare til drevet på serveren)

Set objLog = Server.CreateObject(\"Scripting.fileSystemObject\")
Set objTxtFile = objLog.OpenTextFile(\"x:\\home\\doemaene\\log.txt\", 8, TRUE)
objTxtFile.WriteLine(\"&overskrift=\" & Request(\"overskriftindtast\") & \"&forsidetekst=\" & Request(\"forsidetekstindtast\") & \"&menuknap1=\" & Request......osv

Hmm... Heh.. Hvordan finder jeg ud af hvilket drev det er på serveren? - det er sgu mere besværligt end jeg troede det her...

Sæt det her ind i en asp fil, så skriver den stien til din server:
<% Response.Write Server.MapPath(\"\\\")%>

eller noget i retning af

Set objTxtFile = objLog.OpenTextFile(Server.MapPath(\".\") & \"test.txt\", 8, TRUE)

muligvis:

Set objTxtFile = objLog.OpenTextFile(Server.MapPath(\".\") & \"/test.txt\", 8, TRUE)

Eller:
Set objTxtFile = objLog.OpenTextFile(server.mappath(\"log.txt\"),8,TRUE)

UPS ;
log.txt == text.txt

Forudsætter det ikke at den er der i forvejen? (I default dir\'et)

Jo, men han kan bare skrive ind til sit bibliotek hvori filen ligger:
Set objTxtFile = objLog.OpenTextFile(server.mappath(\"mit-bibliotek/test.txt\"),8,TRUE)

Yep - hvis der så er der

Diktator-> Heh... MANGE tak for hjælpen.. Har ikke rigtig prøvet det nye om det virker, men det gør det garanteret... Jeg har dog besluttet mig for at bruge et dos program til at lave det i istedet... Men jeg er meget glad for du gad bruge tid på at hjælpe mig og du skal selvfølgelig nok få alle pointene :)

Mvh. imp

Selvtak - jeg håber du får det til at virke ;-)

/D!ktator