Hello

I have been stuck.
http://www.event2.aspx?12

My understanding is that you can use Request.QueryString to get "12"

But I can't get it to work.

Event1.aspx:
Dim sEventID As String = dsTestEvent.Tables("TestEvent").Rows(0)("EventID")
Dim sName As String = dsTestEvent.Tables("TestEvent").Rows(0)("Name")

lblText.Text = "<a href='https//www.event2.aspx?" & sEventID & "'>" & sName & "</a>"

Event2.aspx:

Dim dr As DataRow
        If Request.QueryString("EventID") = dr("EventID") Then
            lblevent2.Text = dr("Desc")
        End If
        lblevent2.Text = "Sorry. no match found."

I get a blank.
What am I doing wrong?

I think you should use

http://www.event2.aspx?eventid=12

Event1.aspx:
 lblText.Text = "<a href='https//www.event2.aspx?EventID=" & sEventID & "'>" & sName & "</a>"



Om Prakash

When I changed that I get error:
System.NullReferenceException: Object reference not set to an instance of an object

At:
 If Request.QueryString("EventID") = dr("EventID") Then

What is my problem???

Dim dr As DataRow
      If Request.QueryString("EventID") = dr("EventID") Then
            lblevent2.Text = dr("Desc")
        End If
        lblevent2.Text = "Sorry. no match found."

In the above code, dr("EventID") should refer to active dataset. I think this is causing problem.


Om Prakash

This is my full code:
I have 2 pages Event1.aspx and Event2.aspx?EventID=1

Event2.aspx?EventID=1:
Dim dsTestEvent As DataSet
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dsTestEvent = DB.GetTestEvent
        Me.DisplayEvent()
End Sub

Private Sub DisplayEvent()
Dim dr As DataRow
If Not dr Is Nothing Then
 If Request.QueryString("EventID") = dr("EventID") Then
                lblevent2.Text = dr("Desc")
            End If
        Else
            lblevent2.Text = "Sorry. no match found."
        End If

Now I don't get blank and I get "Sorry. no match found."


I am very new to this Request.QueryString.

In Page load didn't I retrieve the dataset from DB class?
Dataset has three columns, name, eventid, and desc.
Doesn't that mean that I loaded the dataset???
Because there is only one table in dataset I don't have to explicitly call out the datatable right?

If I loaded the dataset then why isn't Request.QueryString("EventID") = dr("EventID")?

What is wrong?
Also people recommended that I haven't set dr. Did I not?
How would I do that here??

Thank you so much. Dougbe02 (Programmer)Aug 9, 2004Event1.aspx:
Dim dsTestEvent As DataSet
Dim dsEvent As DataSet
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dsTestEvent = DB.GetTestEvent
        Me.K()
End Sub

Private Sub K()
Dim sEventID As String = dsTestEvent.Table("TestEvent").Rows(0)("EventID")
Dim sName As String = dsTestEvent.Tables("TestEvent").Rows(0)("Name")

lblText.Text = "<a href='https//www.event2.aspx?EventID=" & sEventID & "'>" & sName & "</a>"
End Sub

By the way in my DataSet there is only 1 row, EventID=1.
On Event1.aspx the link creates 'https//www.event2.aspx?EventID=1.
This is why I don't understand why in 'https//www.event2.aspx?EventID=1 page that dr doesn't match and instead I get "Sorry. no match found."

Your url's are www.event2.aspx? How did you get them to add an .aspx TLD?

I think your URL's need some work here.

Why don't you put a debug statement to print out the Request.QueryString("EventID") on screen so you can see if it's getting the information properly from the Query String.

Hal Levy
Web Developer, PDI Inc.

NOT a Wiley/Wrox Employee

Hey,

In displayevent, you don't get a row of data that I can see. Let me know if wrong. You need to get a row of data, because that routine would never be retrieved.

You need to do something like:

Private Sub DisplayEvent()
  if (dsTestEvent.Tables(0).Rows.Count > 0) then
    Dim dr As DataRow = dsTestEvent.Tables(0).Rows(0)
    If Not dr Is Nothing Then

Brian

Got it Thanks