socorrrooooooo

doni
17 de Abril del 2002
Hola a todos.
En la bd access tengo presidente ke es booleano,y al ejecutar el codigo me dice ke no coinciden los tipos de datos . yo creo ke el problema esta en el update de presi y no se como solucionarlo.os dejo el codigo :
<%@language="vbscript"%>
<% if request.form("dni")="" or request.form("dato")="" then
response.redirect"modificar.htm"
end if %>

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<% Dim conexion,rs,id,campo,socio,sql,dato,presi
id=request.form("dni")
campo=request.form("campo")
dato=request.form("dato")
Set conexion=Server.CreateObject("Adodb.Connection")
conexion.Open"asoagro"
sql="Select * from datosasoagro"
sql1="update datosasoagro set nombre='"&dato& "' where dni='" &id&"'"
sql2="update datosasoagro set 1apellido='"&dato& "' where dni='" &id&"'"
sql3="update datosasoagro set 2apellido='"&dato& "' where dni='" &id&"'"
sql4="update datosasoagro set finca='"&dato& "' where dni='" &id&"'"
sql5="update datosasoagro set partida='"&dato& "' where dni='" &id&"'"
sql6="update datosasoagro set telefono='"&dato& "' where dni='" &id&"'"
sql7="update datosasoagro set dni='"&dato& "' where dni='" &id&"'"
sql8="update datosasoagro set fecha_de_nac='"&dato& "' where dni='" &id&"'"
sql9="update datosasoagro set domicilio='"&dato& "' where dni='" &id&"'"
sql10="update datosasoagro set presidente='"&presi&"' where dni='" &id&"'" 'problema aqui
socio=0
Set tabla=conexion.execute(sql)
do while not tabla.eof
if id=tabla("dni") then
socio=1
select case campo
case "NOMBRE"
conexion.execute(sql1)
response.write ("se ha actualizado")
case "1ºAPELLIDO"
conexion.execute(sql2)
response.write ("se ha actualizado")
case "2ºAPELLIDO"
conexion.execute(sql3)
response.write ("se ha actualizado")
case "FINCA"
conexion.execute(sql4)
response.write ("se ha actualizado")
case "PARTIDA"
conexion.execute(sql5)
response.write ("se ha actualizado")
case "TELEFONO"
conexion.execute(sql6)
response.write ("se ha actualizado")
case "DNI"
conexion.execute(sql7)
response.write ("se ha actualizado")
case "FECHA DE NAC."
conexion.execute(sql8)
response.write ("se ha actualizado")
case "DOMICILIO"
conexion.execute(sql9)
response.write ("se ha actualizado")
case "PRESIDENTE"

if dato="si" then
presi=1
end if
if dato="no" then
presi=0
end if
conexion.execute(sql10)
response.write ("se ha actualizado")
end select
end if
tabla.movenext %>
<%loop
if socio <> 1 then
response.write("este dni no est en la bd")
end if
conexion.close
set conexion=nothing
%>
</body>
</html>