Problema news

**Ivan90** · 04-07-2006, 17:04

ragazzi ho creato un piccolo programmino news che mi permette di inserire tramite form il titolo e il messaggio... poi ho la pagina di default.asp che mi fa visualizzare la data e il titolo linkato che se lo clicco mi porta alla singola news..

Fino a qui tutto bene.. Ho fatto poi una pagina chiamata admin_news.asp che è identica a default.asp soltanto che permette all'utente di poter cancellare o modificare la news... soltanto che se provo a modificare la news... una volta che ho terminato il processo non mi compare più il titolo linkato .. ne a default.asp ne a admin_news.asp

Non riesco a capire il problema...

Se avete bisogno vi posto un po di codice...

**Ivan90** · 04-07-2006, 17:28

Ragazzi allora???? nessuno è ingrado di capire il problema???

**Naril** · 04-07-2006, 17:29

Originariamente inviato da Ivan90

Se avete bisogno vi posto un po di codice...

Vai facci sognare!

**Ivan90** · 04-07-2006, 17:37

Default.asp

<html>
<head>
<title>News by Osato Ivan</title>
</head>
<link href="css/styles.css" rel="stylesheet" type="text/css">
<body>
<p align="center"><font face="Verdana" color="#748aa5">News by Ivan Osato</font></p>
<%
SQL = "SELECT id,titolo,data FROM tblNews Order by data desc"
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs = conn.Execute(SQL)

' controllo la presenza o meno dei record

if rs.eof then
%>
<table border="0" cellpadding="0" cellspacing="0" width="80%" align="center">
<tr>
<td align="center" class="error">Nessuna News trovata in Archivio!!!
[img]images/nonesiste.gif[/img]</td>
</tr>
</table>
<%
else
%>
<table border="0" cellpadding="1" cellspacing="1" width="80%" align="center">
<tr>
<td align="center" colspan="3" class="t_title">Totale News : <%=Totalenews()%> </td>
</tr>
<%
Do while not rs.eof
%>
<tr>
<td width="5%" align="center" class="t_top">[img]images/pm.gif[/img]</td>
<td width="25%" align="center" class="t_top"><%=rs("data")%></td>
<td width="50%" class="t_top">"><%=rs("titolo")%></td>
</tr>
<%
rs.movenext
loop
end if

rs.Close
Set rs = Nothing
%>
<tr>
<td align="center" colspan="3" class="t_title">Inserisci News</td>
</tr>
</table>

</body>
</html>
<%
Function TotaleNews()
dim SQL,rs
SQL = "Select id From tblNews"

Set rs=Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.Open SQL, conn, ,-1

TotaleNews = rs.recordcount

rs.Close
Set rs = Nothing
End Function

%>

admin_news.asp

<html>
<head>
<title>News by Osato Ivan</title>
</head>
<link href="css/styles.css" rel="stylesheet" type="text/css">
<body>
<p align="center"><font face="Verdana" color="#748aa5">Amministrazione News</font></p>
<%
SQL = "SELECT id,titolo,data FROM tblNews Order by data desc"
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs = conn.Execute(SQL)

' controllo la presenza o meno dei record

if rs.eof then
%>
<table border="0" cellpadding="0" cellspacing="0" width="80%" align="center">
<tr>
<td align="center" class="error">Nessuna News trovata in Archivio!!!

[img]images/nonesiste.gif[/img]</td>
</tr>
</table>
<%
else
%>
<table border="0" cellpadding="1" cellspacing="1" width="80%" align="center">
<tr>
<td align="center" colspan="5" class="t_title">Totale News : <%=Totalenews()%> </td>
</tr>
<%
Do while not rs.eof
%>
<tr>
<td width="5%" align="center" class="t_top">[img]images/pm.gif[/img]</td>
<td width="5%" align="center" class="t_top"><a href="modifica_news.asp?id=<%=rs("id")%>">[img]images/Modifica.gif[/img]"></td>
<td width="5%" align="center" class="t_top"><a href="cancella_news.asp?id=<%=rs("id")%>">[img]images/Cancella.gif[/img]"></td>
<td width="25%" align="center" class="t_top"><%=rs("data")%></td>
<td width="50%" class="t_top">"><%=rs("titolo")%></td>
</tr>
<%
rs.movenext
loop
end if

rs.Close
Set rs = Nothing
%>
<tr>
<td align="center" colspan="5" class="t_title">
Inserisci News</td>
</tr>
</table>

</body>
</html>
<%
Function TotaleNews()
dim SQL,rs
SQL = "Select id From tblNews"

Set rs=Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.Open SQL, conn, ,-1

TotaleNews = rs.recordcount

rs.Close
Set rs = Nothing
End Function

%>

modifica_process.asp

<%

id = Request.QueryString("id")
' Riconosce i campi della form
titolo = Trim(Request.Form("titolo"))
messaggio = Trim(Request.Form("messaggio"))
messaggio = Replace(messaggio , VbCrlF , "
")
messaggio = Replace(messaggio , "'" , "''")

SQL = "UPDATE tblNews Set titolo='" & titolo & "' , messaggio='" & messaggio & "' WHERE id="&id
conn.Execute(SQL)

response.redirect "default.asp"

%>

**Naril** · 04-07-2006, 17:52

Fammi capire na cosa, ma quando modifichi le news poi ti sparisce il titolo totalmente oppure hai problemi solo con il link? Nel primo caso sei sicuro di passare correttamente il titolo a modifica_process.asp? Invece di fare l'insert prova a stamparlo con un response.write e vedere cosa contengono titolo e messaggio, non vorrei che aggiorni un titolo vuoto e quindi il link ti sparisce...

**Ivan90** · 04-07-2006, 18:06

non riesco a capire quale sia il probelma.. cmq si quando modifico la news poi mi scompare proprio il titolo cioè non c'è niente ne link ne titolo....

la pagina per vedere o magari per farti un 'idea è questa

http://aa.1asphost.com/ivanissimo/news/default.asp

per modificare invece vai qui

http://aa.1asphost.com/ivanissimo/news/admin_news.asp

**Naril** · 05-07-2006, 02:20

Forse mi son spiegato male ma credo di aver pensato giusto. Non hai postato il codice della pagina modifica_news.asp ma dando un'occhiata direttamente al sorgente si nota che manca il name al modulo titolo

<input type="text" value="Forza Italia" size="40">

mentre il modulo messaggio ha il name impostato correttamente

<textarea name="messaggio" cols="50" rows="10">

Ecco quindi il tuo problema: quando vai a fare il request.form("titolo") la variabile è vuota perchè non esiste nessun modulo "titolo" da cui fare il request e quando vai a fare l'UPDATE al databae cancelli il titolo!

Risultato: niente titolo, niente link.
Correggi il modulo del titolo inserendo name="titolo" e vedrai che funziona!

P.S.
<% IN FINALEEEEEEEEEEEEEEEEEEE

bravi azzurri!!! %>

**Ivan90** · 05-07-2006, 09:45

Grazie mille Naril.... E forza ITALIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA non mi sembra reale....

A proposito.. hai idea di come si faccia un replace laddovè trovi un doppio apice e ne metti due ?

**Naril** · 05-07-2006, 10:33

Dovrebbe bastare il replace che hai messo:

messaggio = Replace(messaggio , "'" , "''")

funziona anche se metti il doppio apice...

Discussione: Problema news

Strumenti discussione

Ricerca discussione

Visualizza

Problema news

Re: Problema news

Permessi di invio