Consultar Campo Vacio de una BD

[Wasper]

Código ASP:

var interruptor
interruptor = 0
for i=1 to 3
    DBresp.open "Select A.Idpregunta, C.Pregunta From (Respuestas A left join Posrespuesta B on (A.Idpregunta = B.Idpregunta)) left join Preguntas C on (A.Idpregunta = C.Idpregunta) Where A.Idpregunta = "& i &" and C.Idpregunta = "& i &"  Group By A.Idpregunta, C.Pregunta", Con 
    Do While not DBresp.eof'Inicia el ciclo de preguntas
        response.write "<b>Reactivo " & DBresp("Idpregunta") & ": " & DBresp("Pregunta") & "</b><br />"
        DBresp.movenext
    loop
    DBresp.Close
    
     for j=1 to 3
        Rs.Open "Select A.Idpregunta as AR, C.Idpregunta as AP, B.Idpregunta as APR, B.Posrespuesta From ((Respuestas A left outer join Posrespuesta B on (A.Idpregunta = B.Idpregunta)) left outer join Preguntas C on (A.Idpregunta = C.Idpregunta)) left join Regcontestada D on (A.Idcont = D.Idcont) Where A.respuesta = '"& j &"' and  A.Idpregunta = "& i &" and B.Punpreg = '"& j &"' and C.Idpregunta = "& i &" and D.Carrera = '"& idinst &"' Group By  A.Idpregunta, C.Idpregunta, B.Idpregunta, B.Posrespuesta Order By B.Idpregunta", Con
 
    if Not Rs.EOF Then
        response.Write(Rs("Posrespuesta")) & "</b><br />"
        f=Rs("Posrespuesta")
        Rs.movenext
        Rs.Close
        exit for
            else if Rs.EOF and interruptor = 0 Then
            response.Write("No se contestó") & "</b><br />"
                                interruptor = 1
        end if
    end if
    Rs.close                        
     Next
interruptor = 0
Next
 

Asi de pronto se me ocurre que pongas un interruptor (swicht) de esa manera puedes controlar cuantas veces quieres que entre... de todas formas te lo he colocado en sitios que he visto...