

Cita:
strSQL = "exec insencuesta '"&pregunta&"',1"
set Rs = conn.execute(strSQL)
strSQL7 = "select top 1 * from encuesta order by idencuesta desc"
set Rs7 = conn.execute(strSQL7)
dim res
do while res = 0 to 5
res = res + 1
respuesta = request.Form("p" & res)
if not respuesta = "" then
strSQL8 = "exec inspregunta '"&respuesta&"',"&rs7("idencuesta")&""
'response.Write(strSQL8)
'response.End
set Rs8 = conn.execute(strSQL8)
end if
res.movenext
loop
la duda esta en donde ago el ciclo con la variable "res" nose si este vien la sintaxix pero ya lo cale de varias formas y creo que esta es la mas correcta.strSQL = "exec insencuesta '"&pregunta&"',1"
set Rs = conn.execute(strSQL)
strSQL7 = "select top 1 * from encuesta order by idencuesta desc"
set Rs7 = conn.execute(strSQL7)
dim res
do while res = 0 to 5
res = res + 1
respuesta = request.Form("p" & res)
if not respuesta = "" then
strSQL8 = "exec inspregunta '"&respuesta&"',"&rs7("idencuesta")&""
'response.Write(strSQL8)
'response.End
set Rs8 = conn.execute(strSQL8)
end if
res.movenext
loop
si nesecita mas informacion por favor diganme