<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 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 ccalidad=request.form("calidad") ctiempos=request.form("tiempos") cprecios=request.form("precios") catencion=request.form("atencion") cgeneral=request.form("general") ccoment=request.form("comentarios") ccoment1=request.form("ccoment1") ccoment2=request.form("ccoment2") ccoment3=request.form("ccoment3") ccoment4=request.form("ccoment4") ccoment5=request.form("ccoment5") ccorreo=request.form("ccorreo") 'clugar=request.form("clugar") 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("fecha") = dfecha rscustomer("correo") = ccorreo rscustomer("fyear") = cyear rscustomer("fmonth") = cmes rscustomer("fday") = cdia rscustomer("calidad") = ccalidad rscustomer("tiempos") = ctiempos rscustomer("precio") = cprecios rscustomer("atencion") = catencion rscustomer("general") = cgeneral rscustomer("comentarios") = ccoment rscustomer("coment1") = ccoment1 rscustomer("coment2") = ccoment2 rscustomer("coment3") = ccoment3 rscustomer("coment4") = ccoment4 rscustomer("coment5") = ccoment5 ' 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,14) aencab(1,0)=ccliente aencab(1,1)=cfecha aencab(1,2) = ccalidad aencab(1,3) = ctiempos aencab(1,4) = cprecios aencab(1,5) = catencion aencab(1,6) = cgeneral aencab(1,7) = ccoment aencab(1,8) = ccoment1 aencab(1,9) = ccoment2 aencab(1,10) = ccoment3 aencab(1,11) = ccoment4 aencab(1,12) = ccoment5 aencab(1,13) = ccorreo session("encuesta1") = aencab else aencab(1,0)=ccliente aencab(1,1)=cfecha aencab(1,2) = ccalidad aencab(1,3) = ctiempos aencab(1,4) = cprecios aencab(1,5) = catencion aencab(1,6) = cgeneral aencab(1,7) = ccoment aencab(1,8) = ccoment1 aencab(1,9) = ccoment2 aencab(1,10) = ccoment3 aencab(1,11) = ccoment4 aencab(1,12) = ccoment5 aencab(1,13) = ccorreo 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,14) aencab(1,0)=ccliente aencab(1,1)=cfecha aencab(1,2) = ccalidad aencab(1,3) = ctiempos aencab(1,4) = cprecios aencab(1,5) = catencion aencab(1,6) = cgeneral aencab(1,7) = ccoment aencab(1,8) = ccoment1 aencab(1,9) = ccoment2 aencab(1,10) = ccoment3 aencab(1,11) = ccoment4 aencab(1,12) = ccoment5 aencab(1,13) = ccorreo session("encuesta1") = aencab else aencab(1,0)=ccliente aencab(1,1)=cfecha aencab(1,2) = ccalidad aencab(1,3) = ctiempos aencab(1,4) = cprecios aencab(1,5) = catencion aencab(1,6) = cgeneral aencab(1,7) = ccoment aencab(1,8) = ccoment1 aencab(1,9) = ccoment2 aencab(1,10) = ccoment3 aencab(1,11) = ccoment4 aencab(1,12) = ccoment5 aencab(1,13) = ccorreo session("encuesta1")=aencab end if response.redirect("encuestacs.asp") end if %>