SQL query gets random image, but browser always loads same one

[Haydnw]

Hi,

I have the code below as code-behind for a page which displays two images.
My problem is with the second bit of code, commented as " 'Portfolio image
section". Basically, the SQL query gets details of a random image from an
access database. I know this works because when I run the query in access,
it picks a different image each time (or close enough). However, when I view
the .aspx page that this code-behind is for, it always picks the same image.
Can anyone please identify why this might be? I've tried deleting browser
cache etc but still no luck. Apologies for dumping huge lots of code in this
message, but I'm guessing you'll need to see it :)

Thanks very much,
Haydn
Code-behind:
=========
Imports System
Imports System.Web.UI
Imports System.Web.UI.W ebControls
Imports System.Data
Imports System.Data.Ole db
Imports System.Configur ation

Public Class GetFrontPageInf o : Inherits Page

Public objConn As OledbConnection

'Declare labels for holding information re Newest album
Public lblstrNewestArt ist As Label
Public dtmDate As DateTime
Public lblstrNewestDat e As Label
Public lnkNewestAlbum As Hyperlink
Public imgNewestImage AS Image

'Declare labels for holding information re Portfolio image
Public lblstrPortfolio Artist As Label
Public lblstrPortfolio Date As Label
Public imgPortfolioIma ge AS Image

Public Sub Page_Load(Sende r As Object, E As EventArgs)

'Newest album section
'============== ======

'SQL statement
Dim strSQL as String
strSQL= "SELECT tblEvents.strDi rectory, tblEvents.strAr tist,
tblEvents.strVe nue, tblEvents.strTo wn, tblEvents.dtmDa te FROM tblEvents
INNER JOIN sqyMaxDirOnly ON tblEvents.strDi rectory =
sqyMaxDirOnly.s trNewestDir;"

'Connection object
objConn = New
OledbConnection (ConfigurationS ettings.AppSett ings("strConnSt ring"))

'Command object
Dim objNewestComman d As New OledbCommand(st rSQL, objConn)

'Data Reader
Dim objNewestDataRe ader as OledbDataReader

'Open connection and execute command on data reader
objConn.Open()
objNewestDataRe ader = objNewestComman d.ExecuteReader ()

'Set label text to values pulled from database
'Use 'Do While Loop' so that null values are allowed
'(I know there aren't any null values but it gives an error otherwise!)
Do While objNewestDataRe ader.Read()=Tru e
imgNewestImage. ImageUrl = "images/newest/" &
objNewestDataRe ader("strDirect ory") & ".jpg"
lnkNewestAlbum. NavigateUrl = "html/album.aspx?d=" &
objNewestDataRe ader("strDirect ory")
lblstrNewestArt ist.text = objNewestDataRe ader("strArtist ")
'Need to use DateTime object to obtain correct formatting, ie
month and year only
dtmDate = objNewestDataRe ader("dtmDate")
lblstrPortfolio Date.text = dtmDate.ToStrin g("MMMM yyyy")
Loop

'Close data reader
objNewestDataRe ader.Close()
'Portfolio image section
'============== =========

'SQL statement
strSQL= "SELECT tblEvents.strDi rectory, tblEvents.strAr tist,
tblEvents.strVe nue, tblEvents.strTo wn, tblEvents.dtmDa te,
tblEvents.strAr tistWebsite, sqyRandPortImag e.strFilename FROM tblEvents
INNER JOIN sqyRandPortImag e ON tblEvents.strDi rectory =
sqyRandPortImag e.strDirectory; "

'Command object
Dim objPortCommand As New OledbCommand(st rSQL, objConn)

'Data Reader
Dim objPortDataRead er as OledbDataReader

'Execute command on data reader - connection is already open
objPortDataRead er = objPortCommand. ExecuteReader()

