Upload a file from a subdomain to the main domain

I want users to be able to upload pictures from a subdomain to a folder on the mail domain.  II am trying to set up my own web server using window 2003. It works on the current sever the site is on but I cannot get it to work on the new server. The code is attached.  The code works on the other server so I'm wondering if it is a windows or firewall issues.  I've look at both but cannot figure out how to get it to work.:

Thanks,

Scott

Dim MyUploader
												Set MyUploader = New FileUploader
																			
												MyUploader.Upload()
														
												Dim File
												Dim myFile
												Dim msErrorMsg ' holds error message if any variables are blank
	
												msErrorMsg = ""
								
												For Each File In MyUploader.Files.Items
													File.FileName=Left(File.FileName,Len(File.FileName)-4) & "(" & request.Cookies("userID") & ")" &  Right(File.FileName,4)
													myFile = File.FileName 
													'response.Write("<br>" & File.FileSize)
													if File.FileSize > 5242880 THEN
														msErrorMsg = "<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; - Sorry, the picture is too big, please resize and try again!<br>"
								
														If InStrRev(msErrorMsg, "<br>") <> Len(msErrorMsg) - 6 Then
															msErrorMsg = msErrorMsg & "<br>"
														End If
				
														'Set the Session error msg for display after redirect
														Session("msErrorMsg") = msErrorMsg		
														Session("Corrections") = "Yes"
																
														Response.Redirect("myAccount.asp?view=purchaseAd&action=uploadPic")
													END if
													response.Write("<br>" & File.ContentType)
												NEXT
																						
												sql="SELECT * FROM users WHERE userID=" & request.Cookies("userID") & ""
												set rs=Conn.Execute(sql)
												response.Write(myFile)	
												
												For Each File In MyUploader.Files.Items
													File.SaveToDisk "C:\pathtofolder\images\banners\"
												Next
 
...

Select allOpen in new window