Aiutissimoooooo!!!!
Qualcuno mi trova l'errore?? Xfavore
<html>
<head>
<title>Esempio Upload </title>
</head>
<body>
<form enctype="multipart/form-data" method="post" action="upload.asp" name="form">
<div align="center">
<table width="80%" cellpadding="3" cellspacing="3" border="1" bordercolor="#C0C0C0">
<tr>
<td align="center">NOME:</td>
<td align="center">
<input name="titolo_file" type="text" id="titolo_file" size="30" /></td>
<td align="center">ALLEGATO:</td>
<td align="center">
<input type="file" name="nome_file" size="20" /></td>
<td align="center"><input type="submit" value="Carica File" /></td>
</tr>
</table>
</div>
</form>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & server.mappath("/mdb-database/database.mdb")
Sql = "Select * from UPLOAD order by ID Desc ;"
Set Rs = Conn.Execute(Sql)
If Rs.Eof OR Rs.Bof Then
Response.Write("<center><font color='red'>Non ci sono file caricati sul server.</font></center>")
Rs.Close
Set Rs = Nothing
Else
%>
<div align="center">
<table cellspacing="3" cellpadding="3" width="80%" border="1" bordercolor="#C0C0C0">
<tr>
<td bgcolor="#C0C0C0" width="30%">DATA</td>
<td bgcolor="#C0C0C0" width="30%">FILE</td>
</tr>
<%
While Not Rs.Eof
%>
<tr>
<td width="30%"><%=Rs.Fields("data")%></td>
<td width="30%">
"><%=Rs.Fields("titolo_file")%></td>
<%
Rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing
%>
</tr>
</table>
</div>
<% End If %>
</body>
</html>
<%
' //// chiudo la connessione e libero risorse
Conn.Close()
Set Conn = Nothing
%>
mi da sempre questo errore::
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x258 Thread 0xfb8 DBC 0x1964c84 Jet'.
/retursi/index.asp, line 27
thanks!
Rispondi quotando
