scriptAssign = "<input type='image' width='" & intAvatarWidth & "' height='" & intAvatarHeight & "' src='" & fullPath & "' onClick=""myRef = window.open('avatar_add.asp?image=" & fullPath & "&name=" & name &"','myw','left=20,top=20,width=450,height=175,toolbar=0,resizable=0');"">"

set myFso = server.createObject("scripting.FileSystemObject")
strFolderName = ("c:\temp\foldername\")

If not myFso.FolderExists(strFolderName) then
   myFso.createFolder(strFolderName)
end if

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