Avatar billede kee.... Nybegynder
20. juni 2001 - 19:43 Der er 28 kommentarer og
1 løsning

Min tæller funger ikke...

Jeg kan simpelthen ikke regne ud hvorfor min tæller ikke virker.. Men jeg har som sædvanlig nok stirret mig blind på et eller andet... den skriver til en txt fil go ser sådan her ud-->

<%
Function Counter()
  Dir = Server.Mappath(\"Counter.txt\")
  Set File = CreateObject(\"Scripting.FileSystemObject\")
  Set Count = File.OpenTextFile(Dir)
  Counter = Cint(Count.ReadLine)
  Count.Close
  If Session(\"Counter\") = \"\" Then
    Session(\"Counter\") = Counter
    Counter = Counter + 1       
    Set Count = File.CreateTextFile(Dir,true)
    Count.WriteLine(Counter)
    Count.Close
  End If
  Set File = Nothing
  Set Count = Nothing
End Function
%>
<%=Counter%>

Er det mig der er helt dum..?!! Jeg kan IKKE finde nogle fejl...
Avatar billede kee.... Nybegynder
20. juni 2001 - 19:43 #1
Og ja.. min txt fil hedder Counter.txt :o)))
Avatar billede agony Nybegynder
20. juni 2001 - 20:41 #2
hvorfor laver du ikke din counter i global.asa med application.lock før og application.unlock efter ??? På den måde er du mere sikker på at fø et korrekt tal
Avatar billede no_doubt Nybegynder
20. juni 2001 - 20:44 #3
kan da godt poste et med access også. Kontakt mig på icq 92064248 hvis du er interesseret.
Avatar billede kee.... Nybegynder
20. juni 2001 - 20:52 #4
Ai hvor er i onde.. Nu var leg lige så glad for MIN tæller og så spolerer i bare det hele og sir jeg skal bruge noget andet :o))))

Men kan i finde fejlen???

Avatar billede egede Nybegynder
20. juni 2001 - 20:56 #5
Fornuftigt at lave den i en .txt-fil :-)

Hvad er fejlmeddelsen?
Avatar billede kee.... Nybegynder
20. juni 2001 - 21:09 #6
egede.. TAK!!!!!!! *kys.. næsten Griner*

Der er ingen fejlmeddelelse... men den står bare fast.. tælleren altså...

Jeg har den samme tæller på min default side... og den virker.... denne her tæller ligger i en anden mappe.. men virker ikke....
Avatar billede orca Nybegynder
20. juni 2001 - 21:21 #7
bruger de samme txt fil? Hvis de ligger i to forskellige mapper så husk at ændr filstien...

Mvh Mark

www.fotx.net/orca
Avatar billede orca Nybegynder
20. juni 2001 - 21:22 #8
jeg kan heller ikke rigtig se at sessionen \"Counter\" får tildelt nogen værdi før du læser den...
Avatar billede orca Nybegynder
20. juni 2001 - 21:40 #9
Counter = Cint(Count.ReadLine)

Skal det ikke snarere være

