<%dim cname,cemail,ccountry,cprovince,caddress,neducation,njob, ccityif request.form("name") = "" thendim nkol,n1,n2,n3,n4,m1,m2,m3,m4,m5,m6,s1,s2,mkolors.open "select count(id) as countid from h_answer where questid=1506 and cast(answer as nvarchar(2))',,' AND IsNull(SubsId,0)>0 " ,ConnU, 1, 1if not oRS.eof thennKol=oRS.fields("CountId")end ifoRS.closesub Nomi1(byref nKol,byref n1,byref n2,byref n3,byref n4,byref m1,byref m2,byref m3,byref m4,byref m5,byref m6,byref s1,byref s2,byref mkol)oRS.Open "select Count(id) AS CountId ,substring(cast(answer as nvarchar(2)),1,1) AS No from h_answer where questid=1506 and substring(cast(answer as nvarchar(2)),1,1)',' AND IsNull(SubsId,0)>0 group by substring(cast(answer as nvarchar(2)),1,1) order by 2" ,ConnU, 1, 1n1=0n2=0n3=0n4=0if not oRS.eof thenif oRS.fields("No")="1" thenn1=oRS.fields("CountId") oRS.MoveNext() if oRS.eof then exit subend ifif oRS.fields("No")="2" thenn2=oRS.fields("CountId") oRS.MoveNext() if oRS.eof then exit subend ifif oRS.fields("No")="3" thenn3=oRS.fields("CountId") oRS.MoveNext() if oRS.eof then exit subend ifif oRS.fields("No")="4" thenn4=oRS.fields("CountId") oRS.MoveNext() if oRS.eof then exit subend ifend ifoRS.closeend subsub Nomi2(byref nKol,byref n1,byref n2,byref n3,byref n4,byref m1,byref m2,byref m3,byref m4,byref m5,byref m6,byref s1,byref s2,byref mkol)on error resume nextoRS.closeon error goto 0oRS.Open "select Count(id) AS CountId ,substring(cast(answer as nvarchar(2)),2,1) AS No from h_answer where questid=1506 and substring(cast(answer as nvarchar(2)),2,1)',' AND IsNull(SubsId,0)>0 group by substring(cast(answer as nvarchar(2)),2,1) order by 2" ,ConnU, 1, 1m1=0m2=0m3=0m4=0m5=0m6=0if not oRS.eof thenif oRS.fields("No")="1" thenm1=oRS.fields("CountId") oRS.MoveNext() if oRS.eof then exit subend ifif oRS.fields("No")="2" thenm2=oRS.fields("CountId") oRS.MoveNext() if oRS.eof then exit subend ifif oRS.fields("No")="3" thenm3=oRS.fields("CountId") oRS.MoveNext() if oRS.eof then exit subend ifif oRS.fields("No")="4" thenm4=oRS.fields("CountId") oRS.MoveNext() if oRS.eof then exit subend ifif oRS.fields("No")="5" thenm5=oRS.fields("CountId") oRS.MoveNext() if oRS.eof then exit subend ifif oRS.fields("No")="6" thenm6=oRS.fields("CountId") oRS.MoveNext() if oRS.eof then exit subend ifend ifoRS.closeend subNomi1 nKol,n1,n2,n3,n4,m1,m2,m3,m4,m5,m6,s1,s2,mkolNomi2 nKol,n1,n2,n3,n4,m1,m2,m3,m4,m5,m6,s1,s2,mkolon error resume nextoRS.closeon error goto 0if nSubsId & "" = "" then elseoRS.Open "SELECT * FROM H_Subscribe WHERE Id=" & nSubsId ,ConnU, 1, 1if not oRS.eof thencName = oRS.fields("Name") & " " & oRS.fields("FName")cEmail = oRS.fields("Email")cCountry = oRS.fields("Country")cProvince = oRS.fields("Province")cAddress = oRS.fields("Address")nEducation = oRS.fields("Education")nJob = oRS.fields("JobType")end ifoRS.closeend if%>

