[ASP.Net] Probleem met Sessie-variabele

[Verwijderd]

Oke eerst de code:

code:

Sub Page_Load(sender As Object, e As EventArgs)

If Request.QueryString("id") = "" then
    Response.Redirect("default.aspx")
End If
           Dim myOLEDBConnection As new OLEDBConnection
          Dim myOLEDBCommand As OLEDBCommand
          Dim myDataReader As OLEDBDataReader
          Dim strConn as String ="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("\bin\games.mdb") & ";"
          Dim strSQL as String ="SELECT * FROM Reviews WHERE pkGameID = " & Request.QueryString("id")
          Dim myConnection= New OLEDBConnection(strConn)

          Dim myCommand = New OLEDBCommand(strSQL, myConnection)
           myConnection.Open()
     myDataReader = myCommand.ExecuteReader()
     Dim down as string
     dim result as string
     While MyDatareader.Read
Label1.Text = ".::" & MydataReader.Item("Soort") & "::" & Mydatareader.item("Titel") & "::."

Label2.Text = "<h3>" & mydatareader.item("Titel") & "</h3>"
If mydatareader.item("Soort") = "Review" OR mydatareader.item("Soort") = "Preview" Then
result = "<br>Genre: " & mydatareader.item("Genre") & "<br>Release: " & mydatareader.item("Release") & "<br>Platform: " & mydatareader.item("Platform")
If mydatareader.item("Platform") = "PC" Then
result = result & "<br>Systeemeisen: " & mydatareader.item("Systeemeisen")
End If
result = result & "<br>Producent: " & mydatareader.item("Producent")
End IF
Label2.text = label2.text & result
label2.text = label2.text & "<br><br>" & mydatareader.item("Beschrijving")
result = ""
If mydatareader.item("Soort") = "Review" OR mydatareader.item("Soort") = "Preview" Then
result = "<br>Graphics: " & cstr(mydatareader.item("Graphics")) & "/25<br>Geluid: " & cstr(mydatareader.item("Sound")) & "/25<br>Gameplay: " & cstr(mydatareader.item("Gameplay")) & "/25<br>Geluid: " & cstr(mydatareader.item("Inhoud")) & "/25<br><b>Totaal: " & cstr(mydatareader.item("Sound")+mydatareader.item("Graphics")+mydatareader.item("Inhoud")+mydatareader.item("Gameplay")) & "/100</b>"
End If
Label2.text = label2.text & result

     End While
     If label2.text = "" Then
response.redirect("default.aspx")
End If
 MyConnection.Close()
 ' Label3.text = "<h3>Screens:</h3><br><a href=""uploadscreen.aspx?id=" & request.QueryString("id") & """><b>Upload een afbeelding!</b></a>
 Dim sConnstr1 As String

    Dim myOLEDBConnection1 As new OLEDBConnection
            Dim myOLEDBCommand1 As OLEDBCommand
           Dim myDataReader1 As OLEDBDataReader
            Dim strConn1 as String ="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("\bin\games.mdb") & ";"
            Dim strSQL1 as String ="SELECT * FROM Screens WHERE GameID = " & cint(Request.QueryString("id"))
             Dim myConnection1= New OLEDBConnection(strConn1)
            myConnection1.Open()
             Dim myCommand1 = New OLEDBCommand(strSQL1, myConnection1)
             myDataReader1 = myCommand1.ExecuteReader()

             While myDataReader1.Read
