Disk not ready

[fortitudo]

Microsoft VBScript runtime error '800a0047'

Disk not ready

news.asp, line 326


la riga è qs:

FSO.CopyFile Cstr(FSOsorgente), Cstr(FSODestinazione), true


ma che errore è Microsoft VBScript runtime error '800a0047'

Disk not ready

[wallrider]

1)quali soni i valori di FSOsorgente e FSODestinazione?
2) cel'hai i diritti su FSODestinazione?

[fortitudo]

questo è il codice:

<%
If Request.querystring("mode") = "postdb" then 
														
	strUserName = Session("userName")
	strHeading = Request.Form("txtHeading")
	strContent = Request.Form("txtContent")
	inizio = Request.Form("inizio")
	fine = Request.Form("fine")
	tipoNews = Request.Form("tipoNews")
	userAdmin = Session("userAdmin")
	strHeading = fieldReplace(strHeading)
	strContent = fieldReplace(strContent)
	dim imgOk
	if userAdmin = 2 then
		Attiva = 0
	else
		Attiva = 1
	end if
	if Session("FileDoc") <> "" then
        strSQL = "INSERT INTO tblnews (heading,content,postedby,[Timestamp], [idUser], [img], [LinkDocumentazione], [attiva], [inizio], [fine], [tipo])VALUES('" & strHeading & "','" & strContent & "','" & strUserName & "','"  & date() & "'," & Session("userID") & ", 1," & "'" & Session("Filedoc") & "'," & Attiva & ", #" & inizio & "#,#" & fine & "#," & tipoNews & ")" 
        else
        strSQL = "INSERT INTO tblnews (heading,content,postedby,[Timestamp], [idUser], [img], [attiva], [inizio], [fine], [tipo])VALUES('" & strHeading & "','" & strContent & "','" & strUserName & "','"  & date() & "'," & Session("userID") & ", 1," & Attiva & ", #" & inizio & "#,#" & fine & "#," & tipoNews & ")" 
	end if
	response.write(strsql)
	adoCon.BeginTrans
	adoCon.Execute(strSQL)

	Set rs = Server.CreateObject("ADODB.Recordset")
	strSQL = "SELECT @@IDENTITY As NewId;"
	rs.Open strSQL, adoCon
	AdoCon.CommitTrans
	
		'Allego immagine se necessario...
			if Session("FileUp") <> "" then
				
				if Session("imgServer") = "pc" then
					Set FSO = CreateObject("Scripting.FileSystemObject")
					Upload1 = True
					DimensioneFile1 = len(ContenutoFile)
					EstensioneFile1 = right(ContenutoFile,3)
					NomeFile1 = NomeFile
					Set textStream = FSO.CreateTextFile("e:\users\utente\miosito.it\imgNews\" & rs("NewId") & ".jpg", True, False)
					textStream.Write Session("FileUp")
					textStream.Close
					Session("FileUp") = ""
				end if

				if Session("imgServer") = "server" then
					Set FSO = CreateObject("Scripting.FileSystemObject")
					FSOsorgente = Cstr(Session("FileUp"))
					FSODestinazione = "e:\users\utente\miosito.it\imgNews\" & rs("NewId") & ".jpg"
					'Response.Write("da: " & FSOsorgente & " a: " & Cstr(FSODestinazione))
					FSO.CopyFile Cstr(FSOsorgente), Cstr(FSODestinazione), true
				end if 	
				
				Session("imgServer") = "none"
    			
				Session("FileUp") = ""
				dim estensioneImmagineUP
    			Set textStream = Nothing
	   			Set FSO = Nothing
		end if
			Set adoCon = Nothing
			Set rs = nothing
	Response.Redirect"news.asp?mode=listnews"
End If
If Request.querystring("mode") = "delete" then 
	strID = Clng(request.querystring("ID"))
	strSQL = "DELETE FROM tblnews WHERE ID =" & strID
	adoCon.Execute(strSQL)
	Set adoCon = Nothing
	Response.Redirect"news.asp?mode=listnews"
End If 
%>

specifico una cosa:

questo script funziona perfettamente su un altro server.
lo preso lo messo su un nuovo server e da questo problema.

in pratica è classico inserimento di news. quando inserisco un nuovo record do la possibilitò inserire come allegato anche un immagine. tramite upload.
lo script genera quell'errore solo quando ci allego un immagine.

ovvero l'immagini viene allegata ma poi quando clicco su invia per inserire tutto il record, immagine comrpesa, da quell'errore.

se invece inseriscouna news senza immagini, errore non ce ne sono.

quindi il problema sembra essere sulla scrittura dell'immagine

[optime]

io controllerei i permessi. in più, visto che si fa riferimento esplicito alle cartelle, controllerei la loro esistenza.