Hola, supongo que lo que voy a preguntar es una tontera pero en este monento estoy totalmente bloqueado y no me sale el actualizar un registro de la BD a continuación les muestro el codigo:
Muestro el Listado:
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR><td bgcolor=#cccccc>FECHA<TD bgcolor=#cccccc>NUMERO LLAMADO </TD><TD bgcolor=#cccccc>HORA </TD><TD bgcolor=#cccccc> ANEXO </TD><TD bgcolor=#cccccc> LLAMADO SOLICITADO POR </TD><TD bgcolor=#cccccc> OBSERVACIONES </TD><TD bgcolor=#cccccc> DURACION </TD><TD bgcolor=#cccccc> COSTO </TD><TD bgcolor=#cccccc> OTROS </TD><TD bgcolor="#0066FF"><font color="#FFFFFF">Agregar costo</font></TD><TD bgcolor="#FF0000"><font color="#FFFFFF">Borrar</font></TD></TR>
<%
while (not objRS.Eof)
Response.Write("<tr><td> " & objRS("Fecha")& " </td><td> " & objRS("Nro_llamado") & "</td><td> " & objRS("Hora") & " </td><td> " & objRS("Anexo") & " </td><td> " & objRS("Llamador") & " </td><td> " & objRS("Observaciones") & " </td><td> " & objRS("Duracion") & " </td><td> " & objRS("Costo") & " </td><td> " & objRS("Otros") & " </td><td><a href=""agrtarifa.asp?Costo=" & objRS("Costo") & """>Agregar</a></td><td><a href=""borra_llamados.asp?id=" & objRS("id") & """>Borrar</a></td></tr>")
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>
ingreso el nuevo valor:
<Form method="POST" action="update_llamados.asp?Valor=Costo">
<td> <input type="text" name="Valor" size="5"></td>
<INPUT TYPE="submit" VALUE="Grabar">
</FORM>
Hago el Update al registro de la BD:
<%
Dim oConn,strSQL,rst
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Tarifario.mdb"))
strSQL = "Select from Ingreso_llamados where Costo = '" & Request.QueryString("Costo") &"'"
Valor=Request.Form("Costo")
strSQL("Costo") = Costo
oConn.Execute(strSQL)
oConn.Close
set oConn = nothing
Response.Redirect("listado_llamados.asp")
%>