ASP - insercion de datos

Hola estoy realizando una insercion de unos registros pero el asp que utilizo no me marka error pero tampoko me inserta nada en la tabla :S

este es el asp que utilizo:

<%
Dim conexion, tabla
Set conexion = Server.CreateObject("ADODB.Connection")
Set tabla = Server.CreateObject("ADODB.RECORDSET")
conexion.Open "driver={SQL Server};server=127.0.0.1; database=sdeDB; uid=sa;pwd=sa"
qry = "select sequence from _smdba_._customer_ where sequence not in (select assigntoseq from dbo.NAMSYSCSUIASSIGNS)"
set res = conexion.execute(qry)
while not res.EOF
qryMaxSeq = "select max(sequence) from dbo.[NAMSYSCSUIASSIGNS]"
set maxSeq = conexion.execute(qryMaxSeq)
for i = 1 to res.fields.count - 1
maxSeq(0) = maxSeq(0)+1
qryInsert = "INSERT INTO dbo.[NAMSYSCSUIASSIGNS] (SEQUENCE, UITYPE, HTMLSEQ, ASSIGNTYPE, ASSIGNTOSEQ) VALUES ("'',2,3002,3,"&res.fields(i-1)&")"
set ins = conexion.execute(qryInsert)
next
res.MoveNext
wend
res.close
conexion.close
%>

espero puedan ayudarme

al parecer no le estan concatenando el campo sequence, deberias hacer esto:
nextSequence = maxSeq(0)+1
qryInsert = "INSERT INTO dbo.[NAMSYSCSUIASSIGNS] (SEQUENCE, UITYPE, HTMLSEQ, ASSIGNTYPE, ASSIGNTOSEQ) VALUES (" & nextSequence & ",2,3002,3,"&res.fields(i-1)&")"

checalo y me avisas...

Si neecsitaba ingresar el sequence, como es autonumerico pense k solo se ingresaba :S.

gracias....!