Hi Could do with some help please.
I am trying to place an event on a hyperlink. When the user clicks the hyperlink I need a variable to be assigned a value so that I can check for this value later and if it's value is 1 then perform a request to the database.
Hers is my code but I am unsure whether it works as I don't have access to IIS until later.
I would really appreciate any comments. I have a website that users can view album images and album names etc. The user should be able to view the tracks associated with the album. Hope this makes sense?
Here's my code:
sub showResults
send "<TABLE BORDER=1>"
'Display information for each result in the recordset
While Not objRS.EOF
send "<tr><td><img src=images/" & objRS(5) & " alt=CD cover image></td>"
send "<td>Catalogue Ref: " & objRS(0) & "<br />"
send "Album Title: <a href='cdecho?albumid=" & objRS(0) & "'>" & objRS(1) & "onClick="HypLinkClicked = 1"></A> </a><br />"
send "Artist Name: " & objRS(2) & "<br />"
send "Release Date: " & objRS(3) & "<br />"
send "Price: " & objRS(4) & "<br />"
send "</td><tr>"
objRS.MoveNext
wend
send "</TABLE>"
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn= Nothing
end sub
I am trying to place an event on a hyperlink. When the user clicks the hyperlink I need a variable to be assigned a value so that I can check for this value later and if it's value is 1 then perform a request to the database.
Hers is my code but I am unsure whether it works as I don't have access to IIS until later.
I would really appreciate any comments. I have a website that users can view album images and album names etc. The user should be able to view the tracks associated with the album. Hope this makes sense?
Here's my code:
sub showResults
send "<TABLE BORDER=1>"
'Display information for each result in the recordset
While Not objRS.EOF
send "<tr><td><img src=images/" & objRS(5) & " alt=CD cover image></td>"
send "<td>Catalogue Ref: " & objRS(0) & "<br />"
send "Album Title: <a href='cdecho?albumid=" & objRS(0) & "'>" & objRS(1) & "onClick="HypLinkClicked = 1"></A> </a><br />"
send "Artist Name: " & objRS(2) & "<br />"
send "Release Date: " & objRS(3) & "<br />"
send "Price: " & objRS(4) & "<br />"
send "</td><tr>"
objRS.MoveNext
wend
send "</TABLE>"
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn= Nothing
end sub