<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file="dbcustom.inc" -->
<!-- #include file="config.inc" -->
<!-- #include file="functions.inc" -->
<%
stage=request.querystring("stage")
ccliente=request.form("cliente")
caccion=request.form("accion")
cfecha=request.form("fecha")
if cfecha=null or cfecha="" then
 cfecha=date()
end if
xday = Right("00" & Day(Date), 2)
xmonth = Right("00" & Month(Date), 2)
xyear = Right("00" & Year(Date), 4)
xdate=xyear&xmonth&xday 
Dim Rsfore0 
Dim Sqlfore0

set Rsfore0=dbsql3.execute("SELECT * FROM forecast WHERE id=49")
 '************** Transfer
 xday2 = Right("00" & Rsfore0("month"), 2)
 xmonth2 = Right("00" & Rsfore0("forecast"), 2)
 xyear2 = Right("00" & Rsfore0("year"), 4)
 xdate2=xyear2&xmonth2&xday2 

''''''''''''''''''''''''''''''''''''''
If xdate>xdate2 Then
  response.write (ErrorNo1)
 else
ccalidad=request.form("calidad")
ctiempos=request.form("tiempos")
cpresentacion=request.form("presentacion")
ccantidad=request.form("cantidad")
cquejas=request.form("quejas")
catencion=request.form("atencion")
ccoment=request.form("comentarios")
csugerencia=request.form("sugerencia")
ccoment2=request.form("ccoment2")
ccoment3=request.form("ccoment3")
ccoment4=request.form("ccoment4")
ccoment5=request.form("ccoment5")
ccorreo=request.form("ccorreo")
'clugar=request.form("clugar")
catendio=request.form("catendio")

cyear=year(cfecha)
cmes=right("0"&month(cfecha),2)
cdia=right("0"&day(cfecha),2)
dfecha=cyear&cmes&cdia

Dim aencab
aencab = Session("encuesta1")
 
if caccion<>"xxx" then
'if stage=1 then
    Set rsencuesta = Server.CreateObject("ADODB.RecordSet")
	set rsencuesta=cnn2.execute("select * from encuesta where nombre='"&ccliente&"' and fecha='"&dfecha&"'")
	if not rsencuesta.eof then
	  response.redirect("encuestacs.asp?msg=Encuesta ya registrada")
	end if
	set rsencuesta=nothing
  	'To get custid back we have to do things a litle differently
  	Set rscustomer = Server.CreateObject("ADODB.RecordSet")
 	 ' Open the table
 	 rscustomer.Open "encuesta", strConn, adOpenKeySet, adLockPessimistic, adCmdTable
   ' Add a new record
  rscustomer.AddNew
 ' rscust("NoCte") = cnocte
  rscustomer("nombre") = ccliente
  rscustomer("semestre") = 1
  rscustomer("anno") = 2020
  rscustomer("fecha") = dfecha
  rscustomer("correo") = ccorreo
   rscustomer("fyear") = cyear
   rscustomer("fmonth") = cmes
   rscustomer("fday") = cdia
  rscustomer("calidad") = ccalidad
  rscustomer("tiempos") = ctiempos
  rscustomer("presentacion") = cpresentacion
  rscustomer("cantidad") = ccantidad  
  rscustomer("quejas") = cquejas
  rscustomer("atencion") = catencion
  rscustomer("comentarios") = ccoment  
  rscustomer("sugerencia") = csugerencia  
  rscustomer("general") = cgeneral
  rscustomer("coment2") = ccoment2
  rscustomer("coment3") = ccoment3
  rscustomer("coment4") = ccoment4
  rscustomer("coment5") = ccoment5
  rscustomer("atendio") = catendio
  ' Update the record
   rscustomer.update 

  ' Close the RecordSet
  rscustomer.Close
  Set rscustomer = Nothing
  ' response.redirect("altacte.asp")
  'session("encuesta1") = null
  'Dim aencab
 'aencab = Session("encuesta1")
 If isArray(aencab)=false Then
   ReDim aencab(1,16)
    aencab(1,0)=ccliente
    aencab(1,1)=cfecha
    aencab(1,2) = ccalidad
    aencab(1,3) = ctiempos
    aencab(1,4) = cpresentacion
    aencab(1,5) = ccantidad
    aencab(1,6) = cquejas
	aencab(1,7) = catencion
	aencab(1,8) = ccoment
	aencab(1,9) = csugerencia
    aencab(1,10) = ccoment3
    aencab(1,11) = ccoment4
    aencab(1,12) = ccoment5
	aencab(1,13) = ccorreo
	aencab(1,14) = catendio
   session("encuesta1") = aencab
 else
    aencab(1,0)=ccliente
    aencab(1,1)=cfecha
    aencab(1,2) = ccalidad
    aencab(1,3) = ctiempos
    aencab(1,4) = cpresentacion
    aencab(1,5) = ccantidad
    aencab(1,6) = cquejas
	aencab(1,7) = catencion
	aencab(1,8) = ccoment
	aencab(1,9) = csugerencia
    aencab(1,10) = ccoment3
    aencab(1,11) = ccoment4
    aencab(1,12) = ccoment5
	aencab(1,13) = ccorreo
	aencab(1,14) = catendio
    session("encuesta1")=aencab
 end if
  response.redirect("enviarcorreo.asp?correo="&ccorreo)

else
 'Dim aencab
 'aencab = Session("encuesta1")
 If isArray(aencab)=false Then
   ReDim aencab(1,16)
    aencab(1,0)=ccliente
    aencab(1,1)=cfecha
    aencab(1,2) = ccalidad
    aencab(1,3) = ctiempos
    aencab(1,4) = cpresentacion
    aencab(1,5) = ccantidad
    aencab(1,6) = cquejas
	aencab(1,7) = catencion
	aencab(1,8) = ccoment
	aencab(1,9) = csugerencia
    aencab(1,10) = ccoment3
    aencab(1,11) = ccoment4
    aencab(1,12) = ccoment5
	aencab(1,13) = ccorreo
	aencab(1,14) = catendio
   session("encuesta1") = aencab
 else
    aencab(1,0)=ccliente
    aencab(1,1)=cfecha
    aencab(1,2) = ccalidad
    aencab(1,3) = ctiempos
    aencab(1,4) = cpresentacion
    aencab(1,5) = ccantidad
    aencab(1,6) = cquejas
	aencab(1,7) = catencion
	aencab(1,8) = ccoment
	aencab(1,9) = csugerencia
    aencab(1,10) = ccoment3
    aencab(1,11) = ccoment4
    aencab(1,12) = ccoment5
	aencab(1,13) = ccorreo
	aencab(1,14) = catendio
    session("encuesta1")=aencab
 end if


end if
End If
 response.redirect("encuestacs.asp")

Rsfore0.Close
Set Rsfore0 = Nothing
'''''''''''''
%>