Session(\"Counter\") = Cint(Count.ReadLine)?

Mvh Mark
Avatar billede kee.... Nybegynder
20. juni 2001 - 21:41 #10
orca
Nej de bruger ikke samme txt fil..

men det er da underligt den virker et sted men ik et andet.. når de er ens.... *ser forvirret ud*
Avatar billede egede Nybegynder
20. juni 2001 - 21:44 #11
Tror det hjælper at skrive


  If Session(\"Counter\") <> \"\" Then
    counter = counter
  Else
    Session(\"Counter\") = Counter
    Counter = Counter + 1       
    Set Count = File.CreateTextFile(Dir,true)
    Count.WriteLine(Counter)
    Count.Close
  End If
Avatar billede egede Nybegynder
20. juni 2001 - 21:47 #12
Set Count = File.OpenTextFile(Dir,2)

2-tallet betyder forwriting
Avatar billede tdaugaard Nybegynder
20. juni 2001 - 21:59 #13
egede:> wtf ? hvad skal

counter = counter gøre godt for !? det er jo overkill af noget der ikke skal bruges .. ?
Avatar billede kee.... Nybegynder
20. juni 2001 - 22:01 #14
*sætter mig ned og ser på eksperterne mens de arbejder*
Avatar billede no_doubt Nybegynder
20. juni 2001 - 22:02 #15
kee, det er lavet. sendt
Avatar billede kee.... Nybegynder
20. juni 2001 - 22:04 #16
*min server er fucked, kan ikke modtage mail lige nu*

2 sek
Avatar billede kee.... Nybegynder
20. juni 2001 - 22:12 #17
Avatar billede kee.... Nybegynder
20. juni 2001 - 22:36 #18
ok... fik en tæller fra no doubt
working with acces database... og ser sådan her ud...

<%
        If Request.Cookies(\"visited\")(\"state\") = \"\" Then
        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\")

        Conn.Execute \"INSERT INTO ip(ip) VALUES (\'\" & Request.ServerVariables(\"REMOTE_ADDR\") & \"\');\"
        Response.Cookies(\"visited\")(\"state\") = \"yes\"
        Response.Cookies(\"visited\").Expires = DateAdd(\"d\", 1, Now)
    End If
%>

                  <%
        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\")

        Set Rs = Conn.Execute(\"SELECT COUNT(*) FROM ip;\")
%><%=Rs(0)%>

(til ære for dem der vil se)

Men jeg vil sq stadig gerne finde ud af hvorfor den anden ikke virker... :o))
Avatar billede kee.... Nybegynder
20. juni 2001 - 22:38 #19
KAN det have noget at gøre med at den i undermapperne hedder Counter-txt lige som den gør i roden?? Jeg mener.. kan den måske \"gå\" uden for mapperne?

*snakker sort igen tror jeg*
Avatar billede kee.... Nybegynder
20. juni 2001 - 22:47 #20
det kunne det sq... jeg har ændret Counter.txt til Counter1.txt i undermappen.. og nu funger den....

så jeg fandt selv ud af det...

Men tak alligevel.. :o))
Avatar billede tdaugaard Nybegynder
20. juni 2001 - 22:49 #21
*LOL* @ no_doubt\'s kode ... fåårk mand ..så ender du med en DB på flere MB ..
Avatar billede kee.... Nybegynder
20. juni 2001 - 22:51 #22
tdaugaard
såen går det når man ikke kan finde ud af at få nosset sig herind ik *griner*

Sløve læs.. du kan ikke andet end at brokke dig i dag :o))))

J/K
Avatar billede tdaugaard Nybegynder
20. juni 2001 - 22:52 #23
kee....:> bla bla yadda yadda .. jeg har bare ik tid til at lave noget bedre selv  .. og da slææt ikke for 30 point :P
Avatar billede kee.... Nybegynder
20. juni 2001 - 22:55 #24
tdaugaard...
ahmm.... 30? det endte med 60 *griner*

Men men men.... 30 p er vel også godt hvis man (som dig) er røget fra en 3 plads til en 6 plads på bare små 3 uger :-P

** ** ******
Avatar billede tdaugaard Nybegynder
20. juni 2001 - 22:57 #25
kee....:> jeg gider ikke engang klikke på et spørgsmål under 100p *GGG* J/K
Slid på musen, min hånd osv. .naa.. det er mere end 60p værd *LOL*
Avatar billede kee.... Nybegynder
20. juni 2001 - 22:58 #26
tdaugaard
ja ja... undskyldninger er der rigeligt af.....

Try me and YOU loose.... That\'s final... You don\'t cain the moose
(for du forstår ikke en brik af det irske)
*griner*

Ai.. skal nok være sød nu :o))))))))))))
Avatar billede kee.... Nybegynder
20. juni 2001 - 23:07 #27
Forøvrigt tdaugaard.. Hvis du ikke klikker på spørgsmål under 100p.. hvorfor fanden havner du så altid inde i mine spørgsmål?????
*griner*

:-P
Avatar billede tdaugaard Nybegynder
20. juni 2001 - 23:09 #28
kee....:> Sooomeeone sent me a link... :P
Avatar billede kee.... Nybegynder
20. juni 2001 - 23:10 #29
tdaugaard
den holder ikke... det gør jeg måske 2 ud af 6 gange :o))

You\'r tracker or what?

*****
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester