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
 Looking good for mod avatar forum 3.407		  New Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

Maxime
Average Member

France
521 Posts
Posted - 07 October 2012 :  04:37:27  Show Profile  Visit Maxime's Homepage  Reply with Quote
Looking for a good mod for the forum avatar 3.407 version of the ones I tried on one snitzbitz errors or does perhaps not on my server. I'd found one that works on all servers ..
It also can be my bad code that implements lol! But I did not succeed.

Thank you very much if you find me a good mod or mods can review it to work well with the 3.407 forum.
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
Edited by - Maxime on 07 October 2012 04:55:32

Maxime
Average Member

France
521 Posts
Posted - 07 October 2012 :  07:12:07  Show Profile  Visit Maxime's Homepage
Here is the html page readme txt version of the mod avatar Hamelin. Could you rewrite the 3407 version of forum.
Some code no longer exists or is changed on version 3407 and I'm not coder.

http://www.chatquiz.org/forum/readme.txt
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
Edited by - Maxime on 07 October 2012 07:14:57
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 07 October 2012 :  13:40:30  Show Profile
Here, I redid the ReadMe for 3.4.07:


<html>

<head>
<meta http-equiv="Content-Language" content="en-gb">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Avatar Mod for 3.4.07</title>
</head>

<body>
<a name="top"></a>
<p><b><font face="Verdana" size="3">Avatar Mod for 3.4.07</font></b></p>
<p><font face="Verdana" size="2"><b>Original Author:</b> Richard Kinser, adapted by Hamlin.</font></p>
<p><font size="2" face="Verdana"><b>Download:</b>  <a href="http://www.ian-hamlin.co.uk/downloads/avatar34.zip">www.ian-hamlin.co.uk/downloads.asp</a>
or <a href="http://www.snitzbitz.com/mods/details.asp?Version=All&mid=52">http://www.snitzbitz.com/mods/details.asp?Version=All&mid=52</a></font></p>
<p><font face="Verdana" size="2"><b>Support:</b> </font><a href="http://forum.snitz.com/forum"><font face="Verdana" size="2">http://forum.snitz.com/forum</font></a></p>
<p><font face="Verdana" size="2"><b>Background:</b> <span style="mso-fareast-font-family: Times New Roman; mso-ansi-language: EN-GB; mso-fareast-language: EN-US; mso-bidi-language: AR-SA">It’s
basically a complete rip off of the avatar mod 2 made by Richard Kinser.<span style="mso-spacerun: yes"> 
</span>I did not add really add anything new, just fiddled with the old mod so it worked for 3.4.</span></font></p>
<p><font face="Verdana" size="2"><span style="mso-fareast-font-family: Times New Roman; mso-ansi-language: EN-GB; mso-fareast-language: EN-US; mso-bidi-language: AR-SA"><b>Tested
On:</b> 3.4.0.1, 3.4.0.3</span></font></p>
<p><font face="Verdana" size="2"><span style="mso-fareast-font-family: Times New Roman; mso-ansi-language: EN-GB; mso-fareast-language: EN-US; mso-bidi-language: AR-SA">UPDATE
- 15/10/2002 - Added new files and updated the topic.asp section of the readme.</span></font></p>
<p><font face="Verdana" size="2"><span style="mso-fareast-font-family: Times New Roman; mso-ansi-language: EN-GB; mso-fareast-language: EN-US; mso-bidi-language: AR-SA">UPDATE
- ??/??/???? - Added the mass add feature.</span></font></p>
<p><font face="Verdana" size="2"><span style="mso-fareast-font-family: Times New Roman; mso-ansi-language: EN-GB; mso-fareast-language: EN-US; mso-bidi-language: AR-SA">UPDATE
- 10/01/2003 - Added upload support for admins.  You can now upload avatars
via the admin options.</span></font></p>
<p><b><font face="Verdana" size="2"><span style="mso-fareast-font-family: Times New Roman; mso-ansi-language: EN-GB; mso-fareast-language: EN-US; mso-bidi-language: AR-SA">New
Files:</span></font></b></p>
<ul>
  <li><font color="#FF0000" face="Verdana" size="2">dbs_avatar.asp</font></li>
  <li><font face="Verdana" size="2">admin_avatar_home.asp</font></li>
  <li><font face="Verdana" size="2">admin_add_avatar.asp</font></li>
  <li><font face="Verdana" size="2">admin_review_avatar.asp</font></li>
  <li><font face="Verdana" size="2">admin_delete_avatar.asp</font></li>
  <li><font face="Verdana" size="2">admin_edit_avatar.asp</font></li>
  <li><font face="Verdana" size="2">admin_avatar_settings.asp</font></li>
  <li><font face="Verdana" size="2">inc_avatar.asp</font></li>
  <li><font face="Verdana" size="2">avatar_mass_add.asp</font></li>
  <li><font face="Verdana" size="2">adamin_avatar_upload.asp</font></li>
  <li><font face="Verdana" size="2">avatar_upload.asp</font></li>
