<% Dim R11, R12, R21, R22, CntNoK, data_source, con, sql_Sel,IPAddr Dim ChP,CheckPostbackPage,NoK,NoS,dd,time CheckPostbackPage =Request.Form("R11") R11 =Request.Form("R11") R12 =Request.Form("R12") R21 =Request.Form("R21") R22 =Request.Form("R22") NoK =Request.Form("NoK") NoS = Request.Form("NoS") dd =FormatDateTime(Date, 0) 'Response.Write(date)' time =FormatDateTime(Now, 4) IPAddr = Request.ServerVariables("remote_addr") data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ Server.MapPath("acc_data/NazarSanji.mdb") sql_Sel = "Select Count(*) as Cnt From Question Where NoKarmandi = '" & NoK & "'" Set con = Server.CreateObject("ADODB.Connection") con.Open data_source 'con.Execute sql_insert' 'Response.Write(sql_Sel) ' set rsCntIp = server.createobject("adodb.recordset") rsCntIp.open sql_Sel,con CntNoK = rsCntIp.FIELDS("Cnt") 'Response.Write(CntIP)' con.Close Set con = Nothing %>
<% %>
نظرسنجي
<% 'Response.Write(ChP)' 'Response.Write(CheckPostbackPage)' 'Response.Write(now())' if CheckPostbackPage = "0" OR CheckPostbackPage = "1" then if NoK = "" OR NoS = "" then 'Response.Write("شماره كارمندي و تعداد سهام الزامي است")' else 'if CntNoK ="0" then ' Response.Redirect("NazarSanjiResult.asp?R11="&R11&"&R12="&R12&"&R21="&R21&"&R22="&R22&"&date="&dd&"&time="&time&"&NoK="&NoK& "&NoS="&NoS&"&CntNoK="&CntNoK&"" ) ' end if' end if end if %>
<% 'Response.Write(CheckPostbackPage)' 'if CheckPostbackPage = "0" OR CheckPostbackPage = "1" then' 'if CntNoK = "0" then' %>
<% 'Response.Write(ChP)' 'Response.Write(CheckPostbackPage)' if CheckPostbackPage = "0" OR CheckPostbackPage = "1" then if NoK = "" OR NoS = "" then %>
شماره كارمندي و تعداد سهام الزامي است
<% else 'if CntIp ="0" then ' Response.Redirect("NazarSanjiResult.asp?R11="&R11&"&R12="&R12&"&R21="&R21&"&R22="&R22&"&date="&dd&"&time="&time&"&NoK="&NoK& "&NoS="&NoS&"&CntNoK="&CntNoK&"" ) 'end if' end if end if %>
شماره كارمندي:
تعداد سهام :
1. آيا
بلي
خير
2.با
بلي
خير
1.با
بلي
خير
2. با
بلي
خير
<% 'end if ' 'if CntNoK <> "0" then ' %> <% 'end if' %>