Ahora, viendo tu segundo codigo, aplicaré lo mismo que al anterior
Código ASP:
Ver original<%
dim ObRS, sql
set Oconn = server.createobject("ADODB.connection")
Oconn.open "BD_SPIO"
set obrs=Server.CreateObject("ADODB.RecordSet")
'seleccionamos todos los registros de la tabla celula sin algun tipo de ordenacion
sql="select * from celula"
'ejecutamos la sentencia contra la base de datos
set ObRS= oconn.Execute(SQL)
'si alguna de las variables td_celula..... estan vacias entonces
if td_celula="" or td_equipo="" or td_descripcion= "" then
'nos movemos al siguiente registro
obrs.movenext
else
'sino, insertamos en celula los valores de las variables
sql2="insert into celula (c_celula, c_equipo, descripcion) values (td_celula, td_equipo, td_descripcion)"
end if
Set obrs = nothing
%>