news nel sito

**emilianom** · 04-08-2005, 18:59

ciao ragazzi, sto cercando disperatamente di trovare uno script per inserire news nel mio sito ma nn ne riesco a configurare neanke uno :-(

qualcuso x piacere sa dirmi dove ne posso trovare uno semplice e funzionale o se è così gentile da passarmelo...
uno carino l'ho trovato ma non riesco a connetterlo con il database.. o meglio per un attimo a funzionato dopo di che x magia non ha funzionato più

**emilianom** · 04-08-2005, 19:09

questo è il codice e l'errore me lo da alla riga 5

<%
sConn="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Application("Site_DBPath") & "templates.mdb;"
set cConn=Server.CreateObject("ADODB.Connection")
cConn.Open sConn <<--------QUI
set RS=cConn.Execute("SELECT * FROM News WHERE Index=" & Request.QueryString("Index"))
if request.QueryString("post")=1 then
'GET RID OF ANNOYING COMMA PROBLEMS
dim sHeadline, sShortText, sFullText, sImage, sEmail
sHeadline=Replace(Request.Form("Headline"),"'",chr (96))
sShortText=Replace(Request.Form("ShortText"),"'",c hr(96))
sFullText=Replace(Request.Form("FullText"),"'",chr (96))
sImage=Replace(Request.Form("Image"), "'", chr(96))
sEmail=Replace(Request.Form("Email"),"'",chr(96))

'LET'S EDIT The RECORD!
cConn.Execute "UPDATE News SET Email='" & sEmail & "' WHERE Index=" & Request.QueryString("index")
cConn.Execute "UPDATE News SET Image='" & sImage & "' WHERE Index=" & Request.QueryString("index")
cConn.Execute "UPDATE News SET Headline='" & sHeadline & "' WHERE Index=" & Request.QueryString("index")
cConn.Execute "UPDATE News SET ShortText='" & sShortText & "' WHERE Index=" & Request.QueryString("index")
TheFullText=Request.Form("FullText") & chr(13) & chr(10) & chr(13) & chr(10) & "EDITED BY " & Request.Form("Author") & " ON " & Now()
cConn.Execute "UPDATE News SET FullText='" & sFullText &"' WHERE Index=" & Request.QueryString("index")
%>
News article edited. Thank you. <%else%> </font>
<form method="post" action="edit.asp?post=1&index=<%=Request.Query String("index")%>" name="NewArticle">
<table width="800" border="0" cellspacing="0" cellpadding="0" height="14">
<tr>
<td width="133">Edited By</td>
<td width="667">
<input type="text" name="Author" size="30" maxlength="50" value="<%=RS("Author")%>">
</td>
</tr>
<tr>
<td width="133">Email</td>
<td width="667">
<input type="text" name="Email" size="30" value="<%=RS("Email")%>">
</td>
</tr>
<tr>
<td width="133">Image URL</td>
<td width="667">
<input type="text" name="Image" size="30" value="<%=RS("Image")%>">
</td>
</tr>
<tr>
<td width="133">HeadLine</td>
<td width="667">
<input type="text" name="Headline" size="50" maxlength="100" value="<%=RS("Headline")%>">
</td>
</tr>
<tr>
<td width="133">Short Text</td>
<td width="667">
<textarea name="ShortText" rows="3" cols="80"><%=RS("ShortText")%></textarea>
</td>
</tr>
<tr>
<td width="133">Full Text</td>
<td width="667">
<textarea name="FullText" cols="80" rows="10"><%=RS("FullText")%></textarea>
</td>
</tr>
<tr>
<td width="133" height="38">
<input type="submit" name="Submit" value="Post Article">
</td>
<td width="667" height="38"></td>
</tr>
</table>
</form>
<font face="Georgia, Times New Roman, Times, serif">
<%
end if
set RS=Nothing
set cConn=Nothing
%> </font></td>
</tr>
</table>
</body>
</html>

**imente** · 05-08-2005, 04:09

novantanove su cento la path è sbagliata...

non ci vuole un genio...
ma l'errore che da comunque non ce l'hai detto...

controlla che il percorso del Application("Site_DBPath") & "templates.mdb;" sia corretto

**emilianom** · 05-08-2005, 15:04

si è corretto, infatti il database lo metto nella stessa directori dei file...mmmma!!

**asva** · 05-08-2005, 15:06

ma non usavi aruba?

**emilianom** · 05-08-2005, 15:52

si uso aruba... perchè ..cosa cambia?

**emilianom** · 05-08-2005, 16:00

questo è l'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/list.asp, line 32

------------------------------
e questo è lo script di list.asp:

<html>
<head>
<title>PostFast Lite</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" link="#FF" vlink="#FF" alink="#FF">

<table width="800" border="0" cellspacing="0" cellpadding="0" height="475">
<tr>
<td colspan="4">
<div align="center"></div>
</td>
</tr>
<tr>
<td width="94" bgcolor="#33FFFF"><font face="Georgia, Times New Roman, Times, serif"><a href="new.asp">New
Article</a></font></td>
<td width="94" bgcolor="#33FFFF"><font face="Georgia, Times New Roman, Times, serif"><a href="list.asp?cmd=edit">Edit
Article</a></font></td>
<td width="115" bgcolor="#00FFFF"><font face="Georgia, Times New Roman, Times, serif"><a href="list.asp?cmd=delete">Delete
Article</a></font></td>
<td width="497"><font face="Georgia, Times New Roman, Times, serif"></font></td>
</tr>
<tr bgcolor="#CCFFFF" valign="top">
<td colspan="4" height="433">

Select an Article to <%=Request.QueryString("cmd")%>

<%
dim cConn, sConn, RS
sConn="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Application("Site_DBPath") & "mdb-database/templates.mdb"
set cConn=Server.CreateObject("ADODB.Connection")
cConn.Open sConn <<<-----L'ERRORE E' QUI
set RS=cConn.Execute("SELECT * FROM News ORDER BY Dates DESC")
do while RS.EOF=False
if Request.QueryString("cmd")="edit" then
Response.Write FormatDateTime(RS("Dates"),1) & " " & RS("Headline") & "
"
else
Response.Write FormatDateTime(RS("Dates"),1) & " " & RS("Headline") & "
"
end if
RS.MoveNext
loop
%>
</p>
</td>
</tr>
</table>
</body>
</html>

**asva** · 05-08-2005, 16:01

che i file del db li devi mettere dentro la cartella mdb-database altrimenti non ti funzionerà mai

**emilianom** · 05-08-2005, 16:02

infatti adesso l'ho messa li ma nn va lostesso

**asva** · 05-08-2005, 16:06

prova così

codice:

<%
percorso="/mdb-database/templates.mdb"
%>
<%
set sConn=server.CreateObject ("ADODB.Connection")
sConn.connectionString="DRIVER={MICROSOFT ACCESS DRIVER (*.MDB)};"& "DBQ=" & SERVER.MapPath(percorso)
sConn.open cn
%>

Discussione: news nel sito

Strumenti discussione

Ricerca discussione

Visualizza

news nel sito

Permessi di invio