Salve.
Vorrei realizzare un catalogo con una ventina di categorie, ed in ognuna di essa vorrei inserire qualche foto.
Adesso mi trovo a corto di idee, e gradirei qualche suggerimento sull'impostazione.
Grazie.

Ciao.
Ros
Riprendo il post per un'aggiornamento ed un consiglio.
Ho un bel script per l'upload di file che và in errore quando tento d'inserire i dati nel DB.
Questo è l'errore:
Microsoft VBScript runtime error '800a01a8'
Object required: ''

/public/upload.asp, line 102

Ecco lo script:

<%
strPath = Server.MapPath("\public\immagini") & "\"

'Controlliamo se sono stati inviati dei file
If Uploader.Files.Count = 0 Then
%>
<tr>
<td width="100%"><font color="#000080" size="2" face="Tahoma"><b>&nbsp;Nome file:&nbsp;</b>Nessun file inviato.</font></td>
</tr>
<%
If Uploader.Error Then
%>
<tr>
<td width="100%"><font color="#000080" size="2" face="Tahoma"><b>&nbsp;Errore:&nbsp;</b><%=Uploader.ErrorDesc%></font></td>
</tr>
<%
End If
Else

'Ciclo tra i file inviati
For Each File In Uploader.Files.Items

'Salvo il file
File.SaveToDisk strPath


'Mostriamo i dettagli dei file salvati
%>
<tr>
<td width="100%"><font color="#000080" size="2" face="Tahoma"><b>&nbsp;Nome file:&nbsp;</b><%=File.FileName%></font></td>
</tr>
<tr>
<td width="100%"><font color="#000080" size="2" face="Tahoma"><b>&nbsp;Dimensioni:&nbsp;</b><%=File.FileSize%>&nbsp;byte</font></td>
</tr>
<tr>
<td width="100%"><font color="#000080" size="2" face="Tahoma"><b>&nbsp;Tipo:&nbsp;</b><%=File.ContentType%></font></td>
</tr>
<%
Next

End If
strFName = File.FileName ******LINEA102 ERRORE*****
strFSize = File.FileSize
strCType = File.Content.Type

Set Uploader = Nothing

'Connessione al Database
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/mdb-database/Catalogo.mdb")

'Prepara la SQL
sql = "select * from Image"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3


'Aggiungi
rs.AddNew
rs.Fields("Nome")=nome
rs.Fields("NomeCat")=categoria
rs.Fields("FilePath")=StrPath
rs.Fields("FileName")=strFName
rs.Fields("FileSize")=strFSize
rs.Fields("FileCT")=strCType
rs.update

'Chiusura
rs.Close
Set rs = Nothing
Conn. Close
Set Conn = Nothing

Response.redirect("form.asp")
%>


Un consiglio?
Grazie



Ciao.
Ros

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.