Snitz Forums 2000 - File Sharing MOD (FINAL 2.51 updated 28-8-03 )

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Snitz Forums 2000 MOD-Group

MOD Add-On Forum (W/Code)

File Sharing MOD (FINAL 2.51 updated 28-8-03 )

New Topic

Reply to Topic

Printer Friendly

Previous Page | Next Page

Author

Topic

Page: of 14

Chuck McB
Junior Member

WooYay
196 Posts

Posted - 15 March 2005 : 13:01:07

wildfiction, got an example post with the broken image?<

wildfiction
Junior Member

167 Posts

Posted - 15 March 2005 : 16:49:14

quote:
Originally posted by Chuck McB

wildfiction, got an example post with the broken image?

If you try uploading an image in the forum in my signature that should demo the problem.<

Chuck McB
Junior Member

WooYay
196 Posts

Posted - 16 March 2005 : 03:24:18

got a guest log in I can use?<

wildfiction
Junior Member

167 Posts

Posted - 16 March 2005 : 14:35:27

Try this forum:
http://www.headvert.com/sample/default.asp
and use demo and demo as the u/n and p/w.<

Chuck McB
Junior Member

WooYay
196 Posts

Posted - 16 March 2005 : 19:03:56

If you right click on the broken image you see the path to the images on the sample site's membersFiles.asp is
http://www.headvert.com/forum/images/fileicons/zip.gif
not
http://www.headvert.com/sample/images/fileicons/zip.gif

but you have uploaded your images to:
http://www.headvert.com/images/zip.gif

Try using fileIconsPath="./images/")<

wildfiction
Junior Member

167 Posts

Posted - 17 March 2005 : 08:00:32

I don't actually have broken images when I use the forum. Instead the upload and attach icons show up as _Upload and _Attach text with hyperlinks.

I've tried your suggestions but they haven't seemed to have made a difference.<

Chuck McB
Junior Member

WooYay
196 Posts

Posted - 17 March 2005 : 09:50:26