'Set label text to values pulled from database
'Use 'Do While Loop' so that null values are allowed
'(I know there aren't any null values but it gives an error otherwise!)
Do While objPortDataRead er.Read()=True
lblstrPortfolio Artist.text = objPortDataRead er("strArtist" )
'Need to use DateTime object to obtain correct formatting,
ie month and year only
dtmDate = objPortDataRead er("dtmDate")
lblstrNewestDat e.text = dtmDate.ToStrin g("MMMM yyyy")
'Set image path
imgPortfolioIma ge.ImageUrl = "images/albums/" &
objPortDataRead er("strDirector y") & "/" & objPortDataRead er("strFilename ") &
".jpg"
Loop

'Close data reader
objPortDataRead er.Close()

'Close connection
objConn.Close()
End Sub
End Class

[Peter Morris]

Hi

Why are you writing the DB image to disk? You should have an ASPX page
which returns the image data and sets the content type to image/jpg
--
Pete
====
Audio compression components, DIB graphics controls, FastStrings
http://www.droopyeyes.com

Read or write articles on just about anything
http://www.HowToDoThings.com

[Bart]

Forgive me, I couldn't be bothered to read all of your code, however
something that I use that may help. I place a random number in a querystring
in the image URL like this:

Dim randomNumber As New Random
....
imgNewestImage. ImageUrl = "images/newest/" &
objNewestDataRe ader("strDirect ory") & ".jpg?rnd=" & randomNumber.Ne xt(10000)

Try that for each image URL.

David
"Haydnw" <ha****@removey ahooremove.com> wrote in message
news:OZ******** ******@TK2MSFTN GP12.phx.gbl...

Hi,

I have the code below as code-behind for a page which displays two images.
My problem is with the second bit of code, commented as " 'Portfolio image
section". Basically, the SQL query gets details of a random image from an
access database. I know this works because when I run the query in access,
it picks a different image each time (or close enough). However, when I view the .aspx page that this code-behind is for, it always picks the same image. Can anyone please identify why this might be? I've tried deleting browser
cache etc but still no luck. Apologies for dumping huge lots of code in this message, but I'm guessing you'll need to see it :)

Thanks very much,
Haydn
Code-behind:
=========
Imports System
Imports System.Web.UI
Imports System.Web.UI.W ebControls
Imports System.Data
Imports System.Data.Ole db
Imports System.Configur ation

Public Class GetFrontPageInf o : Inherits Page

Public objConn As OledbConnection

'Declare labels for holding information re Newest album
Public lblstrNewestArt ist As Label
Public dtmDate As DateTime
Public lblstrNewestDat e As Label
Public lnkNewestAlbum As Hyperlink
Public imgNewestImage AS Image

'Declare labels for holding information re Portfolio image
Public lblstrPortfolio Artist As Label
Public lblstrPortfolio Date As Label
Public imgPortfolioIma ge AS Image

Public Sub Page_Load(Sende r As Object, E As EventArgs)

'Newest album section
'============== ======

'SQL statement
Dim strSQL as String
strSQL= "SELECT tblEvents.strDi rectory, tblEvents.strAr tist,
tblEvents.strVe nue, tblEvents.strTo wn, tblEvents.dtmDa te FROM tblEvents
INNER JOIN sqyMaxDirOnly ON tblEvents.strDi rectory =
sqyMaxDirOnly.s trNewestDir;"

'Connection object
objConn = New
OledbConnection (ConfigurationS ettings.AppSett ings("strConnSt ring"))

'Command object
Dim objNewestComman d As New OledbCommand(st rSQL, objConn)

'Data Reader
Dim objNewestDataRe ader as OledbDataReader

'Open connection and execute command on data reader
objConn.Open()
objNewestDataRe ader = objNewestComman d.ExecuteReader ()

'Set label text to values pulled from database
'Use 'Do While Loop' so that null values are allowed
'(I know there aren't any null values but it gives an error otherwise!) Do While objNewestDataRe ader.Read()=Tru e
imgNewestImage. ImageUrl = "images/newest/" &
objNewestDataRe ader("strDirect ory") & ".jpg"
lnkNewestAlbum. NavigateUrl = "html/album.aspx?d=" &
objNewestDataRe ader("strDirect ory")
lblstrNewestArt ist.text = objNewestDataRe ader("strArtist ")
'Need to use DateTime object to obtain correct formatting, ie
month and year only
dtmDate = objNewestDataRe ader("dtmDate")
lblstrPortfolio Date.text = dtmDate.ToStrin g("MMMM yyyy")
Loop

