asp if statements with hyperlinks

[mramsay]

Hi there,

I can't seem to find the proper syntax for my if statement when I have a list of links and depending on which link the administrator selects the mysql table will show up on the page it is redirected to.

All my links will be redirected to the same page, but I need to put in several if statements that I thought would be quite easy, but keep receiving syntax errors.

Here's my code if you can see the problem:

<%Dim conn
'Create an ADODB connection
Set conn = Server.CreateObject("ADODB.Connection")

'Open the database
conn.Open "Driver={MySQL ODBC 3.51 Driver};Server=24.79.93.78;Database=communitycentr e;UID=mona.ramsay;PWD=puke_9;"

'Execute the SQL and assign to our Recordset
set rs = Server.createobject("ADODB.recordset")


If selected = <a href="http://localhost/ValourCommunityCentre/PageItems.asp"><strong><span style="font-size: 16pt">
Community Club Table</span></strong></a><br /> then

sql = "SELECT * FROM CCtable"
end if

If selected = <a href="http://localhost/ValourCommunityCentre/PageItems.asp"><strong><span style="font-size: 16pt">
User Table</span></strong></a><br /> then
sql = "SELECT * FROM Usertable"
end if
<br />

rs.Open sql, conn

Any help would be appreciated.

M

[ilearneditonline]

Your links should be more link this. Because you need to be passing a parameter.

[HTML]<a href="http://localhost/ValourCommunityCentre/PageItems.asp?LinkChosen=club"> Community Club</a>
<a href="http://localhost/ValourCommunityCentre/PageItems.asp?LinkChosen=user"> Users</a>
[/HTML]
Then you request.querystring the "LinkChosenValue"

Dim selected, query
' get the item that was passed in the querystring.
selected = Request.QueryString("LinkChosen");
 
' i assumed you would have more than 1 or 2 links 
Select Case selected
Case "club"
query = "SELECT * FROM CCtable"
Case "user"
query = "SELECT * FROM UserTable"
Case Else
query = ""
End Select
 

[mramsay]

Hi there,

I changed my code, but now I keep receiving an error for my response.write code. It worked before, but now I receive the error.

Expected statement
/ValourCommunityCentre/PageItems.asp, line 56
<td> Response.write(x.value)</td>

This is my code:

<%Dim selected, query
' get the item that was passed in the querystring.
selected = Request.QueryString("LinkChosen")

' i assumed you would have more than 1 or 2 links
Select Case selected
Case "club"
query = "SELECT * FROM CCtable"
Case "user"
query = "SELECT * FROM UserTable"
Case Else
query = ""
End Select%>




<% rs.Open sql, conn%>


<table border="1" width="100%">

<tr>
<% for each x in rs.fields
response.write("<th>" & x.name & " </th>")
next%>

</tr>
<% do until rs.EOF

for each x in rs.fields%>

<%<td> Response.write(x.value)</td>%>
<%next
rs.movenext

loop

rs.close
conn.close
%>

</table>

I think it has something to do with my asp tags, but can't figure it out.

[bakpao]

Try

<%
Response.Write "<td>" & x.value & "</td>"
%>
 

[mramsay]

Hello,

I keep receiving an error message when I select a link it is supposed to redirect to a pageitems.asp. I will have several links, but am just testing two right now.

I am using the select caes code, but keep receiving this error:

Error Type:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/ValourCommunityCentre/PageItems.asp, line 28


Here is my code:

<%Dim conn
'Create an ADODB connection
Set conn = Server.CreateObject("ADODB.Connection")

'Open the database
conn.Open "Driver={MySQL ODBC 3.51 Driver};Server=24.79.93.78;Database=communitycentr e;UID=mona.ramsay;PWD=puke_9;"

'Execute the SQL and assign to our Recordset
set rs = Server.createobject("ADODB.recordset")%>

<%Dim selected, query
' get the item that was passed in the querystring.
selected = Request.QueryString("LinkChosen")

rs.Open sql, conn

' i assumed you would have more than 1 or 2 links
Select Case selected
Case "club"
query = "SELECT * FROM CCtable"
Case "user"
query = "SELECT * FROM UserTable"
Case Else
query = ""
End Select%>







<table border="1" width="100%">

<tr>
<% for each x in rs.fields
response.write("<th>" & x.name & " </th>")
next%>

</tr>
<% do until rs.EOF%>
<tr>
<%for each x in rs.fields

Response.Write "<td>" & x.value & "</td>"%>

