NO VISUALIZA NADA DE NADA!!!
Publicado por
fran (1 intervención) el 23/07/2002 13:03:24
Tal como vosotros decis, ya habia probado pero no visualiza nada de nada.
os escribo el codigo para que asi me podais ayudar.
<%
data = Request.Form("data")
titular = Request.Form("titular")
noticia = Request.Form("noticia")
noticia = replace(noticia,chr(13),"<br>")
titular=Replace(titular,"'","''")
noticia=Replace(noticia,"'","''")
On Error Resume Next
Set Conexion = CreateObject("ADODB.Connection")
Conexion.Open "Ej10"
strSQL = "Update agenda Set data ='" & Request("data") & "', Titular ='" & Request("Titular") & "', noticia='" & Request("noticia") & "'where id like'" & Request.QueryString("id")&"'"
Set miConexion = Conexion.Execute(strSQL)
If Err.Description <> "" then
Response.Write "<B>Error en Base de Datos: " & Err.Description & "</B>"
Else
Response.Write "<FONT FACE=Verdana SIZE=2 COLOR=#0066FF><U>Les Dades modificades han sigut les següents:</U></FONT><BR><BR>"
Response.Write "Web: <B>" & Request("data") & "</B><BR>"
Response.Write "Título: <B>" & Request("Titular") & "</B><BR>"
Response.Write "Comentarios: <B>" & Request("Noticia") & "</B></FONT><BR><BR>"
End If
Set miConexion = Nothing
Set Conexion = Nothing
%>
Gracias!!!1