ahh right, you do have some broken icons (but now I see that's not what you are asking about)

To get the paperclip icons in post.asp ensure that something like this is in the inc_iconfiles.asp:

strIconPaperClip = "icon_paperclip.gif|23|22"

wildfiction
Junior Member

167 Posts

Posted - 17 March 2005 : 16:56:16

Okay - I'll try that tomorrow (that computer is switched off now) - thanks.

Where are the broken icons?<

wildfiction
Junior Member

167 Posts

Posted - 17 March 2005 : 16:57:26

Also, if I don't want the text and details to appear at the top of the image is there a way to configure the [file] tag so that the text isn't shown? Thanks.<

Chuck McB
Junior Member

WooYay
196 Posts

Posted - 17 March 2005 : 18:22:11

> Where are the broken icons?
in the page that you attach files that you have uploaded before (membersFiles.asp)

>is there a way to configure the [file] tag so that the text isn't shown?
Yup, find the "Select Case fileNameExt" code towards the bottom of inc_fuct_common.asp

Replace:

						case ".JPG", ".JPEG", ".GIF", ".PNG"
							midPart=midPart&"<b>Image Attachment:</b> "
							midPart=midPart&fileName
							midPart=midPart&" ("&fileSize&")"
							midPart=midPart&"<BR>Uploaded on "& fileDate
							midPart=midPart&"<BR>Viewed "& downloadNo & " time(s)."
							if fileCatMode = true then
								midPart=midPart&"<BR><b>Category:</b>"& fileCatList(fileCat)
							end if
							midPart=midPart&"<BR><b>Description:</b><br>"& fileDesc & "<br>"
							midPart=midPart&"<BR><img src=""download.asp?forumID="&forumID&"&fileName="&fileName&"&memberFldrID="&memberFldrID&"&cSF="&cSF&""">"

with

						case ".JPG", ".JPEG", ".GIF", ".PNG"
							midPart=""
							midPart=midPart&"<img src=""aspThumb.asp?avatarMode=true&forumID="&forumID&"&fileName="&server.URLEncode(fileName)&"&memberFldrID="&memberFldrID&"&cSF="&cSF&""" border=""0"" title='" & fileDesc & "'>"
							midPart=midPart&"</acronym>"

wildfiction
Junior Member

167 Posts

Posted - 18 March 2005 : 07:35:12

many thanks for your help

kyot
Starting Member

1 Posts

Posted - 16 June 2005 : 00:54:20

I got the same problem as Amir on page 5 of this subject.
can upload .txt files.
but uploading non-text files (e.g. .jpg), the file goes to the temp folder with size 0.

this error comes up in the small upload window:
Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument
/forum/inc_UploadDefault.asp, line 142

thanks for any help.

quote:
Originally posted by amirx

Hello,

I have just installed this MOD and it is great. Thanks korayem.

I still have several problems:

[list][*]The most severe problem: I cannot upload non textual documents. When I upload textual docs (e.g., .txt, .bat, ...) everything is fine (regardless the size of the file), however, with any non text file (.gif, .exe, ...) the MOD fails to upload it.
After the error, I see the file that I tried to upload in the temp folder usually with size 0.
The error is:
Microsoft VBScript runtime (0x800A0005) Invalid procedure call or argument /forums/inc_UploadDefault.asp, line 142

Line 142 in inc_UploadDefault.asp is: MyFile.Write chr(AscB(MidB(value,i,1)))

jobryan26
Starting Member

10 Posts

Posted - 28 August 2005 : 08:39:47

quote:

Originally posted by StephenD

quote:
Originally posted by jeffery

Korayem,

The number of files dont show up anymore under member profile anymore. It shows the right number of folders but not files. Any ideas why?

I seem to have this same problem as jeffery. Has this code changed?

Here is my code from pop_profile.asp:

'#################################				 
				'files uploaded
				Response.Write	"                    <tr>" & vbNewLine & _
						"                      <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Personal File Folders</font></b></td>" & vbNewLine & _
						"                    </tr>" & vbNewLine
				memberFileNo=GetFileNo(CStr(rs("MEMBER_ID")),true,mlev)
				memberSubFolderNo = GetSubFolderNo(physicalUploadFolder & "\" & CStr(rs("MEMBER_ID")))
				memberFileSize = convertSize(GetFileSize(CStr(rs("MEMBER_ID")),true,mlev))
				if memberFileNo="" then memberFileNo=0
				if memberSubFolderNo="" then memberSubFolderNo=0
				Response.Write	"                    <tr>" & vbNewLine & _
					"                      <td bgColor=""" & strAltForumCellColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Files Uploaded:</font></b></td>" & vbNewLine & _
					"                      <td bgColor=""" & strAltForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine 
				if memberFileNo<>0 then
					Response.Write "						<a href=""membersFiles.asp?memberFldrID="&rs("MEMBER_ID")&""">Browse</a>" & vbNewLine 
				else
					response.write memberFileNo & "<BR>"
					Response.Write "						No Files uploaded" & vbNewLine
				end if
				Response.Write	"		</font></td>"& vbNewLine&_
					"                    </tr>" & vbNewLine
				Response.Write	"                    <tr>" & vbNewLine & _
					"                      <td bgColor=""" & strAltForumCellColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Total File(s): </font></b></td>" & vbNewLine & _
					"                      <td bgColor=""" & strAltForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"&memberFileNo&"</font></td>" & vbNewLine & _
					"                    </tr>" & vbNewLine
				Response.Write	"                    <tr>" & vbNewLine & _
					"                      <td bgColor=""" & strAltForumCellColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Subfolder(s): </font></b></td>" & vbNewLine & _
					"                      <td bgColor=""" & strAltForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"&memberSubFolderNo&"</font></td>" & vbNewLine & _
					"                    </tr>" & vbNewLine
				Response.Write	"                    <tr>" & vbNewLine & _
					"                      <td bgColor=""" & strAltForumCellColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Total Size: </font></b></td>" & vbNewLine & _
					"                      <td bgColor=""" & strAltForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"&memberFileSize&"</font></td>" & vbNewLine & _
					"                    </tr>" & vbNewLine
				Response.write "	<tr>" & vbNewLine & _
					"                      <td bgColor=""" & strAltForumCellColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> </font></b></td>" & vbNewLine & _
					"                      <td bgColor=""" & strAltForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><a href=""membersFiles.asp?memberFldrID="""&memberID&""">Find all shared files uploaded by " & chkString(rs("M_NAME"),"display") & "</a></font></td>" & vbNewLine
				'files uploaded
'####################################

I also put an extra link in here to go to the members shared files if anyone is interested. See above in red

Has this been answered yet? Same problem here<

tribaliztic
Senior Member

Sweden
1532 Posts

Posted - 01 September 2005 : 06:42:19

I get this error in the user profile:

Microsoft VBScript runtime fel '800a000d'
Type mismatch: 'GetFileNo'

/pop_profile.asp, line 454

Any hints? I'm using SHN code.

This was the code I pasted into pop_profile.asp:

'files uploaded
Response.Write " <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2"">Shared Files</td>" & vbNewLine & _
" </tr>" & vbNewLine
memberFileNo=GetFileNo(CStr(rs("MEMBER_ID")),true,mlev)
memberSubFolderNo = GetSubFolderNo(physicalUploadFolder & "\" & CStr(rs("MEMBER_ID")))
memberFileSize = convertSize(GetFileSize(CStr(rs("MEMBER_ID")),true,mlev))
if memberFileNo="" then memberFileNo=0
if memberSubFolderNo="" then memberSubFolderNo=0
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """ align=""right"" nowrap>Files Uploaded:</td>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """>" & vbNewLine
if memberFileNo<>0 then
Response.Write " <a href=""membersFiles.asp?memberFldrID="&rs("MEMBER_ID")&""">Browse</a>" & vbNewLine
else
response.write memberFileNo & " "
Response.Write " No Files uploaded" & vbNewLine
end if
Response.Write " </td>"& vbNewLine&_
" </tr>" & vbNewLine
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """ align=""right"" nowrap>Total File(s): </td>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """>"&memberFileNo&"</td>" & vbNewLine & _
" </tr>" & vbNewLine
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """ align=""right"" nowrap>Subfolder(s): </td>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """>"&memberSubFolderNo&"</td>" & vbNewLine & _
" </tr>" & vbNewLine
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """ align=""right"" nowrap>Total Size: </td>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """>"&memberFileSize&"</td>" & vbNewLine & _
" </tr>" & vbNewLine
'files uploaded
______________________________________________________________________<

/Tribaliztic
- www.gotlandrace.se -

Edited by - tribaliztic on 01 September 2005 07:11:13

tribaliztic
Senior Member

Sweden
1532 Posts

Posted - 01 September 2005 : 10:13:38

Problem solved... I hade to include inc_UploadFunc.asp in pop_profile.asp.. *doh*<

/Tribaliztic
- www.gotlandrace.se -

Page: of 14

Topic

Previous Page | Next Page

New Topic

Reply to Topic

Printer Friendly

Jump To:

Snitz Forums 2000

This page was generated in 0.14 seconds.