quote:

---

i'm really excited by this, BTW... thanks for your hard work.

---

quote:

---

Originally posted by vynsane

i take care of my folders independently of the admin home anyway, so it wouldn't bother me to not include it. also, i wouldn't want to delete the folder unless there was nothing in it anyway, and i would do that through FTP, so i guess that's my ten cents.

i'm really excited by this, BTW... thanks for your hard work.

---

quote:

---

Originally posted by MarkJH

quote:

---

i'm really excited by this, BTW... thanks for your hard work.

---

Yes, can't wait to see what you've accomplished with this.

---

Public Sub checkForErrors()
	'=== Clear Error Message ===
	Err_Msg = ""
			
	'=== Get Form Fields Values ===
	avatarURL = ChkString(Request.Form("AvatarURL"),"url")
	avatarName = ChkString(Request.Form("AvatarName"),"")
		
	'=== No Avatar URL ===
	if avatarURL = " "  then 
		Err_Msg = Err_Msg & "<li>You Must Enter a URL for your Avatar!</li>"
	end if
			
	'=== No Avatar Name ===
	if avatarName = " " then 
		Err_Msg = Err_Msg & "<li>You Must Enter a Name for your Avatar!</li>"
	end if	
			
	'=== Error Present - Inform User ===
	If Err_Msg <> "" then
		StringBuilder.AddString "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>There Was A Problem With The Submission</font></p>" & vbNewLine & _
					"<table align=""center"" border=""0"">" & vbNewLine & _
					"	<tr>" & vbNewLine & _
					"	 <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><ul>" & vbNewLine & _
					" " & Err_Msg & " " & vbNewLine & _
					"	</ul></font></td>" & vbNewLine & _
					"	</tr>" & vbNewLine & _
					"</table>" & vbNewLine & _
					"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Go Back To Enter Data</a></font></p>"
	else
		'=== No Errors - Build SQL Query ===
		strSql = "INSERT INTO " & strTablePrefix & "AVATAR ("
		strSql = strSql & "A_URL"
		strSql = strSql & ", A_NAME"
		strSql = strSql & ", A_MEMBER_ID"
		strSql = strSql & ") VALUES ("
		strSql = strSql & "'" & avatarURL & "'"
		strSql = strSql & ", '" & avatarName & "'"
		if Request.Form("AvatarMemberID") <> "" or Request.Form("AvatarMemberID") <> " " then
			strSql = strSql & ", " & ChkString(Request.Form("AvatarMemberID"),"")
		else
			strSql = strSql & ", " & 0
		end if	
		strSql = strSql & ")"
				
		'=== Execute SQL Query ===
		my_Conn.Execute (strSql)
				
		'=== Insert Complete - Print Results to User ===
		StringBuilder.AddString "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Avatar " & avatarName & " Added!</font></p>" & vbCRLF
		StringBuilder.AddString "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>To start using your new avatar,<br>go to your profile and choose the new avatar!</font></p>" & vbCRLF
		StringBuilder.AddString "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><A href='javascript: self.close ()'>Close this Window</A></p><BR>" & vbCRLF
	end if
Exit Sub
End Sub

Response.Write strSql
Response.End