ASP - CODIGO

Me puedes decir que he hecho mal? para que no me aumente el numero historia?

SQL= "SELECT MAX(NumeroHistoria) FROM Cliente"
NumeroHistoria= NumeroHistoria + 1
sql="Insert Into Cliente (NumeroHistoria,Cedula,Nombre1,Nombre2,Apellido1,Apellido2) values ('" & NumeroHistoria & "','" & Cedula & "','" & Nombre1 & "','" & Nombre2 & "','" & Apellido1 & "','" & Apellido2 & "')"

set RS = Conn.Execute(sql)

Parece que hay dos errores:
1 no ejecutastes la primera consulta ("SELECT MAX(NumeroHistoria) FROM Cliente" )
2 luego que la ejecutas y recojes el valor en un recordset (rs, por ejemplo) debes hacer NumeroHistoria= rs(0) + 1 en lugar de NumeroHistoria= NumeroHistoria + 1

otra solución es realizar el conteo en la misma consulta
ejemplo: SELECT MAX(NumeroHistoria)+1 FROM Cliente
si en numero en la base de datos es 5, cuando te muestre el resultado en tu pagina, sera 6,y si realizas la inserción se almacenara como 6, y si no realizas la insercion el numero seguira siendo 5.

eso es !