'Close data reader
objNewestDataRe ader.Close()
'Portfolio image section
'============== =========

'SQL statement
strSQL= "SELECT tblEvents.strDi rectory, tblEvents.strAr tist,
tblEvents.strVe nue, tblEvents.strTo wn, tblEvents.dtmDa te,
tblEvents.strAr tistWebsite, sqyRandPortImag e.strFilename FROM tblEvents
INNER JOIN sqyRandPortImag e ON tblEvents.strDi rectory =
sqyRandPortImag e.strDirectory; "

'Command object
Dim objPortCommand As New OledbCommand(st rSQL, objConn)

'Data Reader
Dim objPortDataRead er as OledbDataReader

'Execute command on data reader - connection is already open
objPortDataRead er = objPortCommand. ExecuteReader()

'Set label text to values pulled from database
'Use 'Do While Loop' so that null values are allowed
'(I know there aren't any null values but it gives an error otherwise!) Do While objPortDataRead er.Read()=True
lblstrPortfolio Artist.text = objPortDataRead er("strArtist" ) 'Need to use DateTime object to obtain correct formatting,
ie month and year only
dtmDate = objPortDataRead er("dtmDate")
lblstrNewestDat e.text = dtmDate.ToStrin g("MMMM yyyy")
'Set image path
imgPortfolioIma ge.ImageUrl = "images/albums/" &
objPortDataRead er("strDirector y") & "/" & objPortDataRead er("strFilename ") & ".jpg"
Loop

'Close data reader
objPortDataRead er.Close()

'Close connection
objConn.Close()
End Sub
End Class

[Haydnw]

Hi Pete,

Forgive me, but I don't follow. I don't write the image to disk (do I?) -
this page is for viewing images. I merely get the directory and filename of
an image from the database, concatenate them and use that to set the ImageUrl
property of an <asp:image>. If you could expand on your previous post I would
be very grateful.

Thanks,
Haydn
"Peter Morris" wrote:

Hi

Why are you writing the DB image to disk? You should have an ASPX page
which returns the image data and sets the content type to image/jpg
--
Pete
====
Audio compression components, DIB graphics controls, FastStrings
http://www.droopyeyes.com

Read or write articles on just about anything
http://www.HowToDoThings.com

[Haydnw]

Hi all,

Figured out what makes this go wrong - it's the objConn.Close() on the very
last line. However, if closing the connection here breaks my page, where is
the best place to close it? Or it is just closed automatically after the
page loads? I don't want loads of open connections to the database, do I?!

Cheers,
H
"Haydnw" <ha****@removey ahooremove.com> wrote in message
news:OZ******** ******@TK2MSFTN GP12.phx.gbl...

Hi,

I have the code below as code-behind for a page which displays two images.
My problem is with the second bit of code, commented as " 'Portfolio image
section". Basically, the SQL query gets details of a random image from an
access database. I know this works because when I run the query in access,
it picks a different image each time (or close enough). However, when I view the .aspx page that this code-behind is for, it always picks the same image. Can anyone please identify why this might be? I've tried deleting browser
cache etc but still no luck. Apologies for dumping huge lots of code in this message, but I'm guessing you'll need to see it :)

Thanks very much,
Haydn
Code-behind:
=========
Imports System
Imports System.Web.UI
Imports System.Web.UI.W ebControls
Imports System.Data
Imports System.Data.Ole db
Imports System.Configur ation

Public Class GetFrontPageInf o : Inherits Page

Public objConn As OledbConnection

'Declare labels for holding information re Newest album
Public lblstrNewestArt ist As Label
Public dtmDate As DateTime
Public lblstrNewestDat e As Label
Public lnkNewestAlbum As Hyperlink
Public imgNewestImage AS Image

