problemas con ciclos while y consultas en asp

[mc_quake]

es string ya compadres lo solucione el problema radicaba en la fecha ya que el diaini en la primera pasada por el ciclo while llegaba a su tope y cuando se cambiaba el ejecutivo el diaini ya era igual al diafin asi que tuve que ponerlo de la siguiente forma

response.write "<table width=""100%"" height=""30%"" border=""0"">"
response.write " <tr> "
response.write " <td width=""5%"" height="""" valign=""top"">"
response.write "<table border=""0"" width=""0%"">"
response.write"<tr>"
response.write" <td><font color=#FFFFFF size=2></font>&nbsp;</td>"
response.write"</tr>"
set registros1 = conexion.execute("SELECT Valor FROM Ejecutivas Where Tipo='Back'")

Do While NOT registros1.EOF
ejec = registros1.Fields("Valor").Value

response.write"<tr>"
response.write" <td width=1% height=25 bgcolor=#FFCC66><font color=#666666 size=2><strong><div align=center>"&ejec&"</div></strong></font></td>"
response.write"</tr>"

registros1.MoveNext
Loop
response.write "</table>"
response.write"</td>"
response.write " <td width=""95%"" valign=""top"">"

set registros2 = conexion.execute("SELECT Valor FROM Ejecutivas Where Tipo='Back'")
response.write "<table border=""0"" width=""100%"">"
response.write " <tr>"
While NOT registros2.EOF
ejec = registros2.Fields("Valor")
'response.write "<table border=""0"" width=""100%"">"

while feini =< fefin
fecha = feini&"/"&Month(fechaini)&"/"&Year(fechaini)

response.write " <td width=""2%"" height=""20"" bgcolor=#FFCC66><font color=#666666 size=2><strong>"&feini&"</strong></font></td>"
feini= feini+1
Wend
response.write " </tr>"

response.write " <tr>"
Do While diaini=<diafin
set registros = conexion.execute("SELECT * FROM "&BD&" WHERE Ejecutivo = '"&ejec&"' and FechaRF = #"&Month(fechadosini)&"/"&diaini&"/"&Year(fechadosini)&"#")
cont=0
Do While NOT registros.EOF
cont = cont + 1
registros.MoveNext
Loop
If cont = 0 then
response.write "<td width=3% height=25 bgcolor=#666666><font color=#FFFFFF size=2><div align=center>---</div></font></td>"
Else
response.write "<td width=3% height=25 bgcolor=#666666><font color=#FFFFFF size=2><div align=right>"&cont&"</div></font></td>"
End If
diaini=diaini+1
Loop
response.write " </tr>"

If diaini = diafin+1 then
diaini=1
End If
registros2.MoveNext
wend
response.write "</table>"
response.write"</td>"
response.write " </tr>"
response.write "</table>"