Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Upload will no longer work		  New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

leatherlips
Senior Member

USA
1838 Posts
Posted - 27 November 2009 :  08:05:42  Show Profile  Visit leatherlips's Homepage
I have the proeder's file attachment mod installed and it will suddenly no longer work. I made no changes to it recently.

When uploading I get this error:

Microsoft VBScript runtime error '800a0046' 

Permission denied 

/forum/outputFile.asp, line 201


The line this refers to is:

Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd) & strUploadUrl & "\" & membername & "\" & filename)

My host recently migrated my site to a new server. This may have caused the problem but I do not know how to fix it.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Edited by - AnonJr on 27 November 2009 08:39:42

AnonJr
Moderator

United States
5768 Posts
Posted - 27 November 2009 :  08:39:18  Show Profile  Visit AnonJr's Homepage
Off the cuff it looks like a permissions issue. Double-check.
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 27 November 2009 :  10:03:24  Show Profile  Visit leatherlips's Homepage
I did have to reset the permissions for the folder to allow upload to the folder but it still gives the same error. Any other ideas?
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Giumer
Junior Member

Italy
163 Posts
Posted - 27 November 2009 :  10:40:17  Show Profile  Send Giumer an ICQ Message
and me file i have this

'Create and Write to a File
Set MyFile = ScriptObject.CreateTextFile(memberPath & "\" & filename)
=======================
http://www.Giumer.it/forum

=======================
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts
Posted - 27 November 2009 :  14:16:22  Show Profile
You sure the folder in the admin options is set right for the mod. To me the line is trying to grab the location listed in the admin options with strUploadUrl and it is not going to the correct location and in turn it gives the permissions error.
Cheers,

David Greening
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 27 November 2009 :  21:03:56  Show Profile  Visit leatherlips's Homepage
I tried Giumer's line but it gives the same error.

Classicmotorcycling, I looked and the folder name is correct.

I also am noticing that forum emails are not going out. Instead they are sent back to me with an error like below:

Reporting-MTA: dns;WH182.hosting.corp.gd
Received-From-MTA: dns;WH182.hosting.corp.gd
Arrival-Date: Wed, 25 Nov 2009 14:31:44 -0700

Final-Recipient: rfc822;Email Address Here
Action: failed
Status: 4.4.7

Perhaps these two issues are related as they began at the same time. This is also the same time my host made some changes. I may have to contact them but I don't know if they know anything about Snitz.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Giumer
Junior Member

Italy
163 Posts
Posted - 27 November 2009 :  23:23:14  Show Profile  Send Giumer an ICQ Message
gives you that 'error because he can not create the folder you send the complete file in my forum so the sample and look how it's done! so as you know English well then if you find the places you fix it!
=======================
http://www.Giumer.it/forum

=======================
Go to Top of Page

ruirib
Snitz Forums Admin

Portugal
26364 Posts
Posted - 28 November 2009 :  09:35:08  Show Profile  Send ruirib a Yahoo! Message
Leatherlips,

Your host should provide support, as they caused this issue. Seems clear that you have a permissions issue, regarding the upload. Probably a write permission is needed there.

About the email server, they should know the requirements to send mail through.
These are not Snitz issues, but web server and mail server issues.

Snitz 3.4 Readme | Like the support? Support Snitz too
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 28 November 2009 :  09:37:47  Show Profile  Visit leatherlips's Homepage
Thanks. I've contaced their support. I'll let you know if it gets fixed.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 28 November 2009 :  19:14:08  Show Profile  Visit leatherlips's Homepage
I have the email issue fixed. I had to change from CDONTS to CDOSYS and also change the email server address in the email server configuration.

I almost have the upload fixed but still have a problem.

The way the upload mod works is I define a folder where the uploads go. This folder has write privileges to it. Once a member uploads a file it creates a subfolder named with their username and then places the upload in that folder.

I had to change each of the existing member folders to have write permissions.

Now the problem is no new member can upload a file because it will not create the subfolder for them. I'm confused as to why it won't since the main upload folder has write permissions. Any ideas?
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 28 November 2009 :  19:29:37  Show Profile  Visit leatherlips's Homepage
OK, now I think I have the upload fixed. I made the folder not have write permissions, then I changed it back to having write permissions and now it is working. I guess it needed to be reset.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

ruirib
Snitz Forums Admin

Portugal
26364 Posts
Posted - 28 November 2009 :  19:35:43  Show Profile  Send ruirib a Yahoo! Message
That is usually enough, from your point of view, but as it isn't, they should fix it for you. NTFS includes special permissions to create folders and such, so you may indeed have to get the host to check it.

Snitz 3.4 Readme | Like the support? Support Snitz too
Go to Top of Page

Giumer
Junior Member

Italy
163 Posts
Posted - 28 November 2009 :  22:55:36  Show Profile  Send Giumer an ICQ Message
hello then I'm on a server leatherlips Italian called Aruba ok they offer a Public folder named with its write permission to this folder and letur need to create a sub folder named Data. now I adnin file admin_attach.asp sets the path where the files should be loaded in my case is like this: www.MYSITE.it/public/Data/
and so with the file that we use here in Italy and been modified to send attachments and create sub folders of users will attach the file:
<!--#include file="upload.asp"-->
<!--#INCLUDE FILE="config.asp" -->
<%

subfolder = "/Public/data"
iconimage = "immagini/icon_paperclip.gif"

  Response.Expires=0
  Response.Buffer = TRUE
  Response.Clear

  byteCount = Request.TotalBytes
  RequestBin = Request.BinaryRead(byteCount)
  Dim UploadRequest
  Set UploadRequest = CreateObject("Scripting.Dictionary")
  BuildUploadRequest  RequestBin
  membername = UploadRequest.Item("memberName").Item("Value")
  subfolder = subfolder & "/" & membername
  contentType = UploadRequest.Item("blob").Item("ContentType")
  filepathname = replace(UploadRequest.Item("blob").Item("FileName"),vbNullChar,"")
  filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
  oldfilename = filename
  filename = Year(Now) & Month(Now) & Day(Now) &  Hour(Now) & Minute(Now) & Second(Now) & "_" & filename


  ' --- CHECK FILE FOR ACCEPTABILITY ---
if oldfilename = "" then
	response.redirect "pop_upload_new.asp"
else
  	extension = LCase(Mid(filename,InStrRev(filename,".")))
end if

ImageFileType=false
select case extension
	case ".jpg", ".jpeg", ".gif", ".png" '##Image File extensions
	allowFile=true
	ImageFileType=true
	case ".rar", ".zip", ".txt", ".pdf" '##Downloadable file extensions
	allowFile=true
	case else
	allowFile=false
end select

  If allowFile and byteCount <= 500000 Then '##Maximum File size

  value = UploadRequest.Item("blob").Item("Value")

  'Create FileSytemObject Component
  Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
  memberPath = Server.MapPath(subfolder)
    If not ScriptObject.FolderExists(memberPath) then
	 	ScriptObject.createFolder(memberPath)
  	end if

  'Create and Write to a File
  Set MyFile = ScriptObject.CreateTextFile(memberPath & "\" & filename)

  For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
  Next
  MyFile.Close

  If byteCount < 1000 Then
    strFileSize = Round(byteCount,2) & " Bytes"
  ElseIf strFileSize < 1000000 Then
    strFileSize = Round(byteCount/1000,2) & " KB"
  Else
    strFileSize = Round(byteCount/1000000,2) & " MB"
  End If

Response.Write	"<html>" & vbNewline
Response.Write	"<head>" & vbNewline
Response.Write	"<title>L'Upload del File č stato Completato!</title>" & vbNewline
  If ImageFileType=true then
    %>
    <script>
    if (opener.document.PostTopic.Message.createTextRange && opener.document.PostTopic.Message.caretPos) {
      var caretPos = opener.document.PostTopic.Message.caretPos;
      caretPos.text = "\n\nImmagine:

 <% =strFileSize %>";
    } else {
    opener.document.PostTopic.Message.value+="\n\nImmagine:

 <% =strFileSize %>";
    }
    </script>
    <%
  Else
    %>
    <script>
    if (opener.document.PostTopic.Message.createTextRange && opener.document.PostTopic.Message.caretPos) {
      var caretPos = opener.document.PostTopic.Message.caretPos;
      caretPos.text = "\n\nAllegato: [url=\"<% =SUBFOLDER %>/<% =filename %>\"] <% =oldfilename %>[/url]
<% =strFileSize %>";
    } else {
    opener.document.PostTopic.Message.value+="\n\nAllegato: [url=\"<% =SUBFOLDER %>/<% =filename %>\"] <% =oldfilename %>[/url]
<% =strFileSize %>";
    }
    </script>
    <%
  End If
Response.Write	"</head>" & vbNewline
Response.Write	"<body bgColor=""" & strForumCellColor & """ text=""" & strDefaultFontColor & """ link=""" & strLinkColor & """ aLink=""" & strActiveLinkColor & """ vLink=""" & strActiveLinkColor & """ onUnLoad=""window.opener.focus();"">" & vbNewline
Response.Write	"<p align=""center"">" & vbNewline
Response.Write	"	<font face=""" & strDefaultFontFace & """ size=""" & strHeadFontSize & """ color=""" & strDefaultFontColor & """>Il seguente File č stato Inviato Correttamente</font></ br><hr size=""1"" color=""" & strHiLiteFontColor & """>" & vbNewline
Response.Write	"	<table>" & vbNewline
Response.Write	"		<tr><td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b> Nome </b></font></td><td> <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>" & oldfilename & "</font> </td></tr>" & vbNewline
Response.Write	"		<tr><td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b> Estensione </b></font></td><td> <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>" & extension & "</font> </td></tr>" & vbNewline
Response.Write	"		<tr><td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b> Grandezza </b></font></td><td> <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>" & strFileSize & "</font> </td></tr>" & vbNewline
Response.Write	"		<tr><td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b> Link </b></font></td><td> <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>" & subfolder & "/" & filename & "</font> </td></tr>" & vbNewline
Response.Write	"	</table><hr size=""1"" color=""" & strHiLiteFontColor & """>" & vbNewline
Response.Write	"<a href=""#"" onClick=""window.close();"">Clicca qui per chiudere questa Finestra.</a>" & vbNewline
Response.Write	"</p>" & vbNewline
Response.Write	"</body>" & vbNewline
Response.Write	"</html>" & vbNewline
Else

Response.Write	"<html>" & vbNewline
Response.Write	"<head>" & vbNewline
Response.Write	"<title>File Non Inviato</title>" & vbNewline
Response.Write	"</head>" & vbNewline
Response.Write	"<body bgColor=""" & strForumCellColor & """ text=""" & strDefaultFontColor & """ link=""" & strLinkColor & """ aLink=""" & strActiveLinkColor & """ vLink=""" & strActiveLinkColor & """>" & vbNewline
Response.Write	"<p align=""center"">" & vbNewline
Response.Write	"	<font face=""" & strDefaultFontFace & """ size=""" & strHeadFontSize & """ color=""" & strDefaultFontColor & """>C'č stato un Problema durante l'operazione di upload.</font></ br><hr size=""1"" color=""" & strHiLiteFontColor & """>" & vbNewline
Response.Write	"	<table>" & vbNewline
Response.Write	"		<tr><td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b> Nome </b></font></td><td> <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>" & oldfilename & "</font> </td><td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>Il Nome del File deve contenere SOLO caratteri validi</font></td></tr>" & vbNewline
Response.Write	"		<tr><td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b> Estensione </b></font></td><td> <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>" & extension & "</font> </td><td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>Alcune Estensioni non sono accettate</font></td></tr>" & vbNewline
Response.Write	"		<tr><td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b> Grandezza </b></font></td><td> <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>" & Round(byteCount/1000,2) & " KB</font> </td><td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>La Grandezza del file non deve superare i 90kb</font></td></tr>" & vbNewline
Response.Write	"	</table><hr size=""1"" color=""" & strHiLiteFontColor & """>" & vbNewline
Response.Write	"	<a href=""#"" onClick=""history.go(-1);"">Clicca qui per chiudere questa finestra e riprovare.</a>" & vbNewline
Response.Write	"</p>" & vbNewline
Response.Write	"</body>" & vbNewline
Response.Write	"</html>" & vbNewline

End If %>
=======================
http://www.Giumer.it/forum

=======================
Edited by - AnonJr on 29 November 2009 01:45:28
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.34 seconds. Powered By: Snitz Forums 2000 Version 3.4.07