'Declare labels for holding information re Portfolio image
Public lblstrPortfolio Artist As Label
Public lblstrPortfolio Date As Label
Public imgPortfolioIma ge AS Image

Public Sub Page_Load(Sende r As Object, E As EventArgs)

'Newest album section
'============== ======

'SQL statement
Dim strSQL as String
strSQL= "SELECT tblEvents.strDi rectory, tblEvents.strAr tist,
tblEvents.strVe nue, tblEvents.strTo wn, tblEvents.dtmDa te FROM tblEvents
INNER JOIN sqyMaxDirOnly ON tblEvents.strDi rectory =
sqyMaxDirOnly.s trNewestDir;"

'Connection object
objConn = New
OledbConnection (ConfigurationS ettings.AppSett ings("strConnSt ring"))

'Command object
Dim objNewestComman d As New OledbCommand(st rSQL, objConn)

'Data Reader
Dim objNewestDataRe ader as OledbDataReader

'Open connection and execute command on data reader
objConn.Open()
objNewestDataRe ader = objNewestComman d.ExecuteReader ()

'Set label text to values pulled from database
'Use 'Do While Loop' so that null values are allowed
'(I know there aren't any null values but it gives an error otherwise!) Do While objNewestDataRe ader.Read()=Tru e
imgNewestImage. ImageUrl = "images/newest/" &
objNewestDataRe ader("strDirect ory") & ".jpg"
lnkNewestAlbum. NavigateUrl = "html/album.aspx?d=" &
objNewestDataRe ader("strDirect ory")
lblstrNewestArt ist.text = objNewestDataRe ader("strArtist ")
'Need to use DateTime object to obtain correct formatting, ie
month and year only
dtmDate = objNewestDataRe ader("dtmDate")
lblstrPortfolio Date.text = dtmDate.ToStrin g("MMMM yyyy")
Loop

'Close data reader
objNewestDataRe ader.Close()
'Portfolio image section
'============== =========

'SQL statement
strSQL= "SELECT tblEvents.strDi rectory, tblEvents.strAr tist,
tblEvents.strVe nue, tblEvents.strTo wn, tblEvents.dtmDa te,
tblEvents.strAr tistWebsite, sqyRandPortImag e.strFilename FROM tblEvents
INNER JOIN sqyRandPortImag e ON tblEvents.strDi rectory =
sqyRandPortImag e.strDirectory; "

'Command object
Dim objPortCommand As New OledbCommand(st rSQL, objConn)

'Data Reader
Dim objPortDataRead er as OledbDataReader

'Execute command on data reader - connection is already open
objPortDataRead er = objPortCommand. ExecuteReader()

'Set label text to values pulled from database
'Use 'Do While Loop' so that null values are allowed
'(I know there aren't any null values but it gives an error otherwise!) Do While objPortDataRead er.Read()=True
lblstrPortfolio Artist.text = objPortDataRead er("strArtist" ) 'Need to use DateTime object to obtain correct formatting,
ie month and year only
dtmDate = objPortDataRead er("dtmDate")
lblstrNewestDat e.text = dtmDate.ToStrin g("MMMM yyyy")
'Set image path
imgPortfolioIma ge.ImageUrl = "images/albums/" &
objPortDataRead er("strDirector y") & "/" & objPortDataRead er("strFilename ") & ".jpg"
Loop

'Close data reader
objPortDataRead er.Close()

'Close connection
objConn.Close()
End Sub
End Class

[jgrant]

Do you still need help?

"Haydnw" wrote:

Hi,

I have the code below as code-behind for a page which displays two images.
My problem is with the second bit of code, commented as " 'Portfolio image
section". Basically, the SQL query gets details of a random image from an
access database. I know this works because when I run the query in access,
it picks a different image each time (or close enough). However, when I view
the .aspx page that this code-behind is for, it always picks the same image.
Can anyone please identify why this might be? I've tried deleting browser
cache etc but still no luck. Apologies for dumping huge lots of code in this
message, but I'm guessing you'll need to see it :)

