Hola amigos, me ocurre casi el mismo problema.
Quiero hacer un update en un campo numerico llamado ID1 y no puedo. Si lo paso a texto en acces si me deja.
Les paso el código, alguien me puede dar una mano.
Un abrazo.
<%Function ChkString(string)
if string = "" then string = " "
ChkString = Replace(string, "'", "''")
End Function
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
%>
<%
select case Request.QueryString("mode")
case "display"
StrSql = "Select * from SEGUI11 where log=" & Request.QueryString("id")
set rs = my_conn.Execute(StrSql)
%>
<%
case "edit"
%>
<form action="profile.asp?mode=go&id=<%=Requ est.QueryString("id")%>" method="post">
<%
case "go"
StrSql = "Select * from SEGUI11 where id1='" & ChkString(Request.Form("name"))
StrSql = StrSql & "' and id1 ='" & ChkString(Request.Form("name")) & "'"
set rs = my_conn.Execute(StrSql)
if rs.bof and rs.eof then
%>
</font>
<p><font size="4">código incorrecto o inexistente<br><br>
Oprima volver y vuelva a ingresarlo <%
Response.End
else
%></font></font><font face="<% =DefaultFontFace %>" size="4">
<form action="profile.asp?mode=doit&id=<%=Re quest.QueryString("id")%>" method="post" id=form1 name=form1>
<!-- #include file="profile.inc" -->
</form>
</font><font size="4" face="Arial">
<%
end if
case "doit"
StrSQl = "Update SEGUI11 Set verificador1 = '" & chkstring(Request.Form("verificador1")) & "', "
StrSQl = StrSQl & "imagen1 ='" & ChkString(Request.Form("imagen1")) & "', "
StrSQl = StrSQl & "nota1 ='" & ChkString(Request.Form("nota1")) & "' where id1 =
StrSQl = StrSQl & ChkString(Request.Form("name")) & "'"
my_conn.Execute(strSql)
%>
