| Author |
 Topic  |
|
ZeroAvengerX
Starting Member
USA
48 Posts |
 Posted - 10 December 2002 : 15:41:04
|
| james: why not just make a dropdown menu (like the Jump To Forum one) that lists all the users folders, and display this to the admin rather than all of the files, then when they use the menu they can navigate to the folders |
 |
|
|
James
Average Member
USA
539 Posts |
Posted - 12 December 2002 : 23:20:42
|
Updated original post with new url for download. Still on SnitzBitz, but it's now listed with Mike File Upload mod at
http://www.snitzbitz.com/mods/details.asp?Version=All&mid=67
Zero, I haven't had much time the last couple days to do anything with it. I'll try to get the delete files option added in this weekend (time permitting) and then look into adding other options. |
*Interested in Radio Control*
*The RC Web Board - http://www.rcwebboard.com/* |
|
|
|
leblanc9425
New Member
USA
92 Posts |
Posted - 16 December 2002 : 06:26:10
|
When I try to insert a previously uploaded file, I get the error: "A runtime error has occured. Line 29:FileToInsert is undefined"
When I looked at myfile.asp and I think it is referring to line 75. Here are lines 72-75:
<script>
if (opener.document.PostTopic.Message.createTextRange && opener.document.PostTopic.Message.caretPos) {
var caretPos = opener.document.PostTopic.Message.caretPos;
caretPos.text = FileToInsert;
If I choose not to debug after the error message, I get a successful insert, but the URL is not added to the message.
Any idea what's wrong? Everything else seems to work properly.
|
www.Slug-Lines.com
Snitz Version 3.4.07 |
|
|
|
leblanc9425
New Member
USA
92 Posts |
Posted - 18 December 2002 : 11:58:07
|
| Any idea why this is happening? |
www.Slug-Lines.com
Snitz Version 3.4.07 |
|
|
|
ZeroAvengerX
Starting Member
USA
48 Posts |
Posted - 20 December 2002 : 22:19:03
|
oh thats right, that scripting is gay, it is a monkey ***** to use, here use this scripting
select case FileName
case ".JPG", ".JPEG", ".GIF", ".PNG"
%>
<script>
opener.document.PostTopic.Message.value+="\n\nImage Insert:
<% =strFileSize %>";
</script>
<%
case else
%>
<script>
opener.document.PostTopic.Message.value+="\n\nDownload Attachment: [url=\"<% =FileNamePath %>\"] <% =Name %>[/url]
";
</script>
<%
end select
that is around line 70ish, it is the whole "case select" thing so be sure you replace the right things, but that scripting should work, i remember changing this but i didnt say anything to anyone about it cuz i forgot >;-D sorry guys |
|
|
|
MarcelG
Retired Support Moderator
Netherlands
2625 Posts |
Posted - 23 December 2002 : 06:02:15
|
I've implemented it too, and also get the "FileToInsert is undefined" error...
What should I change ?!
|
portfolio - linkshrinker - oxle - twitter |
|
|
|
homeacademy
Junior Member
USA
163 Posts |
Posted - 23 December 2002 : 08:16:47
|
marcelgoertz,
In ZeroAvengerX's posting above, choose the 'Reply with Quote' option (icon with paper and arrow to the far right of his name). That will get the spacing and all right. Then, copy the code between the [green] tags. Find code that looks similar in myfiles.asp (both the first and last lines of code are the same in the new copy and the old code) and replace it with the code you copied. That should solve the problem. |
|
|
|
MarcelG
Retired Support Moderator
Netherlands
2625 Posts |
|
|
leblanc9425
New Member
USA
92 Posts |
Posted - 26 December 2002 : 06:46:43
|
Thanks for the follow-up information. That fixed the problem. I did have one other minor problem. When the Administrator uploaded a previous file, an extra "/" was inserted between the upload folder and the username. This error did NOT occur with members - only the administrator's posts. To correct the problem I had to remove the "/" in line 66. This is what I did:
BEFORE CHANGES:
Lines 64 - 66:
FileName = UCase(Mid(Name,InStrRev(Name,".")))
if AdminAllowed then
FileNamePath = "http://" & MyDomainName & UploadFolder & "/" & Name
else
AFTER CHANGES:
Lines 64 - 66:
FileName = UCase(Mid(Name,InStrRev(Name,".")))
if AdminAllowed then
FileNamePath = "http://" & MyDomainName & UploadFolder & Name
else |
www.Slug-Lines.com
Snitz Version 3.4.07 |
|
|
|
antracit
Starting Member
Sweden
33 Posts |
Posted - 29 December 2002 : 11:46:47
|
I'm using 3.3 (Internationel) not the 3.4 version of snitz. What do I need to do to make this lister work with early
ier versions? |
johan |
|
|
|
jkmcgrath
Junior Member
USA
145 Posts |
Posted - 05 January 2003 : 20:52:17
|
When I veiw my profile either as admin or a user I do not see the files that I have uploaded.
I am using the active users mod and installed it as such per readme.txt. IS that why? |
Delta Force Seals |
|
|
|
jkmcgrath
Junior Member
USA
145 Posts |
Posted - 05 January 2003 : 21:14:09
|
Ok I found it. There is a error in the readme.txt
If using active users then you are instructed to place code after this code
response.write " <option value=""1"">" & fLang(strLangMOD_Ls3kAU_04020) & "</option>" & VBNewLine & _
" <option value=""0"" selected>" & fLang(strLangMOD_Ls3kAU_04030) & "</option>" & VBNewLine
end if
response.write " </select>" & VBNewLine & _
" </td>" & VBNewLine & _
" </tr>" & VBNewLine
end if
It is missing an end if so it would be after this
response.write " <option value=""1"">" & fLang(strLangMOD_Ls3kAU_04020) & "</option>" & VBNewLine & _
" <option value=""0"" selected>" & fLang(strLangMOD_Ls3kAU_04030) & "</option>" & VBNewLine
end if
response.write " </select>" & VBNewLine & _
" </td>" & VBNewLine & _
" </tr>" & VBNewLine
end if
end if
Thanks for a great mod! Now if we could just limit and delete  |
Delta Force Seals |
|
|
|
James
Average Member
USA
539 Posts |
Posted - 07 January 2003 : 22:36:12
|
Sorry I haven't been on in nearly a month because of family issues.
leblanc9425 caught a bug on line 65 where a "/" was causing a
wrong URL if you reused a file as an admin.
it read:
if AdminAllowed then
FileNamePath = "http://" & MyDomainName & UploadFolder & "/" & Name
and should be changed to read:
if AdminAllowed then
FileNamePath = "http://" & MyDomainName & UploadFolder & Name
Also, the "FileToInsert" error he was getting was caused by
wrong code on line #75 which read:
caretPos.text = FileToInsert;
and should be changed to read:
caretPos.text = "\n\nImage Insert:
<% =strFileSize %>"; (note: use reply w/quote to copy the code between the [code] tags above as the forum shows a broke image link instead of the actual code.)
Zero's fix works, but I think that some versions of netscape fail
with it and that's the reason the if/else was added to the script in
the first place. I'm going to update the zip and upload it to
SnitzBitz as version 2.02. I still don't have much time to code right
now but will get back to adding the delete and other features as soon
as I can. |
*Interested in Radio Control*
*The RC Web Board - http://www.rcwebboard.com/* |
Edited by - James on 08 January 2003 00:19:25 |
|
|
|
James
Average Member
USA
539 Posts |
Posted - 07 January 2003 : 22:49:53
|
quote:
Originally posted by jkmcgrath
Ok I found it. There is a error in the readme.txt
If using active users then you are instructed to place code after this code
response.write " <option value=""1"">" & fLang(strLangMOD_Ls3kAU_04020) & "</option>" & VBNewLine & _
" <option value=""0"" selected>" & fLang(strLangMOD_Ls3kAU_04030) & "</option>" & VBNewLine
end if
response.write " </select>" & VBNewLine & _
" </td>" & VBNewLine & _
" </tr>" & VBNewLine
end if
It is missing an end if so it would be after this
response.write " <option value=""1"">" & fLang(strLangMOD_Ls3kAU_04020) & "</option>" & VBNewLine & _
" <option value=""0"" selected>" & fLang(strLangMOD_Ls3kAU_04030) & "</option>" & VBNewLine
end if
response.write " </select>" & VBNewLine & _
" </td>" & VBNewLine & _
" </tr>" & VBNewLine
end if
end if
Thanks for a great mod! Now if we could just limit and delete
That block of code with AU installed should look like:
if strMode = "Register" then
Response.Write " <option value=""1"" selected>Yes</option>" & vbNewLine & _
" <option value=""0"">No</option>" & vbNewLine
else
Response.Write " <option value=""1""" & chkSelect(rs("M_SIG_DEFAULT"),1) & ">Yes</option>" & vbNewLine & _
" <option value=""0""" & chkSelect(rs("M_SIG_DEFAULT"),0) & ">No</option>" & vbNewLine
end if
Response.Write " </select></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
end if
if strAUAnon = "1" then
response.write " <tr>" & VBNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & fLang(strLangMOD_Ls3kAU_04000) & "<br />" & fLang(strLangMOD_Ls3kAU_04010) & ": </font></b></td>" & VBNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""middle"">" & VBNewLine & _
" <select name=""AUHide"">" & vbNewLine
if RS("M_AUHIDE") = "1" or trim(RS("M_AUHIDE")) = "" then
response.write " <option value=""1"" selected>" & fLang(strLangMOD_Ls3kAU_04020) & "</option>" & VBNewLine & _
" <option value=""0"">" & fLang(strLangMOD_Ls3kAU_04030) & "</option>" & VBNewLine
else
response.write " <option value=""1"">" & fLang(strLangMOD_Ls3kAU_04020) & "</option>" & VBNewLine & _
" <option value=""0"" selected>" & fLang(strLangMOD_Ls3kAU_04030) & "</option>" & VBNewLine
end if
response.write " </select>" & VBNewLine & _
" </td>" & VBNewLine & _
" </tr>" & VBNewLine
end if
response.write " <tr>" & VBNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>View your <br />Uploaded Files</font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""bottom""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""View"" type=""button"" value=""View"" onclick=""JavaScript:location.replace('myfiles.asp')""> </td>" & vbNewLine & _
" </td>" & VBNewLine & _
" </tr>" & VBNewLine
if Request.Form("Method_Type") = "Modify" then |
*Interested in Radio Control*
*The RC Web Board - http://www.rcwebboard.com/* |
|
|
|
James
Average Member
USA
539 Posts |
Posted - 07 January 2003 : 23:10:00
|
After looking at the above I noticed something else. A check should
be performed for that code to make sure it's a logged in member.
Otherwise, the view my files code will show when a new user is
registering too.
The code added to inc_profile.asp should look like:
if strMode <> "Register" then
response.write " <tr>" & VBNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>View your <br />Uploaded Files</font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""bottom""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""View"" type=""button"" value=""View"" onclick=""JavaScript:location.replace('myfiles.asp')""> </td>" & vbNewLine & _
" </td>" & VBNewLine & _
" </tr>" & VBNewLine
end if |
*Interested in Radio Control*
*The RC Web Board - http://www.rcwebboard.com/* |
Edited by - James on 07 January 2003 23:27:38 |
|
|
|
Topic |
|
Topic Locked
