Que tal.
Lo que sucede es que las sentencias SQL las tienes que enviar por los medios correctos
.
Sería algo así.
Código:
<%
Set db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("basedatos.mdb") & ";"
db.Open DB_CONNECTIONSTRING
'Recupera valor viejo
set rsActual = Server.CreateObject("ADODB.Recordset")
SQLActual = "SELECT campo1 FROM tabla1"
rsActual.Open SQLActual,DB_CONNECTIONSTRING
campo1=rs("campo1")
valorviejo= rsActual.Fields("campo1")
'guardar valor nuevo, si lo hubieré.
dim valornuevo
valornuevo=Request.QueryString("valornuevo")
If valornuevo<>"" Then
sqlUpd = " UPDATE tabla1 SET campo1= '" & valornuevo & "' "
db.Execute sqlUpd
End If
rsActual.close
db.close
set rsActual = nothing
set db = nothing
%>
<html>
<body>
<form action="Nombre_tu_Pagina.asp" method="get">
<input type="text" value="<%=valorviejo%>" name="valorviejo" />
<input type="text" value="" name="valornuevo" />
<input type="submit" value="Guardar" />
</form>
</body>
</html>
Nota:
Nombre_tu_Pagina.asp cambiala por el nombre de tu archivo.
Más info:
http://www.w3schools.com/ado/met_conn_execute.asp http://www.w3schools.com/asp/showasp...=demo_reqquery http://www.w3schools.com/asp/
Saludos!