Editar os posts publicados

[Alessancost 0]

No meu blog tenho um recurso de editar os posts publicados e quando edito um post ele altera a data do post para o dia atual, mas não quero que a data seja alterada. O que eu devo fazer?

 

Esse é o código do editar post

ASP

[*]<%@Language=vb script:onClick=window.close()"[/color]>Sair</a></td>

 

[*] </tr>

 

[*] </table></td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td colspan="2"> <br>

 

[*] <table align="center" width="90%" cellspacing="4" border="0" class="fonte06">

 

[*] <tr> 

 

[*] <td colspan="2"> 

 

[*] <%

 

[*]SQL = "Select * From posts WHERE id="&request("COD")&""

 

[*]Set RS = ConnDB.Execute(SQL)

 

[*]

 

[*]While Not RS.EOF

 

[*] Response.Write "<form name=""frmJournal"" method=""Post"" onSubmit=""return CheckForm();"">"

 

[*] Response.Write "<table cellspacing=2 cellpadding=2 border=0>"

 

[*] %>

 

[*] <input type="hidden" readonly size="2" name="idsec" class="btbox" value="<%=RS("id")%>"> 

 

[*] <input type="hidden" name="data" size="10" class="box" value="<%=Date%>"> 

 

[*] <input type="hidden" name="hora" size="30" class="box" value="<%=Time%>"> 

 

[*] </td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td width="7%">Titulo:</td>

 

[*] <td width="93%"><input name="titulo" type="text" class="box" value="<%=RS("titpost")%>" size="40" maxlength="73"> 

 

[*] <input type="hidden" name="nome" size="5" value="<%=session("FirstName")%>"></td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td rowspan="2" valign="top">Texto:</td>

 

[*] <td class="td"><textarea cols="53" rows="10" name="journalItem" class="btbox"><%=RS("post")%></textarea>

 

[*] <script language="javascript1.2">

 

[*]editor_generate('journalItem');

 

[*] </script></td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td><input name="submit" type="submit" class="btbox" onClick="this.form.action='edt_posts.asp?method=Edit';" value="Atualizar"> 

 

[*] <input name="submit" type="submit" class="btbox" onClick="this.form.action='edt_posts.asp?method=Delete';" value="Apagar"> 

 

[*] <input type="button" name="Preview" value="Visualizar" onClick="OpenPreviewWindow()"> 

 

[*] </td>

 

[*] </tr>

 

[*] </table>

 

[*] <%

 

[*] 'Response.Write "</table>"

 

[*] Response.Write "</form>"

 

[*] RS.MoveNext

 

[*] Wend

 

[*] %>

 

[*] </td>

 

[*] </tr>

 

[*]</table>

 

[*] </body>

 

[*]</html>

 

Desculpe-me pelo tamanho do código http://forum.imasters.com.br/public/style_emoticons/default/blush.gif mas o coloquei para um melhor entendimento. :rolleyes:

Obrigado http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Mário Monteiro 179]

na sub disso você deve tirar a parte que altera a data e a hora

 

ASP

[*]Sub Edit(ConnDB)

 

[*]

 

[*]  Dim idsec, data, hora, nome, tit, art, SQL2

 

[*]

 

[*]  idsec = CInt(Request.Form("idsec"))

 

[*]

 

[*]  nome = Replace(Request.Form("nome"), "'", "''")

 

[*]

 

[*]  tit = Replace(Request.Form("titulo"), "'", "''")

 

[*]

 

[*]  art = Replace(Request.Form("journalItem"), "'", "''")

 

[*]

 

[*]

 

[*]

 

[*]  SQL2 = "Update posts Set autorpost = '"&nome&"'

 

[*]

 

[*]  SQL2 = SQL2 & ", titpost = '"&tit&"', post = '"&art&"' Where id = "&idsec&""

 

[*]

 

[*]  Set RS = ConnDB.Execute(SQL2)

 

[*]

 

[*]  Response.Redirect "list_posts.asp"

 

[*]

 

[*]  End Sub

[Alessancost 0]

ASP

[*]Sub Edit(ConnDB)

 

[*]  Dim idsec, data, hora, nome, tit, art, SQL2

 

[*]  idsec = CInt(Request.Form("idsec"))

 

[*]  nome = Replace(Request.Form("nome"), "'", "''")

 

[*]  tit = Replace(Request.Form("titulo"), "'", "''")

 

[*]  art = Replace(Request.Form("journalItem"), "'", "''")

 

[*]

 

[*]  SQL2 = "Update posts Set autorpost = '"&nome&"'"

 

[*]  SQL2 = SQL2 & ", titpost = '"&tit&"', autorpost = '"&nome&"', post = '"&art&"' Where id = "&idsec&""

 

[*]Set RS = ConnDB.Execute(SQL2)

 

[*]  Response.Redirect "list_posts.asp"

 

[*]  End Sub

 

Tive esse erro:

 

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access] Destino 'autorpost' de saída duplicado.

/blog/Jus eundi/blog/admin/edt_posts.asp, line 10

[Mário Monteiro 179]

você deixou deixou duas vezes autorpost, tira um e testa...

[Alessancost 0]

OBRIGADO http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Mário Monteiro 179]

OBRIGADO  http://forum.imasters.com.br/public/style_emoticons/default/joia.gif   http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

de nada... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif