ho prova ad inserirli anke nella cartella public ma nulla

mi daresti una mano?

i tre file sono questi:

questo è il file di inserimento

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>

<body bgcolor="#CCCCCC">
<form method="post">
<H1 align="center">INSERIMENTO</H1>


Tipo di Immobile
<select name="immobile" id="immobile">
<option selected>qualsiasi</option>
<option>ATTICO</option>
<option>BOX</option>
<option>CASA DI CORTE</option>
<option>CASA INDIPENDENTE</option>
<option>CASA SEMINDIPENTE</option>
<option>MANSARDA</option>
<option>MONOLOCALE</option>
<option>PALAZZINA</option>
<option>RUSTICO</option>
<option>TERRENO EDIFICABILE</option>
<option>VARIE</option>
<option>VILLA A SCHIERA</option>
<option>VILLA BIFAMILIARE</option>
<option>VILLA QUADRIFAMILIARE</option>
<option>VILLA SINGOLA</option>
<option>VILLA TRIFAMILIARE</option>
</select>


Provincia:
<select name="prov" id="prov">
<option selected>AG</option>
<option>AL</option>
<option>AN</option>
<option>AO</option>
<option>AP</option>
<option>AQ</option>
<option>AR</option>
<option>AT</option>
<option>AV</option>
<option>BA</option>
<option>BG</option>
<option>BI</option>
<option>BL</option>
<option>BN</option>
<option>BO</option>
<option>BR</option>
<option>BS</option>
<option>BZ</option>
<option>CA</option>
<option>CB</option>
<option>CE</option>
<option>CH</option>
<option>CL</option>
<option>CN</option>
<option>CO</option>
<option>CR</option>
<option>CS</option>
<option>CT</option>
<option>CZ</option>
<option>EE</option>
<option>EN</option>
<option>FC</option>
<option>FE</option>
<option>FG</option>
<option>FI</option>
<option>FO</option>
<option>FR</option>
<option>GE</option>
<option>GO</option>
<option>GR</option>
<option>IM</option>
<option>IS</option>
<option>KR</option>
<option>LC</option>
<option>LE</option>
<option>LI</option>
<option>LO</option>
<option>LT</option>
<option>LU</option>
<option>MC</option>
<option>ME</option>
<option>MI</option>
<option>MN</option>
<option>MO</option>
<option>MS</option>
<option>MT</option>
<option>NA</option>
<option>NO</option>
<option>NU</option>
<option>OR</option>
<option>PA</option>
<option>PC</option>
<option>PD</option>
<option>PE</option>
<option>PG</option>
<option>PI</option>
<option>PN</option>
<option>PO</option>
<option>PR</option>
<option>PS</option>
<option>PT</option>
<option>PU</option>
<option>PV</option>
<option>PZ</option>
<option>RA</option>
<option>RC</option>
<option>RE</option>
<option>RG</option>
<option>RI</option>
<option>RM</option>
<option>RN</option>
<option>RO</option>
<option>SA</option>
<option>SI</option>
<option>SO</option>
<option>SP</option>
<option>SR</option>
<option>SS</option>
<option>SV</option>
<option>TA</option>
<option>TE</option>
<option>TN</option>
<option>TO</option>
<option>TP</option>
<option>TR</option>
<option>TS</option>
<option>TV</option>
<option>UD</option>
<option>VA</option>
<option>VB</option>
<option>VC</option>
<option>VE</option>
<option>VI</option>
<option>VR</option>
<option>VT</option>
<option>VV</option>
</select>


Localit&agrave;
<input name="localita" type="text" id="localita">


Descrizione
<textarea name="descrizione" id="descrizione"></textarea>


mq
<input name="mq" type="text" id="mq">


prezzo
<input name="prezzo" type="text" id="prezzo">
</p>


foto
<input name="foto" type="text" id="foto">




<input type="submit" value="aggiungi">
</p>
</form>
<%
if len (Request.Form)>0 then
dim Conn, strConn

strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/mdb-database/database.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn

SQL = "SELECT * FROM clienti"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn, 1, 3

rs.AddNew
rs("immobile") = request.Form("immobile")
rs("prov") = request.Form("prov")
rs("localita") = request.Form("localita")
rs("descrizione") = request.Form("descrizione")
rs("mq") = request.Form("mq")
rs("prezzo") = request.Form("prezzo")
rs("foto") = request.Form("foto")
rs.Update

rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
Response.write "<H2>inserimento effettuato con successo</H2>"
Response.write " <FORM METHOD='Post' ENCTYPE='multipart/form-data' ACTION='outputFilestranezze.asp'>"
Response.write "<table align=center><tr><td>"
Response.write "<font face='Verdana' size='2' color=yellow>File : </td><td><INPUT TYPE='file' NAME='blob1'></td><td>"
Response.write "<INPUT TYPE='submit' NAME='Enter1' value='upload'></td>"
Response.write "</tr></table>"
Response.write "</FORM>"
End if
%>
</body>
</html>


e questi sono i due file per upload





<%Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
contentType = UploadRequest.Item("blob1").Item("ContentType")
'Content-Type è il tipo di file
filepathname = UploadRequest.Item("blob1").Item("FileName")
'File path name è il percorso sul client
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
'Filename è il nome del file
value = UploadRequest.Item("blob1").Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14

Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Re quest.ServerVariables("PATH_INFO")),pathEnd) & "/foto/" & filename)
'Response.write("Nome File="&Left(Server.mappath(Request.ServerVariables ("PATH_INFO")),pathEnd) & "/img/" & filename&";
")
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close%>

<html>



<body bgcolor=#608ac6>
<p align="center"><font face="Verdana" size="2">
File "<%=filename%>" ricevuto con successo</font>


Homepage
</body>
</html>











<%

percorso = "http://www.fresos.it/immcasa/foto"

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,"testo1") > 0 then
testo1 = ContenutoFile
end if


if instr(Intestazione,"file1") > 0 then
i = instr(Intestazione,"filename=")
j = instr(i + 10,Intestazione,chr(34))
NomeUpload = mid(Intestazione,i + 10,j-i-10)
i = instrRev(NomeUpload,"/")
if i<>0 then
NomeFile = mid(NomeUpload,i + 1)
else
NomeFile = NomeUpload
end if
if i<>0 then
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
EstensioneFile1 = right(ContenutoFile,3)
NomeFile1 = NomeFile
Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
Set FSO = Nothing
end if
end if

next


Response.Write "Il valore immesso nella testo1 è " & testo1 & "
"


If Upload1 = true then
Response.Write "
La dimensione del file che hai uploadato è di " & DimensioneFile1*0.001 & "kb"
Response.Write "
Grazie di aver inviato il tuo file"
End If


End if
%>