بسمه تعالی بخش ورزشی تبیان در نظر دارد با  توجه به نتایج اخیر تیم ملی و اظهار نظر های متفاوت در خصوص تغییر کادر مربیگری تیم ملی نظر سنجی زیر را برای کاربران تبیان برگزار کند،  تا با انعکاس نظرات عموم جامعه بتواند انتقال دهنده افکار آنان باشد . - با سر مربی بودن برانکو در جام جهانی : 1) موافقم 2) مخالفم 3) حضور مربی داخلی 4) حضور مربی خارجی  - با کدام یک از گزینه های زیر موافق هستید : 1) اگر مطبوعات ، رسانه ها ، مردم و فدراسیون از برانکو حمایت قاطع بکنند وی بهتر است بماند . 2) برانکو در شرایط فعلی و در کمبود وقت بهترین شناخت را دارد و بهترین گزینه است . 3) تقویت کادر فنی و اضافه شدن یک مربی ایرانی . 4) برانکو بماند اما کادر فنی او تغییرکند و تقویت شود . 5) اگر امکان این باشد که به جای  برانکو مربی بزرگتری بیاید ، موافقم . 6) در حال حاضر مربی داخلی مطرحی که بهتر از برانکو باشد نداریم .  مربی پیشنهادی شما:    نام :  E-mail  کشور :  استان(ایران) :  نشانی و تلفن :  نتایج نظراتسوال دوم:  نتایج نظراتسوال اول:  گزینه اول  گزینه دوم  گزینه سوم  گزینه چهارم  گزینه پنجم  گزینه ششم  گزینه اول  گزینه دوم  گزینه سوم  گزینه چهارم

<%else'if nsubsid & "" = "" then response.enddim ctype , consdim name,email,address,tel,javab1,cdname,dateteby,javab2dim ipuserteby,httpuserteby,nameuserteby,thesql,questid , cpoldim csabegh , education , job, ntypeif request.form("sel1") "" then javab1= TRIM(request.form("Sel1")) if request.form("sel2") "" then javab1= javab1+TRIM(request.form("Sel2")) & chr(13) & chr(10)if request.form("namemo") "" then javab2= TRIM(request.form("namemo")) name=request.form("Name")email=request.form("Email")address=request.form("Address")if address = "" then address=request.form("Country")elseaddress=FindTitleBase(address)end iftel=request.form("tel")ipuserteby=request.servervariables("remote_host")httpuserteby=request.servervariables("http_user_agent")nameuserteby=Request.ServerVariables("REMOTE_USER")Set ConS = Server.CreateObject("ADODB.Connection")ConS.Open PrvSoRS.Open "SELECT TOP 1 * FROM H_Answer WHERE QuestId = 1506 AND Name='" & name & "' AND Email='" & email & "' " ,ConS , 3,3if not oRS.eof thenResponse.Write("

نام و " & " Email " & " وارد شده تکراری است

" & chr(13))Response.Write("

پیش بینی جدید جایگزین قبلی شد

" & chr(13))elseoRS.closeoRS.Open "SELECT TOP 1 * FROM H_Answer" ,ConS , 3,3oRS.addnewend ifoRS.fields("QuestId") = 1506if nSubsId & "" "" then oRS.fields("SubsId") = nSubsIdoRS.fields("Date") = dateadd("n",nMinute,now())oRS.fields("Name") = replaceText(name)oRS.fields("Email") = replaceText(email)oRS.fields("Province") = replaceText(address)oRS.fields("Address") = replaceField(tel)oRS.fields("Answer") = replaceText(javab1)if nVId & "" "" then oRS.fields("VId") = nVIdelseoRS.fields("httpUser")=replaceField(chttpUser)oRS.fields("IPUser") = replaceField(cIPUser)end ifoRS.updateoRS.closeoRS.Open "SELECT TOP 1 * FROM H_Answer WHERE QuestId = 1508 AND Name='" & name & "' AND Email='" & email & "' " ,ConS , 3,3if not oRS.eof thenelseoRS.closeoRS.Open "SELECT TOP 1 * FROM H_Answer" ,ConS , 3,3oRS.addnewend ifoRS.fields("QuestId") = 1508if nSubsId & "" "" then oRS.fields("SubsId") = nSubsIdoRS.fields("Date") = dateadd("n",nMinute,now())oRS.fields("Name") = replaceText(name)oRS.fields("Email") = replaceText(email)oRS.fields("Province") = replaceText(address)oRS.fields("Address") = replaceField(tel)oRS.fields("Answer") = replaceText(javab2)if nVId & "" "" then oRS.fields("VId") = nVIdelseoRS.fields("httpUser")=replaceField(chttpUser)oRS.fields("IPUser") = replaceField(cIPUser)end ifoRS.updateoRS.closeresponse.write("

کاربر گرامی : اطلاعات شما دریافت شد .

")end if%>