Tengo una tabla con 4 campos:
Idtribuna= Autonumerico
Articulo= Texto
Exposicion= Memo
Tiempo= Fecha
Una pagina envia a traves de l a barra de navegacion del explorador el valor de idtribuna de esta forma
http://localhost/web/probar11.asp?idtribuna=3
a esta pagina con la que pretendo modificar o borrar los datos de la base de datos.
Si decido borrar los datos me funciona, pero si decido modificar los datos me aparece este error:
· Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis (falta operador) en la expresión de consulta '25/07/2003 22:15:45'.
/forojb/probar11.asp, line 61
· Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)
· Página:
POST 86 bytes to /forojb/probar11.asp
· Datos de POST:
articulo=juan&exposicion=moreno&tiempo=25%2F07%2F2 003+22%3A15%3A45&Save.x=20&Save.y=13
¿Por qué me da ese error?
<%@ LANGUAGE = "VBScript" %>
<!-- #include file="db.asp" -->
<!-- #include file="configuracion.asp" -->
<!-- #include file="functions.asp" -->
<%
idtribuna=valid_sql(request.querystring("idtribuna "))
estado=request.querystring("estado")
edicioncompleta=false
if not(idtribuna=null and idtribuna="" and not(isnumeric(idtribuna))) then
'Obtener los detalles relevantes del articulo
set rsidtribuna=db.execute("SELECT * FROM tribuna WHERE idtribuna = " & idtribuna)
if rsidtribuna.eof then
response.redirect("probar10.asp?mensage=" & Server.URLEncode("Ese articulo no existe."))
end if
idtribuna=rsidtribuna("idtribuna")
articulo=rsidtribuna("articulo")
exposicion=rsidtribuna("exposicion")
tiempo=rsidtribuna("tiempo")
if estado="delete" and idtribuna<>"" then
db.execute("delete * from tribuna where idtribuna=" & idtribuna)
editarmensage="El articulo ha sido eliminado con exito"
edicioncompleta=true
elseif estado="delete" and idtribuna="" then
editarmensage="Ha ocurrido un error al eliminar el articulo"
edicioncompleta=true
end if
if estado="save" then
idtribuna=request.querystring("idtribuna")
articulo=request.form("articulo")
exposicion=request.form("exposicion")
tiempo=request.form("tiempo")
if not(isnumeric(idtribuna)) then
mensage=mensage & "<br>No se ha introducido idtribuna."
end if
if articulo="" or articulo=null or len(articulo)>255 then
mensage=mensage & "<br>Necesitas introducir un articulo."
end if
if exposicion="" or exposicion=null then
mensage=mensage & "<br>Necesitas introducir una exposicion."
end if
if tiempo="" or tiempo=null then
mensage=mensage & "<br>Necesitas introducir el tiempo."
end if
if mensage="" then
'Comprobar si es una modificacion o una nueva inserccion
if idtribuna=null or idtribuna="" then
'insertar
sql="insert into tribuna (articulo, exposicion, tiempo"
db.execute(sql)
else
end if
sql="update tribuna set articulo='" & valid_sql(articulo) & "', exposicion='" & valid_sql(exposicion) & "', tiempo=" & valid_sql(tiempo) &" where idtribuna=" & valid_sql(idtribuna)
db.execute(sql) ‘ ESTA ES LINEA 61
end if
editarmensage="Detalles del articulo guardados."
edicioncompleta=true
end if
%>
<html>
<head>
<title>
Administración
</title>
<body bgcolor="<%= bgcolor %>" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" text="<%= text %>" alink="<%= color3 %>" link="<%= color3 %>" vlink="<%= vlink %>">
<font face="arial">
<table>
<%
if not(idtribuna=null and idtribuna="" and not(isnumeric(idtribuna))) then
%>
<td valign=top align=left>
<p align="left">
<br>
<td valign=top align=right width=100>
<% end if %>
<p>
</td>
<td>
<% if edicioncompleta then %>
<%= editarmensage %>
<% else %>
<form action="probar11.asp?estado=save&idtribuna=<%= idtribuna %>" method=post>
<table cellspacing=0 cellpadding="0" border="0">
<tr>
<td>
</td>
<td>
<font face="helvetica" size="6" color="<%= colortexto %>">
<p align="left">
<%if idtribuna=null or idtribuna="" then %>
<b>Añadir articulo</b>
<%else %>
<b>Editar articulo</b>
<br>
<font face="<%= fontface %>" size="2" color="<%= text %>">
<%end if %>
<%=mensage %>
<br>
<br>
</td>
</tr>
<tr>
<td align=right valign="top">
<font face="helvetica" size="2" color="<%= colortexto %>"
<p align="left"><b>Nombre:</b> </font>
<BR>
</td>
<td align=left valign="top">
<font face="helvetica" size="1" color="<%= text %>">
<input size=20 name="articulo" value="<%= Server.HTMLEncode(articulo & "") %>" maxlength=100>
</td>
</tr>
<tr>
<td align=right valign="middle">
<font face="helvetica" size="2" color="<%= colortexto %>"
<p align="left"><b>Descripción:</b> </font>
<BR>
</td>
<td align=left valign="top">
<font face="helvetica" size="1" color="<%= text %>">
<textarea name="exposicion" rows=6 cols=40><%= Server.HTMLEncode(exposicion & "") %></textarea>
</td>
</tr>
<tr>
<td align=right valign="top">
<font face="helvetica" size="2" color="<%= colortexto %>"
<p align="left"><b>tiempo:</b> </font>
<BR>
</td>
<td align=left valign="top">
<font face="helvetica" size="1" color="<%= text %>">
<input size=20 name="tiempo" value="<%= tiempo %>" maxlength=100>
</td>
</tr>
<tr>
<td align=right valign="top">
<font face="helvetica" size="2" color="<%= colortexto %>"
<p align="left"><b>Imagen:</b> </font><BR></td>
</tr>
<tr>
<td align=right valign="top">
<font face="helvetica" size="2" color="<%= colortexto %>"
<p align="left"><b>Categoria:</b> </font><BR></td>
<td align=left valign="top">
<font face="helvetica" size="1" color="<%= text %>">
<%end if%>
</select>
</td>
</tr>
<tr>
</tr>
<tr>
</tr>
</table>
<br>
<center>
<input type=image src="../imagenes/guardar.gif" alt="Guardar" name="Save" border=0>
<% if idtribuna<>"" then %>
<a href="probar11.asp?estado=delete&idtribuna=<%= idtribuna %>"><img src="imagenes/deletebutton.gif" border=0 alt="Delete"></a>
</form>
<% end if %>
<% end if %>
</td>
</table>
</body>
</html>
<%
db.close
set db=nothing
%>