Ho la necessità di creare un pannello di amministrazione sul mio sito in maniera da mettere alcuni amici nelle condizioni di aggiornarlo quotidianamente nonostante non siano webmaster e non abbiano accesso al mio dominio.
Ciò che mi serve è aggiornare, soprattutto, le news.
Ho trovato diversi codici in rete e tra questi uno che è proprio ciò che volevo. Però esso ha un solo inconveniente, al quale inizialmente non avevo pensato: non dà la possibilità di editare e cancellare.
Per far ciò sono costretto a scaricare ogni volta il database, correggere manualmente e reinviare dal mio pc in ftp.
Come potete ben capire questo mi comporta spesso dei problemi legati al fatto che chi inserisce le news non sa formattare il testo e spesso causa dei danni al layout della pagina.
Ho cercato quindi un altro codice tra cui uno che fa all'uopo. Purtroppo però c'è qualcosa che non va.
Posso effettuare il login, vedere le notizie che sono inserite di default sul database, ma quando provo ad editare, cancellare o ad inserire una nuova notizia mi restituisce il seguente errore:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] '(unknown)' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.
/news/config.inc, line 34
Questo il file config.inc:
<% Response.Buffer = True %>
<%
Dim Conn, Rs, Sql, DbPath, ID, Target
Dim Data, Titolo, Testo
Dim Action, Password, LoginForm
ID=Request("ID")
Target=Request.QueryString("target")
Data=Request.Form("data")
Titolo=Request.Form("titolo")
Testo=Request.Form("testo")
Testo=Replace(Testo, vbCrlf, "
" & vbCrLf, 1, -1, 1)
Action=Request.Form("action")
Password=Request.Form("pwd")
LoginForm = "<center>"
LoginForm = LoginForm & " <form name=""Login"" method=""post"" action=""default.asp?ID=Login&Target=" & Target &""">"
LoginForm = LoginForm & " <input type=""hidden"" name=""action"" value=""login"">"
LoginForm = LoginForm & " Nome utente:
"
LoginForm = LoginForm & " <input type=""password"" name=""pwd"">
"
LoginForm = LoginForm & " <input type=""submit"" value="" Login "">"
LoginForm = LoginForm & " </form>"
LoginForm = LoginForm & "</center>"
If Target="" Then
Target="admin.asp"
End If
Function OpenDb(Location)
DbPath=""
If Location=1 Then
DbPath="./mdb-database/news"
ElseIf Location=2 Then
DbPath="../mdb-database/news"
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(DbPath & ".mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
End Function
Function CloseDb()
On Error Resume Next
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
Response.End
End Function
%>
Vi prego di darmi una mano al più presto.
Grazie.
Rispondi quotando
