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