Session Conflict

Question

Hello,
I build a game in asp.net with vb.
It is a simple survey. There is questions and 4 answer for each question. You can pass or 50% for once.
Some times the game conflicts. When a user plays the game in the middle of questions it jumps to an other question or begins from start again. All the data is storing in session when the user starts to play. I think the sessions are conflicting.
But i tried it with 5-6 person and it Works fine. But in my customer when they start to play with over 10 person they call me back with this situation. So what is wrong, please help me.
It is very simple within a one aspx file. I send it below.
<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" %>
<%@ Register assembly="AjaxControlToolkit" namespace="AjaxControlToolkit" tagprefix="Ajax" %>
<%@ Import Namespace="Connections" %>
<script runat="server">
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
'Server.ScriptTimeout = 9000
'Session.Timeout = 3600
Dim ID As String = Request.QueryString("id")
If ID = "" Then Response.Redirect("Oyunlar.aspx")
If Not Page.IsPostBack Then
Using Conn1 As New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
Conn1.Open()
Dim SQL As String = "SELECT Oyunlar.*, (SELECT COUNT(ID) FROM Sorular WHERE OyunID = Oyunlar.ID) AS Sorular, (SELECT COUNT(DISTINCT KatilimciPerNo) FROM Katilimcilar WHERE OyunID = Oyunlar.ID GROUP BY OyunID) AS KatilimciSayisi FROM Oyunlar WHERE Active=1 AND (getdate() BETWEEN BegDa AND EndDa) AND ID='" & ID & "'"
Dim CMD As New SqlCommand(SQL, Conn1)
Dim RS As SqlDataReader = CMD.ExecuteReader()
If RS.Read Then
If IsDBNull(RS.Item("SoruSayisi")) Then Response.Redirect("Default.aspx?id=" & Request.QueryString("id"))
lbl_Baslik.Text = RS.Item("OyunAdi")
ltr_Aciklama.Text = RS.Item("Aciklama")
lbl_Puan.Text = "0"
Timer1.Enabled = False
pnl_Start.Visible = True
Session("OynamaSayisi") = RS.Item("OynamaSayisi")
Session("SoruSayisi") = RS.Item("SoruSayisi")
Session("ToplamSure") = RS.Item("Sure")
Session("Sure") = RS.Item("Sure")
Session("Soru") = 0
Session("Puan") = 0
Session("DogruCevapSayisi") = 0
Session("Yuzde50") = True
Session("Pas") = True
Session("Sorular") = ""
Session("Cevaplar") = ""
If Session("SoruSayisi") > 0 And RS.Item("Sorular") < Session("SoruSayisi") Then Session("SoruSayisi") = RS.Item("Sorular") - 1
If Session("SoruSayisi") > 0 Then Session("SoruSayisi") += 1
If IsDBNull(RS.Item("KatilimciSayisi")) Then lbl_YarismaciSayisi.Text = 0 Else lbl_YarismaciSayisi.Text = RS.Item("KatilimciSayisi")
RS.Close()
RS = Nothing
End If
hdn_Control.Value = New Guid().ToString
Session("PageGuid") = hdn_Control.Value
End Using
lbl_Sure.Text = "SÜRE: " & MySettings.ConvertSeconds(Session("Sure"))
Else
If hdn_Control.Value <> Session("PageGuid") Then Response.Redirect("Default.aspx?id=" & Request.QueryString("id"))
End If
End Sub
Protected Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Session("Sure") > 0 Then
Session("Sure") -= 1
lbl_Sure.Text = "SÜRE: " & MySettings.ConvertSeconds(Session("Sure"))
Else
Finish()
End If
End Sub
Protected Sub btn_YeniOyun_Click(sender As Object, e As System.EventArgs) Handles btn_YeniOyun.Click
Session.Abandon()
Response.Redirect("Default.aspx?id=" & Request.QueryString("id"))
End Sub
Protected Sub btn_TekrarClick(sender As Object, e As System.EventArgs) Handles btn_Tekrar.Click
Session.Abandon()
Response.Redirect("Default.aspx?id=" & Request.QueryString("id"))
End Sub
Protected Sub btn_BaslaClick(sender As Object, e As System.EventArgs) Handles btn_Basla.Click
If Not Session("OynamaSayisi") = 99 Then
If PerNo2Name.PerNo2Name.Personel.getName(txt_PerNo.Text.ToString) = "Noname" Or PerNo2Name.PerNo2Name.Personel.getName(txt_PerNo.Text.ToString) = "" Then Response.Redirect("Default.aspx?id=" & Request.QueryString("id"))
End If
Using Conn2 As New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
Conn2.Open()
Dim CMD_Kontrol As New SqlCommand("SELECT COUNT(ID) FROM Katilimcilar WHERE OyunID='" & Request.QueryString("id") & "' AND KatilimciPerNo = '" & txt_PerNo.Text.ToString & "' AND DAY(OynamaTarihi)=DAY(getdate())", Conn2)
Session("OynamaLimiti") = CMD_Kontrol.ExecuteScalar
End Using
If Session("OynamaLimiti") >= Session("OynamaSayisi") Then
pnl_Start.Visible = False
ltr_Aciklama.Visible = False
pnl_Kota.Visible = True
Else
Using Conn3 As New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
Conn3.Open()
Dim CMD As New SqlCommand("INSERT INTO Katilimcilar(KatilimciPerNo, OyunID, IP) VALUES('" & txt_PerNo.Text.ToString & "', '" & Request.QueryString("id") & "', '" & Request.ServerVariables("Remote_addr") & "') select ID = scope_identity()", Conn3)
Session("newID") = CMD.ExecuteScalar
End Using
lbl_PerNo.Text = txt_PerNo.Text
'lbl_PerNo.Text = PerNo2Name.PerNo2Name.Personel.getName(txt_PerNo.Text)
pnl_Start.Visible = False
ltr_Aciklama.Visible = False
pnl_Step.Visible = True
Cevapla()
Timer1.Enabled = True
End If
End Sub
Protected Sub btn_CevapClick(sender As Object, e As CommandEventArgs)
If Session("Sure") = 0 Then Response.Redirect("Default.aspx?id=" & Request.QueryString("id"))
Dim btn As Button = sender
btn_Cevap1.Enabled = False
btn_Cevap2.Enabled = False
btn_Cevap3.Enabled = False
btn_Cevap4.Enabled = False
If btn.CommandArgument = True Then
btn.CssClass = "btnTrue"
Session("DogruCevapSayisi") += 1
Session("Puan") += 10
lbl_Puan.Text = Session("Puan")
Using Conn3 As New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
Conn3.Open()
Dim CMD As New SqlCommand("UPDATE Katilimcilar Set DogruCevapSayisi = '" & Session("DogruCevapSayisi") & "', Puan = '" & Session("Puan") & "' WHERE ID='" & Session("newID") & "'", Conn3)
CMD.ExecuteNonQuery()
End Using
Else
btn.CssClass = "btnFalse"
If btn_Cevap1.CommandArgument = True And btn.ID <> "btn_Cevap1" Then btn_Cevap1.CssClass = "btn_Correct"
If btn_Cevap2.CommandArgument = True And btn.ID <> "btn_Cevap2" Then btn_Cevap2.CssClass = "btn_Correct"
If btn_Cevap3.CommandArgument = True And btn.ID <> "btn_Cevap3" Then btn_Cevap3.CssClass = "btn_Correct"
If btn_Cevap4.CommandArgument = True And btn.ID <> "btn_Cevap4" Then btn_Cevap4.CssClass = "btn_Correct"
End If
btn_Pass.Enabled = False
btn_Yuzde50.Enabled = False
btn_SonrakiSoru.Enabled = True
'SESSION KONTROL EDİLİP EKRANA YAZDIRILIYOR.
'lbl_PerNo.Text = lbl_PerNo.Text & "<hr>" & Session.SessionID & "<br>"
'For Each x In Session
' lbl_PerNo.Text = lbl_PerNo.Text & x & " - " & Session(x) & "<br>"
'Next
End Sub
Protected Sub btn_PassClick(sender As Object, e As System.EventArgs) Handles btn_Pass.Click
Session("Pas") = False
Session("Soru") -= 1
Cevapla()
End Sub
Protected Sub btn_SonrakiSoruClick(sender As Object, e As System.EventArgs) Handles btn_SonrakiSoru.Click
Dim btn As Button = sender
btn.Enabled = False
Cevapla()
End Sub
Protected Sub btn_Yuzde50Click(sender As Object, e As System.EventArgs) Handles btn_Yuzde50.Click
Session("Yuzde50") = False
btn_Yuzde50.Enabled = False
If btn_Cevap1.CommandArgument = True Then
btn_Cevap2.Enabled = False
btn_Cevap2.CssClass = "btn_Disabled"
Else
btn_Cevap1.Enabled = False
btn_Cevap1.CssClass = "btn_Disabled"
End If
If btn_Cevap3.CommandArgument = True Then
btn_Cevap4.Enabled = False
btn_Cevap4.CssClass = "btn_Disabled"
Else
btn_Cevap3.Enabled = False
btn_Cevap3.CssClass = "btn_Disabled"
End If
End Sub
Protected Sub Cevapla()
If Session("Soru") < Session("SoruSayisi") - 1 Then
Session("Soru") += 1
lbl_SoruNo.Text = "SORU: " & Session("Soru") & " / " & Session("SoruSayisi") - 1
Dim SoruID = SoruGetir(Request.QueryString("id"))
Using Conn5 As New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
Conn5.Open()
Dim CMD_Soru As New SqlCommand("Select Soru FROM Sorular WHERE ID='" & SoruID & "'", Conn5)
lbl_Soru.Text = CMD_Soru.ExecuteScalar
End Using
Dim Cevap1 As String() = CevapGetir(SoruID)
btn_Cevap1.CommandName = Cevap1(0)
btn_Cevap1.Text = Cevap1(1)
btn_Cevap1.CommandArgument = Cevap1(2)
Dim Cevap2 As String() = CevapGetir(SoruID)
btn_Cevap2.CommandName = Cevap2(0)
btn_Cevap2.Text = Cevap2(1)
btn_Cevap2.CommandArgument = Cevap2(2)
Dim Cevap3 As String() = CevapGetir(SoruID)
btn_Cevap3.CommandName = Cevap3(0)
btn_Cevap3.Text = Cevap3(1)
btn_Cevap3.CommandArgument = Cevap3(2)
Dim Cevap4 As String() = CevapGetir(SoruID)
btn_Cevap4.CommandName = Cevap4(0)
btn_Cevap4.Text = Cevap4(1)
btn_Cevap4.CommandArgument = Cevap4(2)
If Session("Soru") = Session("SoruSayisi") - 1 Then btn_SonrakiSoru.Text = "Oyunu bitir" Else btn_SonrakiSoru.Text = "Sonraki Soru"
If Session("Yuzde50") = True Then btn_Yuzde50.Enabled = True Else btn_Yuzde50.Enabled = False
If Session("Pas") = True Then btn_Pass.Enabled = True Else btn_Pass.Enabled = False
btn_SonrakiSoru.Enabled = False
btn_Cevap1.Enabled = True
btn_Cevap2.Enabled = True
btn_Cevap3.Enabled = True
btn_Cevap4.Enabled = True
btn_Cevap1.CssClass = "btn_Soru"
btn_Cevap2.CssClass = "btn_Soru"
btn_Cevap3.CssClass = "btn_Soru"
btn_Cevap4.CssClass = "btn_Soru"
Else
Finish()
End If
End Sub
Protected Sub Finish()
pnl_Step.Visible = False
pnl_Complete.Visible = True
Timer1.Enabled = False
UpdatePanel2.Update()
Dim PuanSure As Double = 0
'If Session("DogruCevapSayisi") > 0 Then PuanSure = FormatNumber(Integer.Parse(Session("Sure")) * 10 / Integer.Parse(Session("ToplamSure")) * Integer.Parse(Session("DogruCevapSayisi")), 2)
If Session("DogruCevapSayisi") > 0 Then PuanSure = FormatNumber(Integer.Parse(Session("Sure")) * 0.25, 2)
Using Conn6 As New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
Conn6.Open()
Dim SQL_PuanGuncelle As String = "UPDATE Katilimcilar Set KalanSure='" & Integer.Parse(Session("Sure")) & "', Puan='" & Replace(Integer.Parse(Session("Puan")) + PuanSure, ",", ".") & "' WHERE ID='" & Integer.Parse(Session("newID")) & "'"
Dim CMD_PuanGuncelle As New SqlCommand(SQL_PuanGuncelle, Conn6)
CMD_PuanGuncelle.ExecuteNonQuery()
'Dim CMD_Siralama As New SqlCommand("SELECT SiraNo FROM (SELECT ROW_NUMBER() OVER(ORDER BY MAX(Puan) DESC) AS SiraNo, KatilimciPerNo, MAX(Puan) as Puan FROM Katilimcilar WHERE OyunID='" & Request.QueryString("id") & "' GROUP BY KatilimciPerNo) as t WHERE KatilimciPerNo='" & txt_PerNo.Text.ToString & "'", Conn.myConn)
'Dim Siralama As Integer = 1
'Siralama = CMD_Siralama.ExecuteScalar
End Using
ltr_Sonuc.Text = "<br /><br /><table align='center' cellpadding='2' style='margin-left:auto; margin-right:auto; text-align:left;'>"
'ltr_Sonuc.Text += "<tr><td>Yarışmadaki sıranız: </td><td><b>" & Siralama & "</b></td></tr>"
ltr_Sonuc.Text += "<tr><td>Toplam soru sayısı: </td><td><b>" & Session("SoruSayisi") - 1 & "</b></td></tr>"
ltr_Sonuc.Text += "<tr><td>Doğru cevap sayısı: </td><td><b>" & Session("DogruCevapSayisi").ToString & "</b></td></tr>"
ltr_Sonuc.Text += "<tr><td>Artan süre: </td><td><b>" & MySettings.ConvertSeconds(Session("Sure").ToString) & "</b></td></tr>"
ltr_Sonuc.Text += "<tr><td>Doğru sorulardan kazandığınız puan: </td><td><b>" & Session("Puan").ToString & "</b></td></tr>"
ltr_Sonuc.Text += "<tr><td>Artan süreden kazandığınız puan: </td><td><b>" & PuanSure & "</b></td></tr></table></br><hr />"
ltr_Sonuc.Text += "TOPLAM PUAN: <b>" & Integer.Parse(Session("Puan")) + PuanSure & "</b><br />"
Session.Clear()
Session.Abandon()
End Sub
Private Function SoruGetir(id As String) As String
Dim SQL_Soru As String = ""
If Len(Session("Sorular")) > 0 Then
SQL_Soru = " WHERE ID NOT IN(" & Session("Sorular") & ") AND OyunID='" & id & "'"
Else
SQL_Soru = " WHERE OyunID='" & id & "'"
End If
Using Conn7 As New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
Conn7.Open()
Dim CMD_SoruID As New SqlCommand("Select TOP 1 ID FROM Sorular" & SQL_Soru & " ORDER BY newid()", Conn7)
Dim SoruID As String = CMD_SoruID.ExecuteScalar
If Len(Session("Sorular")) > 0 Then Session("Sorular") = Session("Sorular") & ", "
Session("Sorular") = Session("Sorular") & SoruID
Session("Cevaplar") = ""
Return SoruID
End Using
End Function
Private Function CevapGetir(id As String) As String()
Dim Cevap(3) As String
Dim SQL_Cevap As String = ""
If Len(Session("Cevaplar")) > 0 Then
SQL_Cevap = " WHERE ID NOT IN(" & Session("Cevaplar") & ") AND SoruID='" & id & "'"
Else
SQL_Cevap = " WHERE SoruID='" & id & "'"
End If
Using Conn8 As New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
Conn8.Open()
Dim CMD_Cevap As New SqlCommand("SELECT TOP 1 ID, Cevap, Dogru FROM Cevaplar" & SQL_Cevap & " ORDER BY newid()", Conn8)
Dim RD As SqlDataReader = CMD_Cevap.ExecuteReader()
If RD.Read Then
Cevap(0) = RD.Item(0)
Cevap(1) = RD.Item(1)
Cevap(2) = RD.Item(2)
If Len(Session("Cevaplar")) > 0 Then Session("Cevaplar") = Session("Cevaplar") & ", "
Session("Cevaplar") = Session("Cevaplar") & RD.Item(0)
End If
RD.Close()
RD = Nothing
Return Cevap
End Using
End Function
</script>
<asp:Content ID="MyHeader" ContentPlaceHolderID="CPH_Title" Runat="Server">
<h1><asp:Label ID="lbl_Baslik" runat="server" /></h1>
<script type="text/javascript">
$(document).ready(function () {
$(document).keydown(function (e) {
if ((e.ctrlKey && (e.which == 110 || e.which == 78)) || (e.ctrlKey && (e.which == 75 || e.which==116)) || e.keyCode == 110)
{return false};
</script>
</asp:Content>
<asp:Content ID="MyContent" ContentPlaceHolderID="CPH" Runat="Server">
<asp:ScriptManager ID="ScriptManager" runat="server" EnableScriptGlobalization="true" />
<asp:Timer ID="Timer1" runat="server" Interval="1000" /><br />
<asp:UpdatePanel ID="UpdatePanel1" runat="server">
<ContentTemplate>
<asp:HiddenField id="hdn_Control" runat="server" />
<h3><asp:Literal ID="ltr_Aciklama" runat="server" /></h3>
<br /><br />
<table style="width:100%;">
<tr>
<td style="text-align:left; width:30%"><asp:Label ID="lbl_PerNo" runat="server" Font-Size="16px" /></td>
<td style="text-align:center; width:40%;"><asp:Label ID="lbl_Sure" runat="server" Font-Size="16px" /></td>
<td style="text-align:right; width:30%;"><asp:Label ID="lbl_PuanTitle" runat="server" Font-Size="16px" Text="PUAN: " /><asp:Label ID="lbl_Puan" runat="server" Font-Size="16px" /></td>
</tr>
</table>
</ContentTemplate>
<Triggers>
<asp:AsyncPostBackTrigger ControlID="Timer1" />
</Triggers>
</asp:UpdatePanel>
<hr /><br />
<asp:Panel ID="pnl_Start" runat="server" Visible="false" DefaultButton="btn_Basla">
<div style="text-align:center">
<asp:Label ID="lbl_Kota" runat="server" Text="Yarışma başlıyor!..." CssClass="lbl_Kota" /><br /><br />
Personel No
<asp:RequiredFieldValidator ID="RFV_txtPerNo" runat="server"
ControlToValidate="txt_PerNo" EnableViewState="False"
ErrorMessage="Lütfen personel numaranızı girin." SetFocusOnError="True"
ValidationGroup="PerNo" Text="*" Display="Dynamic" />
<asp:RegularExpressionValidator ID="REV_txtPerNo" runat="server"
ControlToValidate="txt_PerNo" EnableViewState="False"
ErrorMessage="Lütfen 8 haneli personel numaranızı giriniz."
SetFocusOnError="True" ValidationExpression="\d{8}?"
ValidationGroup="PerNo" Text="*" Display="Dynamic" />
<br />
<asp:TextBox ID="txt_PerNo" runat="server" MaxLength="8" AutoCompleteType="Disabled" ValidationGroup="PerNo" CssClass="txt_PerNo" />
<br /><br />
<asp:Button id="btn_Basla" runat="server" Text="Başla" ValidationGroup="PerNo" CssClass="btn_Basla" />
<br /><br />
Yarışmaya katılan sayısı: <asp:Label ID="lbl_YarismaciSayisi" runat="server" />
<asp:ValidationSummary ID="ValidationSummary" runat="server" ShowMessageBox="True" ShowSummary="False" ValidationGroup="PerNo" />
</div>
</asp:Panel>
<asp:Panel ID="pnl_Kota" runat="server" Visible="false" DefaultButton="btn_Tekrar">
<div style="text-align:center">
<h3>Üzgünüm!</h3><br /><br />
Bu günlük oynama kotanızı doldurdunuz, yarın şansınızı tekrar deneyiniz.
<br /><br />
<asp:Button id="btn_Tekrar" runat="server" Text="Tamam" CssClass="btn_Basla" />
<br /><br />
</div>
</asp:Panel>
<asp:UpdatePanel ID="UpdatePanel2" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Panel ID="pnl_Step" runat="server" Visible="false" DefaultButton="btn_SonrakiSoru">
<asp:Label ID="lbl_SoruNo" runat="server" /><br />
<h3><asp:Label ID="lbl_Soru" runat="server" /></h3><br /><br />
<div style="text-align:center">
<asp:Button ID="btn_Cevap1" runat="server" Text="Cevap 1" OnCommand="btn_CevapClick" CssClass="btn_Soru" />
<asp:Button ID="btn_Cevap2" runat="server" Text="Cevap 2" OnCommand="btn_CevapClick" CssClass="btn_Soru" />
<br />
<asp:Button ID="btn_Cevap3" runat="server" Text="Cevap 3" OnCommand="btn_CevapClick" CssClass="btn_Soru" />
<asp:Button ID="btn_Cevap4" runat="server" Text="Cevap 4" OnCommand="btn_CevapClick" CssClass="btn_Soru" />
</div>
<br /><br /><hr />
<table style="width:100%">
<tr>
<td>
<asp:Button id="btn_Yuzde50" runat="server" Text="Yüzde 50" CssClass="btn_Sub" />
<asp:Button id="btn_Pass" runat="server" Text = "Pas Geç" CssClass="btn_Sub" />
</td>
<td style="float:right"><asp:Button id="btn_SonrakiSoru" runat="server" Enabled="false" Text = "Sonraki Soru" CssClass="btn_Sub" /></td>
</tr>
</table>
</asp:Panel>
<asp:Panel ID="pnl_Complete" runat="server" Visible="false">
<div style="text-align:center">
<b>YARIŞMA SONA ERDİ.</b><br />
<asp:Literal ID="ltr_Sonuc" runat="server" /><br /><br />
<asp:Button ID="btn_YeniOyun" runat="server" Text="Yeni Oyun" CssClass="btn_Sub" /><br />
</div>
</asp:Panel>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>

Answer 1

Sure, but i think when i get the questions from sql and put them to controls conflict may happens. Is the controls unique for each session users? I dont understand what the problem is.
That is why I adviced you to visit the IIS forum. A session is a part of IIS. 
And forget the code, your question is clear enough but it is a while ago I did use it. (It is an old way of using webpages)
Currently you use mostly IsPostBack but that is then again a question for the ASP.Net forums.
http://msdn.microsoft.com/en-us/library/system.web.ui.page.ispostback(v=vs.110).aspx
Success
Cor