Label3.text = label3.text & "<br><a href=""viewscreen.aspx?id=" & cstr(mydatareader1.item("pkScreenID")) & """ target=kk>Klik hier voor screenshot</a>"

   End While



             myDataReader1.Close()
             myConnection1.Close()
 Dim sConnstr2 As String

    Dim myOLEDBConnection2 As new OLEDBConnection
            Dim myOLEDBCommand2 As OLEDBCommand
           Dim myDataReader2 As OLEDBDataReader
            Dim strConn2 as String ="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("\bin\games.mdb") & ";"
            Dim strSQL2 as String ="SELECT * FROM Comments WHERE GameID = " & cint(Request.QueryString("id"))
             Dim myConnection2= New OLEDBConnection(strConn2)
            myConnection2.Open()
             Dim myCommand2 = New OLEDBCommand(strSQL2, myConnection2)
             myDataReader2 = myCommand2.ExecuteReader()
Label4.Text = "<h3>Comments:</h3><br>"
             While myDataReader2.Read
Label4.text= label4.text & "<br><h7>" & mydatareader2.item("Poster") & " - " & mydatareader2.item("Datum") & " " & mydatareader2.item("Tijd") & "</h7><br><b>" & mydatareader2.item("Titel") & "</b><br>" & mydatareader2.item("Inhoud")
   End While



             myDataReader2.Close()
             myConnection2.Close()
             If Session("Username") = "" Then
             Titel.enabled = false
             Commentaar.enabled = false
             Button1.enabled=false
             End If
  If Session("Username") <> "" Then ' iere ga et over!!!!
             Titel.enabled = true
             Commentaar.enabled = true
             Button1.enabled = true
             End If

     End Sub

     Sub Button1_Click(sender As Object, e As EventArgs)
If Request.QueryString("id") = "" then
    Response.Redirect("default.aspx")
End If
If Titel.text = "" Or Commentaar.text = "" Or session("Username") = "" Then
Exit Sub
End If

End Sub

Nu zou deze code dus eerst moete leze uit een databse en dat wergeven en dan de mogelijkheid geven om commentaar toe te voegen (à la tweakers), je kan alleen commentaar toevoegen als ge bent ingelogd en je dus een session("username") hebt. Als je deze niet hebt zijn de tekstvakken gedisabled!
Nu mijn probleem is dat deze bij mij altijd gedisabled zijn
Het kan mijn pc alleen zijn ik weet het niet
plz try it @ http://forpex.www1.dotnetplayground.com/nieuw/?page=/gamez/
(eerst moete je je inschrijven om te testen @ http://forpex.www1.dotnet.../nieuw/?page=/signup.aspx

[ Voor 17% gewijzigd door Verwijderd op 02-01-2003 13:21 . Reden: domme phpkleurtjes :d ]

[gorgi_19]

* gorgi_19 wordt stapeldol van alle kleurtjes...

Zou je sowieso iets beter kunnen indenten.. (inspringen) En code=php vervangen door gewoon code=VB.Net? PHP gaat anders met de kleurtjes om dan VB.Net
Imho liever geen kleurtjes dan deze kleurplaat..

En kan je voor volgende keer ook een iets betere titel nemen, welke de lading dekt?

1. Waarom gebruik je vanaf 84 geen If then else-constructie, maar 2x een if then?
2. Wat is het nut van regel 64
3. Waar wordt je Session gevuld?
Maar wat is deze waarde? Zet hem eens op het scherm of gebruik een trace om te kijken of deze uberhaupt gevuld is.
4. Label3.text = label3.text & "blaat" is een beetje slordig
Beter is: Label3.text &= "blaat"
5. De sub van 97 is volstrekt nutteloos, aangezien het Page_Load event eerder voorkomt. Verder spring je uit een sub, terwijl er daarna sowieso niets meer voorkomt.
6. Session("blaat") hoeft niet per se "" te zijn; hij kan ook Nothing zijn.
7. Uberhaupt de constructie van 45 t/m 58 vind ik een beetje vreemd; een datalist / datagrid zou hier ook perfect inpassen. Zelfde geldt voor 66 t/m 78
en 19 t/m 37
8. In het kader van miepen: regel 49: int32.parse is efficienter dan cint
9. Als je het heel netjes met inloggen wil oplossen, kijk dan eens naar Forms Authentication

[ Voor 174% gewijzigd door gorgi_19 op 02-01-2003 13:17 ]

[DeverauX]

Beide links werken niet en denk je eerlijk gezegd niet dat mensen iets beters te doen hebben dan eerst een hele registratie-procedure te doorlopen om jou probleem op te lossen?
Als het bij jou niet werkt is de kans klein dat het bij mij wel werkt.

Zit het hem niet in session("username") en session("Username") ??

[ Voor 13% gewijzigd door DeverauX op 02-01-2003 13:03 ]

[Verwijderd]

Links werken wel bij mij
Session("Username") wordt gevuld door login.aspx en die werkt perfect (te zien aan mijn forum e.d.

1. Waarom gebruik je vanaf 84 geen If then else-constructie, maar 2x een if then?
2. Wat is het nut van regel 64
3. Waar wordt je Session gevuld?
4. Label3.text = label3.text & "blaat" is een beetje slordig
Beter is: Label3.text &= "blaat"
5. De sub van 97 is volstrekt nutteloos, aangezien het Page_Load event eerder voorkomt. Verder spring je uit een sub, terwijl er daarna sowieso niets meer voorkomt.
6. Session("blaat") hoeft niet per se "" te zijn; hij kan ook Nothing zijn.
7. Uberhaupt de constructie van 45 t/m 58 vind ik een beetje vreemd; een datalist / datagrid zou hier ook perfect inpassen. Zelfde geldt voor 66 t/m 78
en 19 t/m 37
8. In het kader van miepen: regel 49: int32.parse is efficienter dan cint

1. Het 2de deel is er gewoon ff bijgeflanst, ik stroomlijn mijn code later wel
2. Gewoon mijn 2de datareader definieren zo kan ik de eerste verwijderen en de 2de toch nog laten werken
3. login.aspx
4. zie 1.
5. Gewoon vorr de zekerheid dubbelchecken zodat het niet gewoon daaraanligt dat de pagina niet werkt, en btw daar komt mijn code voor toe te voegen aan de database!
6. daar kan het dus aan liggen! thx ff checken eindelijk iets waarmee ik iets kan aanvangen!
7. ik heb gewoon mijn forum code een beetje aangepast hiervoor, hij moet gewoon alles wergeven, de opmaak is voor een vriend :d
8. I'll keep that in mind!

[gorgi_19]

Je zit toch wel in dezelfde application (application !=website / server) te werken, en niet in twee verschillende?

Sowieso iets om misschien nog even door te nemen:
Netjes coden

[ Voor 77% gewijzigd door gorgi_19 op 02-01-2003 13:30 ]

[Verwijderd]

Ben nogal lui om alles mooi te plaatsen
Maar nu werkt het soms de ene werkt ie perfect en de andere keer gewoon niet...
De code wwerkt, mss ligt het gewoon aan mijn pc, ik zal enkele virenden de pagina laten testen en zien wat er gebeurt!