Mi da errore nello script, la pagina che sto utilizzando è questa:
codice:
<%@LANGUAGE="VBSCRIPT"%>
<%server.scripttimeout = 1800%> 
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<script language="javascript" type="text/javascript">
document.forms["MainForm"].submit()
</script>

</head>

<body>
<table cellpadding="0" cellspacing="0">
	<tr>
		<td>
		  <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="550" height="400">
              <param name="movie" value="caricamento.swf">
              <param name="quality" value="high">
              <embed src="caricamento.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="550" height="400"></embed>
		  </object>
		</td>
	</tr>
</table>
<%
percorso = "/public/offertedelmese/"
ByteRicevuti = Request.TotalBytes

if ByteRicevuti > 0 then
	DatiRicevuti = Request.BinaryRead(ByteRicevuti)
	For i = 1 To lenB(DatiRicevuti)
		FileBinario = FileBinario & chr(ascB(midB(DatiRicevuti,i,1)))
	Next
	FirmaFile = left(FileBinario,instr(FileBinario,"" & vbCrLf)-1)
	ArrPezzi = split(FileBinario,FirmaFile)

	for item = 1 to ubound(ArrPezzi)-1
		Inizio = instr(ArrPezzi(item),"" & vbCrLf & "" & vbCrLf)
		Intestazione = left(ArrPezzi(item),Inizio-1)
		Inizio = Inizio + len("" & vbCrLf) + len("" & vbCrLf)
	    	ContenutoFile = mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)				

		if instr(Intestazione,"campoabilitato") > 0 then
			campoabilitato = ContenutoFile																		
		end if
				
		if instr(Intestazione,"campotitolo") > 0 then
			Ctitolo = ContenutoFile
			Ctitolo = replace(Ctitolo,"'","''")
			Ctitolo = replace(Ctitolo,"£","&pound;")
			Ctitolo = replace(Ctitolo,"&","&amp;")
			Ctitolo = replace(Ctitolo,"ì","&igrave;")
			Ctitolo = replace(Ctitolo,"<","&lt;")
			Ctitolo = replace(Ctitolo,">","&gt;")
			Ctitolo = replace(Ctitolo,"è","&egrave;")
			Ctitolo = replace(Ctitolo,"é","&eacute;")
			Ctitolo = replace(Ctitolo,"ò","&ograve;")
			Ctitolo = replace(Ctitolo,"ç","&ccedil;")
			Ctitolo = replace(Ctitolo,"à","&agrave;")
			Ctitolo = replace(Ctitolo,"°","&deg;")
			Ctitolo = replace(Ctitolo,"ù","&ugrave;")
			Ctitolo = replace(Ctitolo,"§","&sect;")
			Ctitolo = replace(Ctitolo,"€","&euro;")
			Ctitolo = replace(Ctitolo,chr(34),"''''")												
		end if
				
		if instr(Intestazione,"campobrevedescrizione") > 0 then
			Cbrevedescrizione = ContenutoFile
			Cbrevedescrizione = replace(Cbrevedescrizione,"'","''")
			Cbrevedescrizione = replace(Cbrevedescrizione,"£","&pound;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"&","&amp;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"ì","&igrave;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"<","&lt;")
			Cbrevedescrizione = replace(Cbrevedescrizione,">","&gt;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"è","&egrave;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"é","&eacute;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"ò","&ograve;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"ç","&ccedil;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"à","&agrave;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"°","&deg;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"ù","&ugrave;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"§","&sect;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"€","&euro;")
			Cbrevedescrizione = replace(Cbrevedescrizione,chr(13),"
")															
		end if	
		
		if instr(Intestazione,"campodescrizione") > 0 then
			Cdescrizione = ContenutoFile
			Cdescrizione = replace(Cdescrizione,"'","''")
			Cdescrizione = replace(Cdescrizione,"£","&pound;")
			Cdescrizione = replace(Cdescrizione,"&","&amp;")
			Cdescrizione = replace(Cdescrizione,"ì","&igrave;")
			Cdescrizione = replace(Cdescrizione,"<","&lt;")
			Cdescrizione = replace(Cdescrizione,">","&gt;")
			Cdescrizione = replace(Cdescrizione,"è","&egrave;")
			Cdescrizione = replace(Cdescrizione,"é","&eacute;")
			Cdescrizione = replace(Cdescrizione,"ò","&ograve;")
			Cdescrizione = replace(Cdescrizione,"ç","&ccedil;")
			Cdescrizione = replace(Cdescrizione,"à","&agrave;")
			Cdescrizione = replace(Cdescrizione,"°","&deg;")
			Cdescrizione = replace(Cdescrizione,"ù","&ugrave;")
			Cdescrizione = replace(Cdescrizione,"§","&sect;")
			Cdescrizione = replace(Cdescrizione,"€","&euro;")
			Cdescrizione = replace(Cdescrizione,chr(13),"
")															
		end if
		
		if instr(Intestazione,"campofoto1P") > 0 then
			Cfoto1P = ContenutoFile															
		end if	

		if instr(Intestazione,"campofoto2P") > 0 then
			Cfoto2P = ContenutoFile															
		end if
		
		if instr(Intestazione,"campofoto3P") > 0 then
			Cfoto3P = ContenutoFile															
		end if
		
		if instr(Intestazione,"campofoto1G") > 0 then
			Cfoto1G = ContenutoFile															
		end if
		
		if instr(Intestazione,"campofoto2G") > 0 then
			Cfoto2G = ContenutoFile															
		end if
		
		if instr(Intestazione,"campofoto3G") > 0 then
			Cfoto3G = ContenutoFile															
		end if																							
								
	next

if campoabilitato <> "SI" then
	Cabilitato = "N"
else
	Cabilitato = "S"
end if

if Ctitolo = "" then
Ctitolo = " "
end if

if Cbrevedescrizione = "" then
Cbrevedescrizione = " "
end if

if Cdescrizione = "" then
Cdescrizione = " "
end if

end if

%>
<form action="aggiorna offerte del mese aggiungi2.asp" method="post" enctype="multipart/form-data" name="MainForm">
	<input type="hidden" name="campoabilitato" class="stilenero11" value="<% Response.Write(Cabilitato) %>">
	<input type="hidden" name="campotitolo" class="stilenero11" value="<% Response.Write(Ctitolo) %>">
	<input type="hidden" name="campobrevedescrizione" class="stilenero11" value="<% Response.Write(Cbrevedescrizione) %>">
	<input type="hidden" name="campodescrizine" class="stilenero11" value="<% Response.Write(Cdescrizione) %>">
	<input type="hidden" name="campofoto1P" class="stilenero11" value="<% Response.Write(Cfoto1P) %>">
	<input type="hidden" name="campofoto1G" class="stilenero11" value="<% Response.Write(Cfoto1G) %>">
	<input type="hidden" name="campofoto2P" class="stilenero11" value="<% Response.Write(Cfoto2P) %>">
	<input type="hidden" name="campofoto2G" class="stilenero11" value="<% Response.Write(Cfoto2G) %>">
	<input type="hidden" name="campofoto3P" class="stilenero11" value="<% Response.Write(Cfoto3P) %>">
	<input type="hidden" name="campofoto3G" class="stilenero11" value="<% Response.Write(Cfoto3G) %>">								
</form>
</body>
</html>
Cosa vedi di anomalo?