Thanks very much,
Haydn
Code-behind:
=========
Imports System
Imports System.Web.UI
Imports System.Web.UI.W ebControls
Imports System.Data
Imports System.Data.Ole db
Imports System.Configur ation

Public Class GetFrontPageInf o : Inherits Page

Public objConn As OledbConnection

'Declare labels for holding information re Newest album
Public lblstrNewestArt ist As Label
Public dtmDate As DateTime
Public lblstrNewestDat e As Label
Public lnkNewestAlbum As Hyperlink
Public imgNewestImage AS Image

'Declare labels for holding information re Portfolio image
Public lblstrPortfolio Artist As Label
Public lblstrPortfolio Date As Label
Public imgPortfolioIma ge AS Image

Public Sub Page_Load(Sende r As Object, E As EventArgs)

'Newest album section
'============== ======

'SQL statement
Dim strSQL as String
strSQL= "SELECT tblEvents.strDi rectory, tblEvents.strAr tist,
tblEvents.strVe nue, tblEvents.strTo wn, tblEvents.dtmDa te FROM tblEvents
INNER JOIN sqyMaxDirOnly ON tblEvents.strDi rectory =
sqyMaxDirOnly.s trNewestDir;"

'Connection object
objConn = New
OledbConnection (ConfigurationS ettings.AppSett ings("strConnSt ring"))

'Command object
Dim objNewestComman d As New OledbCommand(st rSQL, objConn)

'Data Reader
Dim objNewestDataRe ader as OledbDataReader

'Open connection and execute command on data reader
objConn.Open()
objNewestDataRe ader = objNewestComman d.ExecuteReader ()

'Set label text to values pulled from database
'Use 'Do While Loop' so that null values are allowed
'(I know there aren't any null values but it gives an error otherwise!)
Do While objNewestDataRe ader.Read()=Tru e
imgNewestImage. ImageUrl = "images/newest/" &
objNewestDataRe ader("strDirect ory") & ".jpg"
lnkNewestAlbum. NavigateUrl = "html/album.aspx?d=" &
objNewestDataRe ader("strDirect ory")
lblstrNewestArt ist.text = objNewestDataRe ader("strArtist ")
'Need to use DateTime object to obtain correct formatting, ie
month and year only
dtmDate = objNewestDataRe ader("dtmDate")
lblstrPortfolio Date.text = dtmDate.ToStrin g("MMMM yyyy")
Loop

'Close data reader
objNewestDataRe ader.Close()
'Portfolio image section
'============== =========

'SQL statement
strSQL= "SELECT tblEvents.strDi rectory, tblEvents.strAr tist,
tblEvents.strVe nue, tblEvents.strTo wn, tblEvents.dtmDa te,
tblEvents.strAr tistWebsite, sqyRandPortImag e.strFilename FROM tblEvents
INNER JOIN sqyRandPortImag e ON tblEvents.strDi rectory =
sqyRandPortImag e.strDirectory; "

'Command object
Dim objPortCommand As New OledbCommand(st rSQL, objConn)

'Data Reader
Dim objPortDataRead er as OledbDataReader

'Execute command on data reader - connection is already open
objPortDataRead er = objPortCommand. ExecuteReader()

'Set label text to values pulled from database
'Use 'Do While Loop' so that null values are allowed
'(I know there aren't any null values but it gives an error otherwise!)
Do While objPortDataRead er.Read()=True
lblstrPortfolio Artist.text = objPortDataRead er("strArtist" )
'Need to use DateTime object to obtain correct formatting,
ie month and year only
dtmDate = objPortDataRead er("dtmDate")
lblstrNewestDat e.text = dtmDate.ToStrin g("MMMM yyyy")
'Set image path
imgPortfolioIma ge.ImageUrl = "images/albums/" &
objPortDataRead er("strDirector y") & "/" & objPortDataRead er("strFilename ") &
".jpg"
Loop

'Close data reader
objPortDataRead er.Close()

'Close connection
objConn.Close()
End Sub
End Class