<%@ LANGUAGE = "VBScript" %>
<!-- #include file="dbcustom.inc" -->
<!-- #include file="config.inc" -->
<!-- #include file="functions.inc" -->
<%
cidsurvey=request.QueryString("cidsurvey")

'**Pasar a Ver encuesta ********************
Session("encuesta2") = null
if cidsurvey<>"" then
 set rscustomer=cnn2.execute("select * from encuesta where ID="&cidsurvey)
 Dim aencab
 aencab = Session("encuesta2")
  'rscustom.movelast
 If isArray(aencab)=false Then
   ReDim aencab(1,18)
    aencab(1,0)=rscustomer("nombre")
    aencab(1,1)=rscustomer("fecha")
    aencab(1,2) = rscustomer("calidad")
    aencab(1,3) = rscustomer("tiempos")
    aencab(1,4) = rscustomer("presentacion")
    aencab(1,5) = rscustomer("cantidad")
    aencab(1,6) = rscustomer("quejas")
	aencab(1,7) = rscustomer("atencion")
    aencab(1,8) = rscustomer("comentarios")
    aencab(1,9) = rscustomer("sugerencia")
    aencab(1,10) = rscustomer("coment3")
    aencab(1,11) = rscustomer("coment4")
    aencab(1,12) = rscustomer("coment5")
	aencab(1,13) = rscustomer("correo")
	aencab(1,14) = rscustomer("atendio")
	aencab(1,15) = rscustomer("semestre")
	aencab(1,16) = rscustomer("anno")
  
   session("encuesta2") = aencab
 else
   aencab(1,0)=rscustomer("nombre")
    aencab(1,1)=rscustomer("fecha")
    aencab(1,2) = rscustomer("calidad")
    aencab(1,3) = rscustomer("tiempos")
    aencab(1,4) = rscustomer("presentacion")
    aencab(1,5) = rscustomer("cantidad")
    aencab(1,6) = rscustomer("quejas")
	aencab(1,7) = rscustomer("atencion")
    aencab(1,8) = rscustomer("comentarios")
    aencab(1,9) = rscustomer("sugerencia")
    aencab(1,10) = rscustomer("coment3")
    aencab(1,11) = rscustomer("coment4")
    aencab(1,12) = rscustomer("coment5")
	aencab(1,13) = rscustomer("correo")
	aencab(1,14) = rscustomer("atendio")
	aencab(1,15) = rscustomer("semestre")
	aencab(1,16) = rscustomer("anno")
    session("encuesta2")=aencab
 end if
  response.redirect("encuestaconsul.asp?cidsurvey="&cidsurvey)  

end if%>