</ul>
<p><b><font face="Verdana" size="2">Changed Files:</font></b></p>
<ul>
  <li><font face="Verdana" size="2"><a href="#config">config.asp</a></font></li>
  <li><font face="Verdana" size="2"><a href="#topic">topic.asp</a></font></li>
  <li><font face="Verdana" size="2"><a href="#pop_profile">pop_profile.asp</a></font></li>
  <li><font face="Verdana" size="2"><a href="#inc_profile">inc_profile.asp</a></font></li>
  <li><font face="Verdana" size="2"><a href="#register">register.asp</a></font></li>
  <li><font face="Verdana" size="2"><a href="#admin_home">admin_home.asp</a></font></li>
</ul>
<p><font face="Verdana" size="2"><b>Installation</b></font></p>
<p><font face="Verdana" size="2">Upload all the files to your forum directory.</font></p>
<p><font face="Verdana" size="2" color="#FF0000">Update the database</font></p>
<ol>
  <li><font face="Verdana" size="2">Go to Admin Options > Mod Setup</font></li>
  <li><font face="Verdana" size="2">Select Avatar Mod for 3.4 from the dropdown
    list</font></li>
  <li><font face="Verdana" size="2">Click "Update"</font></li>
</ol>
<p><font face="Verdana" size="2">After the database has been updated you can
delete the dbs_avatar.asp file.</font></p>
<p><font face="Verdana" size="2" color="#FF0000">Modify Existing Files</font></p>
<p><font face="Verdana" size="2"><b>CONFIG.ASP</b></font><a name="config"></a></p>
<p><font size="2" face="Verdana"><b>Look for this line (appx 474):</b></font></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">strShowQuickReply = Application(strCookieURL & "STRSHOWQUICKREPLY")</textarea></p>
</form>
<p><b><font size="2" face="Verdana">Directly after that code add the following</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="6" name="S1" cols="120">intAvatarWidth = cint(Application(strCookieURL & "INTAVATARWIDTH"))
intAvatarHeight = cint(Application(strCookieURL & "INTAVATARHEIGHT"))
intAvatarBorder = cint(Application(strCookieURL & "INTAVATARBORDER"))
strShowAvatar = Application(strCookieURL & "STRSHOWAVATAR")</textarea></p>
</form>
<p><font face="Verdana" size="2"><b>Look for these lines (appx 161-163):</b></font></p>
<form method="POST" action="--WEBBOT-SELF--">
  <p><textarea rows="5" name="S1" cols="120">Dim strGroupCategories, strPageBGImageUrl, strImageUrl, strJumpLastPost, strStickyTopic, strShowSendToFriend
Dim strShowPrinterFriendly, strShowTimer, strTimerPhrase, strShowFormatButtons, strShowSmiliesTable, strShowQuickReply
Dim SubCount, MySubCount
  </textarea></p>
