MakkaSoft

<% On Error Resume Next %> MakkaSoft

MakkaSoft

<% if trim(Session("UserID"))="1" Then Response.Write("تعديل الصوره") End if %>

<% if trim(Session("UserID"))="1" Then Response.Write("تعديل الصوره") end if %>

<% if trim(Session("UserID"))="1" Then Response.Write("تعديل الصوره") End if %>

<% if Session("UserID")<>"" Then Response.Write("") else Response.Write("") end if %>

" METHOD="POST" onSubmit="return ValidateData();"> <% If Session("UserID")<>"" Then Response.Write("") else Response.Write("") end if %> <% If Session("UserID")<>"" Then Response.Write("") else Response.Write("") end if %> <% if Session("UserID")="" Then Response.Write("") end if %> <% if Session("UserID")="" Then Response.Write("") end if %> <% if Session("UserID")<>"" Then 'Response.Write("") Response.Write("") else Response.Write("") end if else Response.Write("") end if %> <% if Session("UserID")="" Then Response.Write("") Response.Write("") Response.Write("") Response.Write("") end if %>

Welcome	User Name
" & Session("UserGr") & "	") Response.Write("") Response.Write("
Password
") Response.Write("") Response.Write("
تعديل بياناتى	My Account") if trim(Session("UserID"))="1" Then Response.Write(" Data Management	") Response.Write("") Response.Write("") Response.Write("
Forgot your Password
New User
<% if Request.Form("CurrForm") = "LoginForm" Then 'Open Data Base Connection ''''''' %> <% ''''''' Dim UName,UPass,UIDRs UName=Request.Form("Txt_UserName") UPass=Request.Form("Txt_UserPass") SqlStr="Select UserId From UserTbl Where UserId='" & UName & "' " Set UIDRs=CurDBConn.Execute(SqlStr) if UIDRs.EOF Then Response.Write(" Invalid user name ") Else SqlStr="Select UId,UserId,Password,FirstName,LastName From UserTbl Where UserId='" & UName & "' And Password='" & UPass & "' " Set UIDRs=CurDBConn.Execute(SqlStr) if UIDRs.EOF Then Response.Write(" Invalid password ") Else Session("UserID")=UIDRs("UId") Session("UserPass")=UIDRs("Password") Session("UserGr")=UIDRs("FirstName")&" "&UIDRs("LastName") CurDBConn.Close set CurDBConn = Nothing Response.Redirect "Index.asp" End If End If CurDBConn.Close set CurDBConn = Nothing End If %>