<% next
rs.movenext%>

</tr>

<%loop

rs.close
conn.close
%>

</table>

Could someone please take a look at it and see why I keep receiving the error??
I've gotten over other errors, but can't seem to figure this one out.

Thanks,
Mona

[ilearneditonline]

 rs.Open sql, conn 
 
' i assumed you would have more than 1 or 2 links 
Select Case selected
Case "club"
query = "SELECT * FROM CCtable"
Case "user"
query = "SELECT * FROM UserTable"
Case Else
query = ""
End Select%>
 

Well, you are doing an rs.Open sql, conn but sql does not appear anywhere in the code you provided. I would think you really mean rs.Open query, conn. But you would need to put that after the Select Case, else it is an empty variable.

[mramsay]

Hi there,

I am still having problems with errors and can't display my page.

Now, I receive this error. I tried to debug, but can't figure it out.

ADODB.Recordset (0x800A0E78)
Operation is not allowed when the object is closed.

My code:

<%Dim conn
'Create an ADODB connection
Set conn = Server.CreateObject("ADODB.Connection")

'Open the database
conn.Open "Driver={MySQL ODBC 3.51 Driver};Server=24.79.93.78;Database=communitycentr e;UID=mona.ramsay;PWD=puke_9;"

'Execute the SQL and assign to our Recordset
set rs = Server.createobject("ADODB.recordset")%>

rs.Open query, conn

<%Dim selected, query
' get the item that was passed in the querystring.
selected = Request.QueryString("LinkChosen")



' i assumed you would have more than 1 or 2 links
Select Case selected
Case "club"
query = "SELECT * FROM CCtable"
Case "user"
query = "SELECT * FROM UserTable"
Case Else
query = ""
End Select%>







<table border="1" width="100%">

<tr>
<% for each x in rs.fields
response.write("<th>" & x.name & " </th>")
next%>

</tr>
<% do until rs.EOF%>
<tr>
<%for each x in rs.fields

Response.Write "<td>" & x.value & "</td>"%>

<% next
rs.movenext%>

</tr>

<%loop%>

<%rs.close
conn.close
%>

[markrawlingson]

<%Dim conn
'Create an ADODB connection
Set conn = Server.CreateObject("ADODB.Connection")

'Open the database
conn.Open "Driver={MySQL ODBC 3.51 Driver};Server=24.79.93.78;Database=communitycentr e;UID=mona.ramsay;PWD=puke_9;"

'Execute the SQL and assign to our Recordset
set rs = Server.createobject("ADODB.recordset")%>

rs.Open query, conn

<%Dim selected, query
' get the item that was passed in the querystring.
selected = Request.QueryString("LinkChosen")

Where is your query?

You open a connection object, then set your recordset object and open it with "query" - but "query" is set with Select Case AFTER you open your recordset. Execution of an ASP page happens from top to bottom, like you would read a book. So at the point in time that you are trying to open your recordset object "query" is null, or equal to "" - therefore you are passing an invalid, or empty, query to your database. Your recordset doesn't get opened.

<%
Dim conn 
'Create an ADODB connection
Set conn = Server.CreateObject("ADODB.Connection")
 
'Open the database
conn.Open "Driver={MySQL ODBC 3.51 Driver};Server=24.79.93.78;Database=communitycentr e;UID=mona.ramsay;PWD=puke_9;"
 
'Execute the SQL and assign to our Recordset
set rs = Server.createobject("ADODB.recordset")%>
 
Dim selected, query
' get the item that was passed in the querystring.
selected = Request.QueryString("LinkChosen")
 
' i assumed you would have more than 1 or 2 links 
Select Case selected
Case "club"
query = "SELECT * FROM CCtable"
Case "user"
query = "SELECT * FROM UserTable"
Case Else
query = ""
End Select
 
rs.Open query, conn
 
%>
 
 

I moved your recordset open statement to AFTER the query string variable is set. So...

1) your connection object is created
2) your connection object is opened
3) your recordset object is created
4) your query is set, depending on what url the visitor selected
5) your recordset object is opened and your query is passed into it to grab information from the database.

Mark

[mramsay]

Hi there,

I moved my open recordset and it worked.

Thank you very much.

Mona

[Merlin1857]

I recently had to use a select statement with 40 different outcomes where on analysis of what came back from the database I fed differing strings into a variable which displayed different buttons going to different pages displaying different messages on hover over the button. I also fed variables into the variable itself . Worked really well, let me know if you would like the code.

Steve M