Lugrar sumar 1 y despues realizar un insert

[Mulato]

Saludos colegas, necesito agregar una suma donde el contador me sume 1 a la cantidad de registros existentes, pero me presenta este error

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: '[string: "Select max(doc_tipo)"]'
/sistemas/refbi/data_creada.asp, line 35

He tratado de buscar y en verdad que no entiendo que pasa: Este es mi codigo...

<!-- #INCLUDE FILE="../conexiones/con_referencial_sql.asp" -->

<%

dim contar, sql

'Recogemos los valores del formulario

descrip_tipo=Request.Form("descrip_tipo")
descrip_ubicacion= Request.Form("descrip_ubicacion")
descrip_empresa= Request.Form("descrip_empresa")

'Si no escribió nada, se envía un error

IF descrip_tipo = "" and descrip_ubicacion = "" and descrip_empresa = "" then
Error = "Debe ingresar algun dato para actualizar..."
Response.Write "<font face='Verdana, Arial, Helvetica, sans-serif' size='2'>"
Response.Write error
Response.Write "<a href='javascript:history.go(-1)'>Regresar a la pagina anterior...</a>"
Response.Write "</font>"
Response.End
else
END IF

'Ejecuta un sentencia SQL de consulta

if descrip_tipo <> "" then
sql = "Select max(doc_tipo) FROM tipodocumento"
contar = sql + 1
sqltxt= "INSERT INTO tipodocumento (doc_tipo, descrip_tipo) VALUES ('" &contar& "', '" &descrip_tipo& "')"
else
end if
if descrip_ubicacion <> "" then
sqltxt= "INSERT INTO ubicacion (descrip_ubicacion) VALUES ( '" & descrip_ubicacion & "')"
else
end if
if descrip_empresa <> "" then
sqltxt= "INSERT INTO empresa (descrip_empresa) VALUES ( '" & descrip_empresa & "')"
else
end if

'Ejecutamos la orden
Set res = Cnn.Execute(sqltxt)
set RS = Cnn.Execute(sql)%>

En realidad no entiendo porque al sumas
contar = SQL + 1 me da ese error

[u_goldman]

Y si la conviertes a string antes de hacer la incersión?

contar = sql + 1
contar = cstr(contar)
sqltxt= "INSERT INTO tipodocumento (doc_tipo, descrip_tipo) VALUES ('" &contar& "', '" &descrip_tipo& "')"

je je, olvida esto, el problema te lo da en el SELECT cierto? y estoy viendo que tu campo es de tipo texto...probablemente a eso se deba, necesitaría ser un campo de tipo numérico no?


Salu2,

[Mulato]

Aja y como lo llevo a número porque uso
contar = clnt(contar) y tampoco funciona

[Ysdragil]

Eso se debe a que el valor que tienes en el campo doc_tipo es un string y no puedes poner la funcion max.
En caso de que requieras contar cuantos registros tienes en la tabla utiliza la funcion de count, la cual te manda el numero de registros de tu consulta en valor numerico.

sql = "Select COUNT(doc_tipo) FROM tipodocumento"

De esa forma en el RecordSet te manda el numero de registros que tienes y le puedes sumar el valor que quieras

[Mulato]

Saludos colegas...

Ya lo solucione, le coloque un autonúmerico en la BD pero lo que me indico Ysdragil lo usara para otra consulta porque funciono... Muchas gracias a todos...