</form>
<p><b><font face="Verdana" size="2">Directly after that code add the following</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">Dim intAvatarWidth, intAvatarHeight, intAvatarBorder, strShowAvatar</textarea></p>
</form>
<p><font size="2" face="Verdana">That's all for config.asp</font></p>
<hr>
<p><font size="2" face="Verdana"><b>ADMIN_HOME.ASP</b></font><a name="admin_home"></a></p>
<p><font size="2" face="Verdana"><b>Look for this line (appx 154):</b></font></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
	<p><textarea rows="2" name="S1" cols="120">
  		"                <LI><span class=""spnMessageText""><a href=""setup.asp"">Check Installation</a></span><font size=""" & strFooterFontSize & """><b> (Run after each upgrade !)</b></font></LI>" & vbNewLine & _
  </textarea></p>
</form>
<p><b><font size="2" face="Verdana">Directly after that code add the following</font></b></p>
<p><textarea rows="4" name="S1" cols="120">"                <LI><span class=""spnMessageText""><a href=""admin_avatar_home.asp"">Avatar Setup</a></span></LI>" & vbNewLine & _</textarea></p>
<p><font size="2" face="Verdana">That's all for admin_home.asp</font></p>
<hr>
<p><b><font size="2" face="Verdana">INC_PROFILE.ASP</font></b><a name="inc_profile"></a></p>
<p><font size="2" face="Verdana">Look for this line (appx 231):</font></p>
<p><textarea rows="3" name="S1" cols="120">
		if (strBio + strHobbies + strLNews + strQuote)	> 0 then 
</textarea></p>
<p><font size="2" face="Verdana"><b>After that, add the following</b></font></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">
		%>
		<!--#INCLUDE FILE="inc_avatar.asp" -->
		<%
  </textarea></p>
</form>
<p><font size="2" face="Verdana"><b>It should now look like the following</b></font></p><textarea rows="5" name="S1" cols="120">
		if (strBio + strHobbies + strLNews + strQuote)	> 0 then 
  		%>
  		<!--#INCLUDE FILE="inc_avatar.asp" -->
  		<%
 </textarea>
<p><font size="2" face="Verdana">That's all for inc_profile.asp</font></p>
<hr>
<p><b><font size="2" face="Verdana">REGISTER.ASP</font></b><a name="register"></a></p>
<p><b><font size="2" face="Verdana">Find the following lines (appx 732-736):</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="7" name="S1" cols="120">
			end if
			strSql = strSql & ", 1"
			strSql = strSql & ")"

			my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
	</textarea></p>
</form>
<font size="2" face="Verdana"><b>Between these lines:</b><font color="#FF0000">
	<p><textarea rows="3" name="S1" cols="120">
			strSql = strSql & ", 1"
			strSql = strSql & ")"
	</textarea></p>
	</font>
<p><b>Add the following code:</b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p>
	<textarea rows="4" name="S1" cols="120">
			strSql = strSql & ", '" & ChkString(Request.Form("Avatar_URL"),"SqlString") & "'"
	</textarea></p>
</form>
<p><b><font size="2" face="Verdana">So it will now look like this:</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="8" name="S1" cols="120">
			end if
			strSql = strSql & ", 1"
			strSql = strSql & ", '" & ChkString(Request.Form("Avatar_URL"),"SqlString") & "'"
			strSql = strSql & ")"

			my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
	</textarea></p>
</form>
<p><b><font size="2" face="Verdana">Find the following lines (appx 599-601):</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">
			strSql = strSql & ", M_QUOTE"
			strSql = strSql & ", M_SHA256"
			strSql = strSql & ") "
	</textarea></p>
</form>
<p><font size="2" face="Verdana"><b>After this line:</b></font></p>
  <p><textarea rows="2" name="S1" cols="120">
			strSql = strSql & ", M_SHA256"
	</textarea></p>
<p><b>Add the following code:</b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="2" name="S1" cols="120">
			strSql = strSql & ", M_AVATAR_URL"
  </textarea></p>
</form>
<p><font size="2" face="Verdana"><b>So it will now look like this:</b></font></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="5" name="S1" cols="120">
			strSql = strSql & ", M_QUOTE"
			strSql = strSql & ", M_SHA256"
			strSql = strSql & ", M_AVATAR_URL" 
			strSql = strSql & ") "</textarea></p>
</form>
<p><font size="2" face="Verdana"><b>Now look for these lines (appx 182-184):</b></font></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">
			strSql = strSql & ", '" & chkString(rsKey("M_QUOTE"),"message") & "'"
			strSql = strSql & ", 1"
			strSql = strSql & ")"
	</textarea></p>
</form>
<p><font size="2" face="Verdana"><b>After this line:</b></font></p>
	<p><textarea rows="2" name="S1" cols="120">
			strSql = strSql & ", 1"
	</textarea></p>
<p><b>Add the following code:</b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="2" name="S1" cols="120">
			strSql = strSql & ", '" & chkString(rsKey("M_AVATAR_URL"),"SqlString") & "'"
	</textarea></p>
</form>
<p><b><font size="2" face="Verdana">So it will now look like this:</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="7" name="S1" cols="120">
			strSql = strSql & ", '" & chkString(rsKey("M_QUOTE"),"message") & "'"
			strSql = strSql & ", 1"
			strSql = strSql & ", '" & chkString(rsKey("M_AVATAR_URL"),"SqlString") & "'"
			strSql = strSql & ")"
	</textarea></p>
</form>
<p><b><font size="2" face="Verdana">Look for these lines (appx 142-144):</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">
			strSql = strSql & ", M_QUOTE"
			strSql = strSql & ", M_SHA256"
			strSql = strSql & ") "
	</textarea></p>
</form>
<p><font size="2" face="Verdana"><b>After this line:</b></font></p>
	<p><textarea rows="2" name="S1" cols="120">
			strSql = strSql & ", M_SHA256"
	</textarea></p>
<p><b>Add the following code:</b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">
			strsql = strsql & ", M_AVATAR_URL"
	</textarea></p>
</form>
<p><font size="2" face="Verdana"><b>So it will now look like this:</b></font></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="5" name="S1" cols="120">
			strSql = strSql & ", M_QUOTE"
			strSql = strSql & ", M_SHA256"
			strsql = strsql & ", M_AVATAR_URL"
			strSql = strSql & ") "
	</textarea></p>
</form>
<p><b><font size="2" face="Verdana">Look for these lines (appx 87-89):</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">
			 ", M_BIO, M_HOBBIES, M_LNEWS, M_QUOTE, M_SHA256" & _
			 " FROM " & strMemberTablePrefix & "MEMBERS_PENDING" & _
			 " WHERE M_KEY = '" & key & "'"
	</textarea></p>
</form>
<p><b><font size="2" face="Verdana">Change the first line in that block so it looks like this:</font></b></p>
  <p><textarea rows="2" name="S1" cols="120">
			 ", M_BIO, M_HOBBIES, M_LNEWS, M_QUOTE, M_SHA256, M_AVATAR_URL" & _
	</textarea></p>
<p><font size="2" face="Verdana">That's all for register.asp</font></p>
<hr>
<p><font size="2" face="Verdana"><b>POP_PROFILE.ASP </b></font><a name="pop_profile"></a></p>
<p><b><font size="2" face="Verdana">Look for these lines (appx 1704-1706):</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">
					if strPicture = "1" then
						strsql = strsql & ", M_PHOTO_URL = '" & chkString(Trim(regPhoto_URL),"SQLString") & "'"  
					end if
	</textarea></p>
</form>
<p><b><font size="2" face="Verdana">Directly after those, add the following:</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">
					strsql = strsql & ",	M_AVATAR_URL = '" & ChkString(Trim(regAvatar_Image),"SQLString") & "'"
	</textarea></p>
</form>
<p><font size="2" face="Verdana"><b>Look for these lines (appx 1639-1643):</b></font></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="6" name="S1" cols="120">
					if Trim(Request.Form("PHOTO_URL")) <> "" and lcase(trim(Request.Form("PHOTO_URL"))) <> "http://" and Trim(lcase(Request.Form("PHOTO_URL"))) <> "https://" then
						regPhoto_URL = chkString(Request.Form("Photo_URL"),"SQLString")
					else
						regPhoto_URL = " "
					end if
	</textarea></p>
</form>
<p><b><font size="2" face="Verdana">Directly after that, add this</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="2" name="S1" cols="120">
					regAvatar_Image = Request.Form("AVATAR_URL")
</textarea></p>
</form>
<p><b><font size="2" face="Verdana">Look for these lines (appx 1351-1353):</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">
			if strPicture = "1" then
				strsql = strsql & ",	M_PHOTO_URL = '" & ChkString(Trim(regPhoto_URL),"SQLString") & "'"
			end if
	</textarea></p>
</form>
<p><b><font size="2" face="Verdana">Directly after that, add the following:</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="2" name="S1" cols="120">
  	strsql = strsql & ",	M_AVATAR_URL = '" & ChkString(regAvatar_Image,"SQLString") & "'"
  </textarea></p>
</form>
<p><font size="2" face="Verdana"><b>Look for these lines (appx 1294-1298):</b></font></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="6" name="S1" cols="120">
			if Trim(Request.Form("Photo_URL")) <> "" and lcase(trim(Request.Form("Photo_URL"))) <> "http://" and Trim(lcase(Request.Form("Photo_URL"))) <> "https://" then
				regPhoto_URL = ChkString(Request.Form("Photo_URL"),"SQLString")
			else
				regPhoto_URL = " "
			end if
	</textarea></p>
</form>
<p><font size="2" face="Verdana"><b>Directly under that, add the following</b></font></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="2" name="S1" cols="120">
			regAvatar_Image = Request.Form("AVATAR_URL")
	</textarea></p>
</form>
<p><b><font size="2" face="Verdana">Look for these lines (appx 956-957):</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="3" name="S1" cols="120">
				strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTO_URL"
				strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE"
	</textarea></p>
</form>
<p><b><font size="2" face="Verdana">After this line:</font></b></p>
  <p><textarea rows="2" name="S1" cols="120">
				strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTO_URL"
	</textarea></p>
<p><b><font size="2" face="Verdana">Insert this code:</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="2" name="S1" cols="120">
				strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL"
  </textarea></p>
</form>
<p><b><font size="2" face="Verdana">So it will now look like this:</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">
				strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTO_URL"
				strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL"
				strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE"
	</textarea></p>
</form>
<p><b><font size="2" face="Verdana">Look for these lines (appx 824-825):</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTO_URL"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE"
	</textarea></p>
</form>
<p><b><font size="2" face="Verdana">Between them, insert this:</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="2" name="S1" cols="120">
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL"
  </textarea></p>
</form>
<p><b><font size="2" face="Verdana">So it will now look like this:</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTO_URL"
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE"
	</textarea></p>
</form>
<p><b><font size="2" face="Verdana">Look for these lines (appx 301-304):</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="5" name="S1" cols="120">
					end if
					Response.Write	"</td>" & vbNewLine & _
							"                    </tr>" & vbNewLine
				end if ' strPicture
	</textarea></p>
</form>
<p><b><font size="2" face="Verdana">Directly under that, add the following:</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="18" name="S1" cols="120">
			If strShowAvatar = "1" then
				if IsNull(rs("M_AVATAR_URL")) or rs("M_AVATAR_URL") = "" or rs("M_AVATAR_URL") = " " or rs("M_AVATAR_URL") = "noavatar.gif" then
					Response.write	"<tr>" & vbNewLine & _
						"	<td colspan=""2"" bgColor=""" & strCategoryCellColor & """ align=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """> Avatar </font></b></TD>" & vbNewLine & _
						"</tr>" & vbNewLine & _
						"<tr>" & vbNewLine & _
						" 	<td bgColor=""" & strPopUpTableColor & """ align=""center"" colspan=""2""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> None Selected</font></b></td>" & vbNewLine & _
						"</tr>" 
				else
					Response.write	"<tr>" & vbNewLine & _
						"	<td colspan=""2"" bgColor=""" & strCategoryCellColor & """ align=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """> Avatar </font></b></TD>" & vbNewLine & _
						"</tr>" & vbNewLine & _
						"<tr>" & vbNewLine & _
						" 	<td bgColor=""" & strPopUpTableColor & """ align=""center"" colspan=""2""><img src=""" & ChkString(rs("M_AVATAR_URL"), "url") & """ width=""" & intAvatarWidth & """ height=""" & intAvatarHeight & """ border=""" & intAvatarBorder & """></td>" & vbNewLine & _
						"</tr>" 
				end if
			end if
		</textarea></p>
</form>
<p><b><font size="2" face="Verdana">Look for these lines (appx 186-187):</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="3" name="S1" cols="120">
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTO_URL"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE"
	</textarea></p>
</form>
<p><font size="2" face="Verdana"><b>Between them, insert this:</b></font></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="2" name="S1" cols="120">
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL"
  </textarea></p>
</form>
<p><b><font size="2" face="Verdana">So it will now look like the following:</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="C:\avatar\_private\form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTO_URL"
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE"
	</textarea></p>
</form>
<p><font size="2" face="Verdana">Thats all for pop_profile.asp</font></p>

<hr>
<p><b><font size="2" face="Verdana">TOPIC.ASP</font></b><a name="topic"></a></p>

<p><b><font size="2" face="Verdana">Look for these lines (appx 526-528):</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults"
  U-File="C:\avatar\avatars\_private\form_results.txt" S-Format="TEXT/CSV"
  S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">
			Reply_MemberLevel = arrReplyData(rM_LEVEL, iForum)
			Reply_MemberPosts = arrReplyData(rM_POSTS, iForum)
			Reply_MemberCountry = arrReplyData(rM_COUNTRY, iForum)
  </textarea></p>
</form>
<p><b><font size="2" face="Verdana">Directly after those, add this code</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults"
  U-File="C:\avatar\avatars\_private\form_results.txt" S-Format="TEXT/CSV"
  S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">
  	Reply_MemberAvatar = arrReplyData(rM_Avatar, iForum)</textarea></p>
</form>
<p><b><font size="2" face="Verdana">Look for this line (appx 500):</font></b></p>

<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults"
  U-File="C:\avatar\avatars\_private\form_results.txt" S-Format="TEXT/CSV"
  S-Label-Fields="TRUE" -->
  <p><textarea rows="2" name="S1" cols="120">
		rM_COUNTRY = 11
	</textarea></p>
</form>
<p><b><font size="2" face="Verdana">After that, insert this:</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults"
  U-File="C:\avatar\avatars\_private\form_results.txt" S-Format="TEXT/CSV"
  S-Label-Fields="TRUE" -->
  <p><textarea rows="2" name="S1" cols="120">
		rM_Avatar = 12
	</textarea></p>
</form>
<p><b><font size="2" face="Verdana">Note:  You will need to renumber the following lines accordingly, so that block looks something like this:</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults"
  U-File="C:\avatar\avatars\_private\form_results.txt" S-Format="TEXT/CSV"
  S-Label-Fields="TRUE" -->
  <p><textarea rows="27" name="S1" cols="120">
		rM_NAME = 0
		rM_RECEIVE_EMAIL = 1
		rM_AIM = 2
		rM_ICQ = 3
		rM_MSN = 4
		rM_YAHOO = 5
		rM_TITLE = 6
		rMEMBER_ID = 7
		rM_HOMEPAGE = 8
		rM_LEVEL = 9
		rM_POSTS = 10
		rM_COUNTRY = 11
		rM_Avatar = 12
		rREPLY_ID = 13
		rFORUM_ID = 14
		rR_AUTHOR = 15
		rTOPIC_ID = 16
		rR_MESSAGE = 17
		rR_LAST_EDIT = 18
		rR_LAST_EDITBY = 19
		rR_SIG = 20
		rR_STATUS = 21
		rR_DATE = 22
		if CanShowSignature = 1 then
			rM_SIG = 23
		end if
	</textarea></p>
</form>
<p><font size="2" face="Verdana"><b>Look for these lines (appx 286-288):</b></font></p>

<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults"
  U-File="C:\avatar\avatars\_private\form_results.txt" S-Format="TEXT/CSV"
  S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">
	'## Forum_SQL
	strSql = "SELECT M.M_NAME, M.M_RECEIVE_EMAIL, M.M_AIM, M.M_ICQ, M.M_MSN, M.M_YAHOO"
	strSql = strSql & ", M.M_TITLE, M.MEMBER_ID, M.M_HOMEPAGE, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY"
	</textarea></p>
</form>
<p><font size="2" face="Verdana"><b>Edit the last of those lines to look like the following:</b></font></p>

<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults"
  U-File="C:\avatar\avatars\_private\form_results.txt" S-Format="TEXT/CSV"
  S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">
	strSql = strSql & ", M.M_TITLE, M.MEMBER_ID, M.M_HOMEPAGE, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY, M.M_AVATAR_URL"
	</textarea></p>
</form>
<p><font size="2" face="Verdana"><b>Look for these lines (appx 128-130):</b></font></p>

<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults"
  U-File="C:\avatar\avatars\_private\form_results.txt" S-Format="TEXT/CSV"
  S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">
	Member_Level = rsTopic("M_LEVEL")
	Member_Posts = rsTopic("M_POSTS")
	Member_Country = rsTopic("M_COUNTRY")
	</textarea></p>
</form>
<p><font size="2" face="Verdana"><b>Directly after those, add this code:</b></font></p>

<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults"
  U-File="C:\avatar\avatars\_private\form_results.txt" S-Format="TEXT/CSV"
  S-Label-Fields="TRUE" -->
  <p><textarea rows="4" name="S1" cols="120">
	Member_Avatar = rsTopic("M_AVATAR_URL")
  </textarea></p>
</form>

<p><b><font size="2" face="Verdana">Find this line (appx 97):</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults"
  U-File="C:\avatar\avatars\_private\form_results.txt" S-Format="TEXT/CSV"
  S-Label-Fields="TRUE" -->
  <p><textarea rows="2" name="S1" cols="120">
	", M.M_TITLE, M.M_HOMEPAGE, M.MEMBER_ID, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY" & _
	</textarea></p>
</form>
<p><font size="2" face="Verdana"><b>After <font color="red">, M.M_COUNTRY</font>, insert this:</b></font></p>
<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults"
  U-File="C:\avatar\avatars\_private\form_results.txt" S-Format="TEXT/CSV"
  S-Label-Fields="TRUE" -->
  <p><textarea rows="2" name="S1" cols="120">, M.M_AVATAR_URL</textarea></p>
</form>
<p><b><font size="2" face="Verdana">It should now look like this:</font></b></p>

<form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults"
  U-File="C:\avatar\avatars\_private\form_results.txt" S-Format="TEXT/CSV"
  S-Label-Fields="TRUE" -->
  <p><textarea rows="2" name="S1" cols="120">
	", M.M_TITLE, M.M_HOMEPAGE, M.MEMBER_ID, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY, M.M_AVATAR_URL" & _
	</textarea></p>
</form>

That's it.
<p><font size="2" face="Verdana">What's that? Nothing's working? </font></p>
<p><font size="2" face="Verdana">Then pop along to <a href="http://forum.snitz.com/forum/forum.asp?FORUM_ID=94">http://forum.snitz.com/forum/forum.asp?FORUM_ID=94</a></font></p>
<p> </p>
<p> </p>

</body>

</html>
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 07 October 2012 :  23:02:02  Show Profile  Visit Maxime's Homepage
Carefree thank you very much, very nice of you to have me rewrite this file.
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 08 October 2012 :  00:08:59  Show Profile
You're welcome.
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 08 October 2012 :  05:14:56  Show Profile  Visit Maxime's Homepage
I think I'm useless, I can not download from my computer avatars. What is that tower well?

Page upload_avatar.asp
Error:
Microsoft JET Database Engine error '80040e14 '

Syntax error in INSERT INTO statement.

/ forum / avatar_upload.asp, line 200

<!-- #include file="config.asp" -->
<!-- #include file="inc_func_common.asp" -->
<%
if Session(strCookieURL & "Approval") <> "15916941253" then
	scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
	Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname))
end if  
 
Class Upload
	Public  objFiles
	Private objFormItems
	
	Private Sub Class_Initialize()
		Set objFiles = Server.CreateObject("Scripting.Dictionary")
		Set objFormItems = Server.CreateObject("Scripting.Dictionary")
	End Sub 	
	
	Private Sub Class_Terminate()
		If IsObject(objFiles) Then
			objFiles.RemoveAll()
			Set objFiles = Nothing
		End If
		If IsObject(objFormItems) Then
			objFormItems.RemoveAll()
			Set objFormItems = Nothing
		End If
	End Sub 
	
	Public Property Get Form(sIndex)
		Form = ""
		If objFormItems.Exists(LCase(sIndex)) Then Form = objFormItems.Item(LCase(sIndex))
	End Property
		
	'This function retreives a field's name
	Private Function GetFieldName(infoStr) 
	Dim sPos
	Dim EndPos
       		sPos = InStr(infoStr, "name=")
       		EndPos = InStr(sPos + 6, infoStr, Chr(34) & ";")
		If EndPos = 0 Then
			EndPos = inStr(sPos + 6, infoStr, Chr(34))
       		End If
		GetFieldName = Mid(infoStr, sPos + 6, endPos - (sPos + 6))
	End Function 

	'This function retreives a file field's filename
	Private Function GetFileName(infoStr)
	Dim sPos
	Dim EndPos
	Dim strTmp
	Dim CrLf : CrLf = Chr(13) & Chr(10)
		sPos = InStr(infoStr, "filename=")
		EndPos = InStr(infoStr, Chr(34) & CrLf)
		strTmp = Mid(infoStr, sPos + 10, EndPos - (sPos + 10))
		GetFileName = Mid(strTmp,InstrRev(strTmp,"\",-1,1) + 1)
	End Function

	'This function retreives a file field's MIME type
	Private Function GetFileType(infoStr)  
	Dim sPos
		sPos = InStr(infoStr, "Content-Type: ")
		GetFileType = Mid(infoStr, sPos + 14)
	End Function
	
	Public Sub UploadProcess()
	Dim biData
	Dim PostData
	Dim nIndex
	Dim CrLf : CrLf = Chr(13) & Chr(10)
	Dim ContentType : ContentType = Request.ServerVariables("HTTP_CONTENT_TYPE")
	Dim ctArray
	Dim bArray
	Dim Boundary
	Dim FormData
	Dim x
	Dim InfoEnd
	Dim varInfo
	Dim varValue
	Dim objFileInfo
	
	biData = Request.BinaryRead(Request.TotalBytes)
	For nIndex = 1 to LenB(biData)
		PostData = PostData & Chr(AscB(MidB(biData,nIndex,1)))
	Next

	ctArray = Split(ContentType, ";")
	
	bArray = Split(Trim(ctArray(1)), "=")
	Boundary = Trim(bArray(1))
	FormData = Split(PostData, Boundary)
		
	For x = 0 to UBound(FormData)
		InfoEnd = InStr(FormData(x), CrLf & CrLf)
		If InfoEnd > 0 Then
		Set objFileInfo = New FileInformation
				
			varInfo = Mid(FormData(x), 3, InfoEnd - 3)
			varValue = Mid(FormData(x), InfoEnd + 4,Len(FormData(x)) - InfoEnd - 7)
			
			If (InStr(varInfo, "filename=") > 0) Then
				objFileInfo.FormName = GetFieldName(varInfo)
				objFileInfo.FileData = varValue
				objFileInfo.FileName = GetFileName(varInfo)
				objFileInfo.ContentType = GetFileType(varInfo)
				If objFileInfo.FileSize > 0 Then objFiles.add objFileInfo.FormName,objFileInfo
			Else
				'It's a regular field
				objFormItems.add GetFieldName(varInfo), varValue
			End If
		End If
	Next	
	End Sub
		
End Class

Class FileInformation
	Public ContentType
	Public FileName
	Public FileData
	Public FormName
	Public UploadMessage
	Public FileOverWrite
        Public WasSuccess
        
	Public Property Get FileSize()
		FileSize = LenB(FileData)
	End Property 
	
	Public Sub WriteFile(strPath)
		Dim arrAllowedTypes : arrAllowedTypes = Array(".jpg",".jpeg",".gif",".png")
	       	Dim strExtension : strExtension = LCase(Mid(FileName,InStrRev(FileName,".")))
	       	Dim intForCounter
	       	Dim objFSO : Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	       	Dim blnAllow : blnAllow = False
	       	Dim objSaveME
	       	WasSuccess = False 
	       	
	       	If len(strPath) = 0 Or Len(FileName) = 0 Then
			UploadMessage = "Failed - This file could not be uploaded."
			Exit Sub
		end if
		
	       	strPath = Server.Mappath(strPath)
	       	
		If Not objFSO.FolderExists(strPath) Then 
			UploadMessage = "Failed - Error - Upload path not found." 		
			Exit Sub
		end if
			       
	       	for intForCounter = 0 to Ubound(arrAllowedTypes)
			if strComp(strExtension,arrAllowedTypes(intForCounter),1) = 0 then blnAllow = True    
	       	next
	          
	        if Not blnAllow then
	        	UploadMessage = "Failed - File type [" & strExtension & "] is not allowed."
			Exit Sub    
		End if	       
	        
	       If Mid(strPath, Len(strPath)) <> "\" Then strPath = strPath & "\"
	       
		If objFSO.FileExists(strPath & FileName) AND FileOverWrite = "yes" Then 
			objFSO.DeleteFile strPath & FileName,True    
		elseif objFSO.FileExists(strPath & FileName) AND FileOverWrite = "no" Then
			UploadMessage = "Failed - File already exists, and you did not wish to overwrite existing versions." 
			exit sub			
		end if
		
		'@-If we got this far then save the file
		Set objSaveME = objFSO.CreateTextFile(strPath & FileName, True)
		objSaveME.Write(FileData)
		objSaveME.Close	  
		
		UploadMessage = "Success - The avatar has been uploaded to [" & strPath & "]"
		WasSuccess = True
		Set objSaveME = nothing
		Set objFSO = nothing     	       
	End Sub	
	
	Public Function SaveToAvatar(strTablePrefix,strDbConnection,strURL,strCatID)
	Dim strSql         
	Dim strDisplayName : strDisplayName = Mid(FileName,1,InStrRev(FileName,".") -1)
	Dim dbConn : Set dbConn = Server.CreateObject("ADODB.Connection")
	dbConn.Open strDbConnection
	 
	If Mid(strURL, Len(strURL)) <> "/" Then strURL = strURL & "/"
	strURL = strURL & FileName
		'#### Inster into database
		strSql = "INSERT INTO " & strTablePrefix & "AVATAR ("
		strSql = strSql & "A_URL"
		strSql = strSql & ", A_NAME"
		strSql = strSql & ", A_MEMBER_ID"
		strSql = strSql & ", A_CATID"
		strSql = strSql & ") VALUES ("
		strSql = strSql & "'" & chkstring(strURL,"SQLSTRING") & "'"
		strSql = strSql & ", '" & chkstring(strDisplayName,"SQLSTRING") & "'"
		strSql = strSql & ", " & 0
		strSql = strSql & ", " & chkString(strCatID,"number")
		strSql = strSql & ")"	
		
		dbConn.Execute (strSql),,adCmdText + adExecuteNoRecords 
	
	dbConn.Close
	Set dbConn = nothing
	 
	End Function
End Class

Dim UploadStuff : Set UploadStuff = New Upload

UploadStuff.UploadProcess()

Response.Write	"<html>" &_
		"<head>" &_
		"<title>Upload Results</title>" &_
		"</head>" &_
		"<body>" &_
		"<table border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"">" & vbNewLine & _
       		" <tr>" & vbNewLine & _
       		"  <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
       	       	"		<table border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
		"			<tr>" & vbNewLine & _
		"			<td bgcolor=""" & strHeadCellColor & """ colspan=""2"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b> Avatar Files </b></font></td>" & vbNewLine & _
		"			</tr>" & vbNewLine
		if UploadStuff.objFiles.Count = 0 then
			response.write	"<tr>" & vbNewLine & _
				"<td bgcolor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" &_
					"No files submitted!" &_
				"</td>" &_
				"</tr>"
		else
			For Each File In UploadStuff.objFiles.Items
			File.FileOverWrite = UploadStuff.Form("overwrite" & File.FormName)  
			strDestination =  UploadStuff.Form("destination")                                 
			File.WriteFile(strDestination)
			If File.WasSuccess then File.SaveToAvatar strTablePrefix,strConnString,UploadStuff.Form("destination"),UploadStuff.Form("CatID")
				response.write 	"			<tr>" & vbNewLine & _
				"			<td bgcolor=""" & strHeadCellColor & """ colspan=""2"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b> " & File.FileName & " </b></font></td>" & vbNewLine & _
	      			"			</tr>" & vbNewLine &_		
	       			"			<tr>" & vbNewLine & _
				"<td bgcolor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" &_
					File.UploadMessage &_
				"</td>" &_
	       			"			</tr>"			
			next
		end if		
response.write	"		</table>" & vbNewLine & _
		"	</td>" & vbNewLine & _
		"</tr>" & vbNewLine & _
		"</table>" &_
		"<br /><div align=""center"">" &_
		"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" &_
		"<a href=""JavaScript:onClick=window.close()"">Close Window</a>" &_
		"</div>"  &_
       		"</body>" &_
		"</html>"
%>
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
Edited by - Maxime on 08 October 2012 06:12:29
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 08 October 2012 :  22:18:35  Show Profile
Test the sql string. Make the following change and try uploading an avatar again. It will print the value to the screen. Then copy it and tell us what it says and we'll try to narrow it down.

After line 198, insert these two lines:


		Response.Write	strSql
		Response.End


So that section of code will look like this:


		strSql = "INSERT INTO " & strTablePrefix & "AVATAR ("
		strSql = strSql & "A_URL"
		strSql = strSql & ", A_NAME"
		strSql = strSql & ", A_MEMBER_ID"
		strSql = strSql & ", A_CATID"
		strSql = strSql & ") VALUES ("
		strSql = strSql & "'" & chkstring(strURL,"SQLSTRING") & "'"
		strSql = strSql & ", '" & chkstring(strDisplayName,"SQLSTRING") & "'"
		strSql = strSql & ", " & 0
		strSql = strSql & ", " & chkString(strCatID,"number")
		strSql = strSql & ")"	
		Response.Write	strSql
		Response.End
		dbConn.Execute (strSql),,adCmdText + adExecuteNoRecords
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 08 October 2012 :  23:20:20  Show Profile  Visit Maxime's Homepage
Thank you very much Carefree. You're a unique and very nice to want to help me. Without you we would be lost.
Damage that members can not upload their own avatar
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
Edited by - Maxime on 08 October 2012 23:35:27
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.49 seconds. Powered By: Snitz Forums 2000 Version 3.4.07