Problema con Update

[Rriveros]

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>&nbsp;" & objRS("Fecha")& "&nbsp;</td><td>&nbsp;" & objRS("Nro_llamado") & "</td><td>&nbsp;" & objRS("Hora") & "&nbsp;</td><td>&nbsp;" & objRS("Anexo") & "&nbsp;</td><td>&nbsp;" & objRS("Llamador") & "&nbsp;</td><td>&nbsp;" & objRS("Observaciones") & "&nbsp;</td><td>&nbsp;" & objRS("Duracion") & "&nbsp;</td><td>&nbsp;" & objRS("Costo") & "&nbsp;</td><td>&nbsp;" & objRS("Otros") & "&nbsp;</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")
%>

[AlZuwaga]

Riveros, podrías decirnos qué error te da?
Gracias

[Rriveros]

no coinciden los tipos

[AlexNV]

Prueba a poner un *

Select * from Ingreso_llamados where Costo = '" & Request.QueryString("Costo") &"'"

[AlZuwaga]

emmm... tenés un despelote atómico, me parece. No entendí nada de nada en el último trozo de código (donde decís que hacés el update de la BD).
Aparentemente querés actualizar el costo de un registro, obtenido de un form, cuyo costo actual pasas por URL...
Si es eso, me parece que deberías hacerlo así (siempre que el campo costo sea numérico... sinó, le agregás los apóstrofes correspondientes):



<%
Dim oConn,strSQL

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Tarifario.mdb"))

CostoActual = Request.QueryString("Costo")
CostoNuevo = Request.Form("Costo")

strSQL = "UPDATE Ingreso_llamados SET Costo = " & CostoNuevo & " where Costo = " & CostoActual
oConn.Execute(strSQL)
oConn.Close
set oConn = nothing

Response.Redirect("listado_llamados.asp")
%>

[Rriveros]

Dazuaga gracias por tu ayuda pero aún no resulta me da este error:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.

/colegio/update_llamados.asp, line 12

[AlexNV]

Yo creo que en estos casos es hacer un response.write strSQL, ver como ha compuesto la sentencia, copiarla y pegarla en el analizador de consultas de access y ver si se ejecuta, o que error te da.