راهنما

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

<%else'if nsubsid & "" = "" then response.end'dim name,email,address,tel,javab1,cdname,datetebyif 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 ifdim ctype , consdim name,email,address,tel,javab1,cdname,datetebydim ipuserteby,httpuserteby,nameuserteby,thesql,questid , cpoldim csabegh , education , job, ntypeif request.form("a1") "" then javab1= TRIM(request.form("a1")) else javab1= javab1+TRIM(0) end ifif request.form("a2") "" then javab1= javab1+TRIM(request.form("a2")) else javab1= javab1+TRIM(0) end ifif request.form("a3") "" then javab1= javab1+TRIM(request.form("a3")) else javab1= javab1+TRIM(0) end ifif request.form("a4") "" then javab1= javab1+TRIM(request.form("a4")) else javab1= javab1+TRIM(0) end ifif request.form("a5") "" then javab1= javab1+TRIM(request.form("a5")) else javab1= javab1+TRIM(0) end ifif request.form("a6") "" then javab1= javab1+TRIM(request.form("a6")) else javab1= javab1+TRIM(0) end ifif request.form("a7") "" then javab1= javab1+TRIM(request.form("a7")) else javab1= javab1+TRIM(0) end ifif request.form("a8") "" then javab1= javab1+TRIM(request.form("a8")) else javab1= javab1+TRIM(0) end ifif request.form("a9") "" then javab1= javab1+TRIM(request.form("a9")) else javab1= javab1+TRIM(0) end ifif request.form("a10") "" then javab1= javab1+TRIM(request.form("a10")) else javab1= javab1+TRIM(0) end ifif request.form("a11") "" then javab1= javab1+TRIM(request.form("a11")) else javab1= javab1+TRIM(0) end ifname=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 PrvS'oRS.Open "SELECT TOP 1 * FROM H_Answer WHERE QuestId = 1589 AND SubsId='" & nSubsId & "' " ,ConS , 3,3oRS.Open "SELECT TOP 1 * FROM H_Answer WHERE QuestId = 1683 AND Name='" & name & "' AND Email='" & email & "' " ,ConS , 3,3if not oRS.eof thenResponse.Write("

مشخصات وارد شده تکراری است

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

اطلاعات جدید جایگزین قبلی شد

" & chr(13))elseoRS.closeoRS.Open "SELECT TOP 1 * FROM H_Answer" ,ConS , 3,3oRS.addnewend ifoRS.fields("QuestId") = 1683if 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)'oRS.fields("IsSavePrize")=1'oRS.fields("IsCorrect")=1if nVId & "" "" then oRS.fields("VId") = nVIdelseoRS.fields("httpUser")=replaceField(httpuserteby)oRS.fields("IPUser") = replaceField(ipuserteby)end ifoRS.updateoRS.closeresponse.write("

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

")end if%>