" METHOD="POST" onSubmit="return ValidateVote();"> <% Response.Write("") 'Open Data Base Connection ''''''' %> <% ''''''' Dim VoteHRs,VoteDRs,AVal,BVal,CVal,TotalVal SqlStr="Select * From VoteHTbl Where ActiveVote=True" Set VoteHRs=CurDBConn.Execute(SqlStr) If Not VoteHRs.EOF Then SqlStr="Select * From VoteDTbl Where VHCode= "& VoteHRs("VHCode") &" " Set VoteDRs=CurDBConn.Execute(SqlStr) If Not VoteDRs.EOF Then If Request.Form("CurrForm") = "VoteForm" And Session("VoteOnOff")=1 Then Session("VoteOnOff") = 0 Select Case Request.Form("Opt_Vote") Case 1 SqlStr="UPDATE VoteDTbl Set AnsAVal = " & VoteDRs("AnsAVal")+1 & " , AnsBVal = " & VoteDRs("AnsBVal") & " , AnsCVal = " & VoteDRs("AnsCVal") & " " Case 2 SqlStr="UPDATE VoteDTbl Set AnsAVal = " & VoteDRs("AnsAVal") & " , AnsBVal = " & VoteDRs("AnsBVal")+1 & " , AnsCVal = " & VoteDRs("AnsCVal") & " " Case 3 SqlStr="UPDATE VoteDTbl Set AnsAVal = " & VoteDRs("AnsAVal") & " , AnsBVal = " & VoteDRs("AnsBVal") & " , AnsCVal = " & VoteDRs("AnsCVal")+1 & " " End Select CurDBConn.Execute(SqlStr) CurDBConn.Close set CurDBConn = Nothing Response.Redirect "Index.asp" End If VoteDRs.Close SqlStr="Select * From VoteDTbl Where VHCode= "& VoteHRs("VHCode") &" " Set VoteDRs=CurDBConn.Execute(SqlStr) If Not VoteDRs.EOF Then TotalVal = VoteDRs("AnsAVal")+VoteDRs("AnsBVal")+VoteDRs("AnsCVal") AVal = (VoteDRs("AnsAVal")/TotalVal) * 100 BVal = (VoteDRs("AnsBVal")/TotalVal) * 100 CVal = (VoteDRs("AnsCVal")/TotalVal) * 100 End If Else If Request.Form("CurrForm") = "VoteForm" And Session("VoteOnOff")=1 Then Session("VoteOnOff") = 0 Select Case Request.Form("Opt_Vote") Case 1 SqlStr="INSERT INTO VoteDTbl(VHCode,AnsAVal,AnsBVal,AnsCVal) " SqlStr= SqlStr & "VALUES(" & VoteHRs("VHCode") & ",1,0,0)" Case 2 SqlStr="INSERT INTO VoteDTbl(VHCode,AnsAVal,AnsBVal,AnsCVal) " SqlStr= SqlStr & "VALUES(" & VoteHRs("VHCode") & ",0,1,0)" Case 3 SqlStr="INSERT INTO VoteDTbl(VHCode,AnsAVal,AnsBVal,AnsCVal) " SqlStr= SqlStr & "VALUES(" & VoteHRs("VHCode") & ",0,0,1)" End Select CurDBConn.Execute(SqlStr) End If VoteDRs.Close SqlStr="Select * From VoteDTbl Where VHCode= "& VoteHRs("VHCode") &" " Set VoteDRs=CurDBConn.Execute(SqlStr) If Not VoteDRs.EOF Then TotalVal = VoteDRs("AnsAVal")+VoteDRs("AnsBVal")+VoteDRs("AnsCVal") AVal = (VoteDRs("AnsAVal")/TotalVal) * 100 BVal = (VoteDRs("AnsBVal")/TotalVal) * 100 CVal = (VoteDRs("AnsCVal")/TotalVal) * 100 End If End If if trim(Session("UserID"))="1" Then Response.Write("") else Response.Write("") end if Response.Write("") Response.Write("") If Session("VoteOnOff")=0 Then Response.Write("") Response.Write("") Else Response.Write("") Response.Write("") End if Response.Write("") Response.Write("") If Session("VoteOnOff")=0 Then Response.Write("") Response.Write("") Else Response.Write("") Response.Write("") End If Response.Write("") Response.Write("") If Session("VoteOnOff")=0 Then Response.Write("") Response.Write("") Else Response.Write("") Response.Write("") End if Response.Write("") Response.Write("") Response.Write("") Response.Write("") 'VoteHRs.Close 'set VoteHRs=nothing 'VoteDRs.Close 'set VoteDRs=nothing End if CurDBConn.Close set CurDBConn = Nothing %>

" & VoteHRs("VHName_E") & "		" & VoteHRs("VHName_E") & "
") Response.Write(" " & Round(AVal) & " % ") Response.Write("	" & VoteHRs("AnsA_E") & "	") Response.Write(" ") Response.Write("	" & VoteHRs("AnsA_E") & "
") Response.Write(" " & Round(BVal) & " % ") Response.Write("	" & VoteHRs("AnsB_E") & "	") Response.Write(" ") Response.Write("	" & VoteHRs("AnsB_E") & "
") Response.Write(" " & Round(CVal) & " % ") Response.Write("	" & VoteHRs("AnsC_E") & "	") Response.Write(" ") Response.Write("	" & VoteHRs("AnsC_E") & "
") Response.Write(" ") Response.Write("") If Session("VoteOnOff")=1 Then Response.Write(" ") 'Response.Write(" نتائج الاستطلاع") Response.Write(" Voting Results") End If Response.Write(" ") Response.Write("

<% If Session("UserID")="1" Then Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("

") Response.Write("

You are visitor number

") Response.Write("

") Response.Write("") Response.Write(Application("VisitorsNum")) Response.Write("

") End If %>

<% If Err.Number <> 0 Then Response.Redirect "ErrorHandle.asp?ErrNo="&Err.Number&"&ErrDesc="&Err.Description End If %>