--- title: "för att klara alla asp-script" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/9468-för-att-klara-alla-asp-script" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Sico" published: "2001-05-14T08:22:00.000Z" updated: "2001-05-14T13:19:00.000Z" replies: 24 views: 384 page: 1 pages: 2 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/9468-för-att-klara-alla-asp-script" --- # för att klara alla asp-script _Sida 1 av 2._ ## #1 — Sico, 2001-05-14T08:22Z Tjena Jag har en liten smygserver men den stödjer inte alla asp-script. Vad behövs för att den ska göra det? Permalänk: https://www.webforum.nu/p/9468 ## #2 — Vide, 2001-05-14T08:27Z Det beror självklart hur koden ser ut... kod med ASP3 kan naturligtvis inte fungera på en server med bara ASP2... finns en del andra saker, men det är oftast begränsningar på servern... Permalänk: https://www.webforum.nu/p/268583 ## #3 — Sico, 2001-05-14T08:29Z Ok.. Hur bankar jag in ASP3 i burken då? Permalänk: https://www.webforum.nu/p/268584 ## #4 — erka, 2001-05-14T08:34Z installerar internet information server 5.0 eller senaste pws:en Permalänk: https://www.webforum.nu/p/268585 ## #5 — Sico, 2001-05-14T08:54Z Jag kan slå vad om att jag inte har den skivan :) Permalänk: https://www.webforum.nu/p/268586 ## #6 — erka, 2001-05-14T08:58Z ligger med på windows2000 skivan om du har det samt på win98 eller win Millenium skivan om du har den Permalänk: https://www.webforum.nu/p/268587 ## #7 — PatrikB, 2001-05-14T09:01Z .. jo, den har du på win2k skivan. enligt forumet så e det ju NT 5 (win2k) som du kör som operativ. gör så här: start - inställningar - kontrollpanelen - lägg till/ta bort program - lägg till/ta bort windows komponenter - bocka för Internet Information Services (IIS) och du har nästan allt du behöver. Det du mer kan behöva är att ladda hem senaste versionen av MDAC och VB Script Engine. Sök efter det här på forumet så hittar du länkar till dem. cya, PatrikB Permalänk: https://www.webforum.nu/p/268588 ## #8 — Sico, 2001-05-14T10:54Z eh... "VB script Engine" hittar jag inte... kan ni hjälpa mig att hitta det? Permalänk: https://www.webforum.nu/p/268589 ## #9 — Sico, 2001-05-14T10:55Z jag ljög.. jag hittade det.. :P Permalänk: https://www.webforum.nu/p/268590 ## #10 — @nders, 2001-05-14T10:56Z vill du inte ladda hem 5.6 betan så finns länk till 5.1 och 5.5 också. Permalänk: https://www.webforum.nu/p/268591 ## #11 — Sico, 2001-05-14T11:32Z OK, jag installerade de båda programmen men min simpla counter funkar fortfarande inte... Den funkar med PWS'en men inte på själva web-servern. WTF is wrong? Permalänk: https://www.webforum.nu/p/268592 ## #12 — @nders, 2001-05-14T11:35Z felmeddelande? Permalänk: https://www.webforum.nu/p/268593 ## #13 — eMan, 2001-05-14T11:37Z Hur ser din kod ut då? Permalänk: https://www.webforum.nu/p/268594 ## #14 — Sico, 2001-05-14T11:37Z GAH!!! Jag såg nu efter lite tisslande på sidan att det stog "blah blah blah.. fel på rad 47" Det e bara det att det står inget på den raden och den funkar ju på en annan dator med PWS'en men inte på web-servern... Vad kan man göra? Permalänk: https://www.webforum.nu/p/268595 ## #15 — Sico, 2001-05-14T11:41Z ok.. Detta käns löjligt... efter att jag fixade felet på den rad som va tom så klagar den på denna raden: \________\_ Set objCountFile = objFSO.CreateTextFile(strCountFileName, True) \_________\_ om ni nu kan hjälpa mig med det så är jag tacksam men jag e fortfarande arg på varför den funkar på PWS'en men inte på web-servern... Permalänk: https://www.webforum.nu/p/268596 ## #16 — @nders, 2001-05-14T11:45Z bla bla bla fel på rad x säger inte så väldans mycket. Permalänk: https://www.webforum.nu/p/268597 ## #17 — Sico, 2001-05-14T11:49Z behöver ni mer av koden? Permalänk: https://www.webforum.nu/p/268598 ## #18 — @nders, 2001-05-14T12:20Z lite mer kod + felmeddelande skulle väl inte skada.... Permalänk: https://www.webforum.nu/p/268599 ## #19 — Sico, 2001-05-14T12:39Z OK :) Felmedelandet är: \_____________\_ Microsoft VBScript runtime error '800a0046' Permission denied /sico/Counter/counter.asp, line 47 \_____________\_ Koden är: \<% ' Declare our vaiables Dim objFSO, objCountFile ' object vars for FSO and File Dim strCountFileName ' filename of count text file Dim iCount ' count variable Dim bUseImages ' boolean whether or not to use images Dim I ' standard looping var ' Determine whether we use images or plain text ' You could just set this to True or False instead bUseImages = CBool(Request.QueryString("images")) ' Compute our count file's filename ' This is based on the file from which you call count.asp ' It basically takes that name and appends a .cnt so I don't ' accidently overwrite any files. If for some reason you have ' a file named script_name.asp.cnt then change this or watch out! strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".cnt") ' Create FileSystemObject to deal with file access Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Open the file as a text stream (1 = ForReading, True = Create) Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True) ' Read the current count from the file If Not objCountFile.AtEndOfStream Then ' Set value to contents of the file iCount = CLng(objCountFile.ReadAll) Else ' If no file exists or it's empty start at 0 iCount = 0 End If ' Close the file and destroy the object objCountFile.Close Set objCountFile = Nothing ' Increment the count iCount = iCount + 1 ' Overwrite existing file and get a text stream to new one Set objCountFile = objFSO.CreateTextFile(strCountFileName, True) ' Write updated count objCountFile.Write iCount ' Close the file and destroy the object objCountFile.Close Set objCountFile = Nothing ' Destroy the FSO object Set objFSO = Nothing ' We're all done with the hard part ' All that's left is to display the results If bUseImages Then ' Loop through the count integer showing each digit ' You can grab the images one at a time or get the zip ' For I = 1 to Len(iCount) ' Output the IMG tag using the right digit Response.Write "\" Next 'I Else ' No image wanted just show the variable Response.Write iCount End If %\> Permalänk: https://www.webforum.nu/p/268600 ## #20 — @nders, 2001-05-14T12:48Z Permission denied jamen dåså! då försöker du skriva på ett ställe där kontot *IUSR\_\* inte har rätt att skriva. det är alltså en filsystemsrättighetsfråga. (puh, långt ord.) mvh, Permalänk: https://www.webforum.nu/p/268601 --- Tråden på webben: https://www.webforum.nu/amne/asp/9468-för-att-klara-alla-asp-script Nästa sida: https://www.webforum.nu/amne/asp/9468-för-att-klara-alla-asp-script/page2.md