Microsoft VBScript runtime error '800a0046' nedir bu hata [çözüldü]

[pscpthdr]

Arkadaşlar kafayı yiyecem nedir bu hatanın çözümü

Microsoft VBScript runtime  error '800a0046'

Permission denied

/includes/classes/clsMenu.asp, line 1051

ayrıca ücretli hostumda db-www-log klasorleri var ben db klasörüne yazma izni veremiyorum

[sevgi]

if instr(afile,"\") = 0 then afile = server.mappath(afile)

satırını bul ve hemen altına şu satırı ekle düzelmesi lazım

  else
  if instr(afile,"/") = 0 then afile = server.mappath(afile)

tam olarak aşağıdaki gibi görünmesi lazım

if instr(afile,"\") = 0 then afile = server.mappath(afile)
  else
if instr(afile,"/") = 0 then afile = server.mappath(afile)

[pscpthdr]

allah razı olsun çok teşşekür ettim

[skyquakes]

kodlar yazılırken es geçilmiş bir slash farkı, anında çözüm. tebrikler 

[sevgi]

RC7 Sürümünde CLSmenu.asp dosyasındaki hatalar için SKYdogg aşağıdaki çözümü önermiştir.

ÇÖZÜM:

if instr(afile,":") = 0 then afile = server.mappath(afile)

veya yukarıdaki değişikliği yaptıysanız yukarıda çözümünü verdiğimiz

if instr(afile,"\") = 0 then afile = server.mappath(afile)
  else
if instr(afile,"/") = 0 then afile = server.mappath(afile)

aşağıdaki kod ile değiştirin

if instr(afile,":") = 0 and left(afile,2) <> "\\" then
  afile = server.mappath(afile)
end if


Geniş bilgi için BURAYABURAYA  tıklayın

[menderes]

beyler nasıl yapılıyo biri bana tam detay anlatırsa sevinirim

[burajan]

Yapımcının sitesinde biraz araştırma yaptım. İngilizcem pek yetereli gelmediği için tam olarak anlayamadım. Ancak anladığım kadarıyla bu yukarıdaki hatayı alanların, files klasörüne yazma izni vermeleri gerekiyormuş.

İngilizcesi olanlar buraya bakabilirler:
http://www.skyportal.net/forum_topic.asp?TOPIC_ID=5699&FORUM_ID=114&CAT_ID=4&Topic_Title=permission+denied+%2D+%2FclsMenu%2Easp&Forum_Title=SkyPortal+v1+%2D+Common+Errors
http://www.skyportal.net/forum_topic.asp?TOPIC_ID=3823&FORUM_ID=94&CAT_ID=4&Topic_Title=Premission+Denied&Forum_Title=SkyPortal+RC5+%2D+SUPPORT

[Rain_Man]

Yeni Anket Yarat
Microsoft VBScript runtime error '800a0046'

Permission denied

/poll/newpoll.asp, line 66


hata veren satıra


 Set FS=Server.CreateObject("Scripting.FileSystemObject")
      Set RS=FS.OpenTextFile(Server.MapPath("variables.asp"), 2, False)

      
      RS.WriteLine("<" & "%")
      RS.WriteLine("Dim question, responses(, votes(")
      RS.WriteLine("question = """ & question & """")
      For i = 1 to 8
      RS.WriteLine("responses(" & i & ") = """ & responses(i) & """")
      RS.WriteLine("votes(" & i & ") = " & votes(i))
      Next
      RS.WriteLine("%" & ">")

      RS.Close
      Set RS=Nothing
      Set FS=Nothing

      %>

      <div class="normal">Yeni Anket Yaratildi! Girdiginiz degerler asagidadir;</div>

      <div class="normal"><% Response.Write(question) %></div>
      <%
      For i = 1 to 8
      If responses(i) <> "" Then
      %>
      <div class="normal"><% Response.Write(responses(i)) %></div>


gittim ama yukardaki çözümleri kendim uygulamaya çalıştım ama pek bilmediğimden yapamadım bu kondua yardımcı olursanız çok teşekkür ederim şimdiden...