QueryString

[fran7]

Hi, Trying to solve a problem with no knowledge of asp.

I have a dropdown list populated from my database with card decription. The output is names like, abstract,illust ration etc.

I am sending the results to another page like so

.. html
directory.asp?PostCardID=XX
 

..
Now the request.queryst ring I presume should be something like this.

..asp
<%=request.QueryString("PostcardID")%>
 

..
But all I get is xx as output.
When someone selects from the dropdown I am trying to populate the page with all those from the database who have the same title and so am trying to get the ids.

Is there something more to this, I am sure there is.
Thanks in advance for any help.

Basically I was told I had to get the get the PostCardID into the action querystring
Richard

[fran7]

Dear Jared, The error is on the line you thought, Its the only line that you put a blank line in front and it changes the error line. What that means I dont know, as there has always been an error message on the page when it is not populated with either a search query or a caregory id from my menu.

I think what you said earlier about the dropdown just sending the card id to the page and nothing else is true. One needs to do something with it once there.

Richard

[jhardman]

Richard,

well, technically, this line is not required, you pulled up the list of categories from existing records, not from a separate list of categories, so which ever category they select there should ALWAYS be at least one record for that category, right? this line is saying "if there are records that match, then..." so put an apostrophe at the beginning of that line, and another at the beginning of the line which has the corresponding "end if". this makes the server ignore those lines. try it and see what it gives you.

Jared

[fran7]

Dear Jared, I tried that, It turned out the same just moved the error message to the next line. Today I set up another asp dropdown script and it fetched the id and description and category. Looking at the script I realized that The problem must lie in the response write.
The one I used today had this
strSQL = "SELECT * FROM tblGreetingPost Cards where CategoryID='" & CategoryID &"'"
objRS.Open strSQL, objconn

Do While Not objRS.EOF
Response.Write objRs("PostCard ID") & " " & objRs("Author") & " " & objRs("Category ID") & "<br>"
objRS.MoveNext
Loop
Response.Write "</form>"
objRs.Close


Its not what would do what I want but before I simple had one line querystring. I think it should all work fine apart from getting the query response to do the same as what happens normally with the search and categories.

I dont know if you have any ideas. If not dont worry, you have put a lot of energy in so far, and thanks for that.
Richard

[jhardman]

I just noticed that sometimes the querystring gives you "postCardID " and sometimes "cardDescriptio n". What's the difference?

My best suggestion is to start over from the beginning. first, make sure the next page gets everything you sent:

dim x
for each x in request.querystring
   response.write x & ": " & request.querystring(x) & "<br>" & vbNewLine
next

Then open the database just to make sure you can:

dim conn, rsCard
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open PostCardSoftConnectString
Set rsCard=Server.CreateObject("ADODB.Recordset")
rsCard.open "SELECT * FROM tblGreetingPostCards", conn
 
for each x in rsCard.fields
   response.write x.name & ": " & x.value & "<br>" & vbNewLine
next
 

this should list the first record in the table. (You'll still need to use your line that says what PostCardSoftCon nectionString is, but that should be the only line from your original page you need) Let's make sure this works, then we'll try to get the right records displayed.

By the way, I should have asked sooner, do you have "option explicit" declared near the top of the page?

Jared

[fran7]

Dear Jared, Thats right, you can see that it lists all the data from the first record in the database. I am also declaring "option explicit" in the dropdown page. So things look like they are connected. It must be getting that info to loop through the right records and display correctly, thats the trick.
Thanks
Richard

[jhardman]

OK, if I understand it right, the postCardID sent from the first page tells what the cardDescripton should be, right? So add this to the query statement. It should now read:

"SELECT * FROM tblGreetingPostCards WHERE cardDescription = '" & request("postCardID") & "'"

This will still only list one record, but it should always be one of the records you chose. Let me know if it works.

Jared

[fran7]

Dear Jared, This is what I have but I dont get anything now adding that line. stops showing the page so reverted to the previous move. Is it all in the right place anyway?

..asp
 
<div id="websites">
<p></p> 
<% dim conn, rsCard
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open PostCardSoftConnectString
Set rsCard=Server.CreateObject("ADODB.Recordset")
rsCard.open "SELECT * FROM tblGreetingPostCards WHERE CardDescription = '" & request("PostCardID") & "'"
 
for each x in rsCard.fields
   response.write x.name & ": " & x.value & "<br>" & vbNewLine
next %>
 
 
 
<table width="100%">
 
    <%  
    If Not rsCard.EOF Then
    rsCard.AbsolutePage = intPage 
 
 
   For intRecord = 1 To rsCard.PageSize
    CurrentColumn=1
%>
<tr>     
 
<%
    Do While CurrentColumn<=5   
%>
        <td><br><font size="2"><p></p>  
<a onmouseover="doTooltip(event,'<img src=&quot;<%=Server.URLPathEncode(rsCard("ThumbnailURL"))%>&quot; alt=&quot;&quot; border=&quot;0&quot;><div class=&quot;tp2&quot;><%If Trim(rsCard("Author"))<>"" Then%> <%=rsCard("Author")%><%End If%></div>' )" onmouseout="hideTip()" href="http://<%=rsCard("DefaultHeadline")%>" target="_blank"><%=rsCard("CardDescription")%></a>
                </font>
 
  <p align="left"><font size="1"><span style="color : #303030;"><%If Trim(rsCard("Author"))<>"" Then%> <%=rsCard("Author")%><%End If%></font></span>
        <p align="left"><font face="<%=FontName%>" size="1"><a href="card.asp?PostCardID=<%=rsCard("PostCardID")%>">
      <I><%=rsCard("DefaultMessage")%></I><a>
 
 
 
 
 
 
 
                </td>
<%
 
        CurrentColumn=CurrentColumn+1
        rsCard.MoveNext
        If rsCard.EOF Then Exit For 
    Loop
%>
</tr>
 
<%
 
 
   intRecord =intRecord +1
 
Next  
End If
%>
 
    </tr>
    <tr>
        <td colspan="5"><%If intpagecount > 1 Then %>
<font face="<%=FontName%>" size="1"><form name="MovePage" action="directory.asp?CategoryID=<%=lngCategoryID%>" method="post">
      <input type="hidden" name="intpage" value="<%=intpage%>"><input type="hidden" name="SearchWord" value="<%=strWd%>"><div align="center"><center><p><br><input
      type="submit" name="action" value="  &lt;&lt;  "> <input type="submit" name="action"
      value="  &lt;  "> <input type="submit" name="action" value="  &gt;  "> <input type="submit"
      name="action" value="  &gt;&gt;  "><br>
Page: <%=Intpage & " of " & intpagecount%> <br>
        </font></p>
 
    </form>
<% End If %></td>
    </tr>
    <tr>
    <td colspan="5"><br><br><br><br><p><font face="Arial" align="left" size="2"><br><font face="Arial" size="1">
                      <b>Important Copyright Notice!</b>&nbsp;&nbsp;The copyright of all images on this site is property of the respective artists. Any use or reproduction of the 
                      content without prior written permission of the artist is strictly forbidden. 
</font></p></td></tr>
 
</table>
<%=Application("gcp_FooterHTML")%>
 
 
 
</div>
<div style="clear:both;"> </div>
 
</div>
<div id="footer" ></div>
</div></div>
</body>
</html>
<% connPostCardSoft.Close()
Set connPostCardSoft=Nothing
Set rsCard=Nothing
Set rsCat=Nothing
%>
 
 
 
 

..asp

Thanks
Richard

[jhardman]

Almost, you still need to say "conn" after the query

rsCard.open "SELECT * FROM tblGreetingPostCards WHERE CardDescription = '" & request("PostCardID") & "'", conn
 

And when a change brings up a new error message, please mention that rather than just say it stopped displaying.

Jared

[fran7]

Dear Jared, Its as you said.
The error message is

ADODB.Recordset error '800a0cb3'

Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.

/manner.asp, line 235



As an experiment I nicked some code from another page and added it. Bobs your uncle it displays everything as should be. It does though not work when I take your code out. What I nicked and added is this.


<%
On Error Resume Next

'set database connection
Set conn=Server.Cre ateObject("ADOD B.Connection")
conn.Mode = 3 '3 = adModeReadWrite
conn.Open PostCardSoftCon nectString

strSQL1="Select Count(tblGreeti ngCategories.Ca tegoryID) AS CountOfPostCard ID From tblGreetingCate gories"
Set rsTemp=conn.Exe cute(strSQL1)
If Not rsTemp.EOF Then
CountOfPostCard ID=rsTemp("Coun tOfPostCardID")/2
End If

strSQL="SELECT tblGreetingCate gories.Category ID, tblGreetingCate gories.Category Name, "
strSQL=strSQL & " Count(tblGreeti ngPostCards.Pos tCardID) AS CountOfPostCard ID "
strSQL=strSQL & " FROM tblGreetingCate gories INNER JOIN tblGreetingPost Cards ON "
strSQL=strSQL & " tblGreetingCate gories.Category ID = tblGreetingPost Cards.CategoryI D "
strSQL=strSQL & " GROUP BY tblGreetingCate gories.Category ID, tblGreetingCate gories.Category Name"
strSQL=strSQL & " Order By tblGreetingCate gories.Category Name ASC "

Set rsTemp=conn.Exe cute(strSQL)

strTemp=""
strTemp2=""
lngCount=1
Do While Not rsTemp.EOF
lngCount=lngCou nt+1

strCode=Replace (Ucase(Applicat ion("gcp_Applic ationPath")),"P ICKUP.ASP","sho wcards.asp")
strCode=strCode & "?CategoryI D=" & rsTemp("Categor yID")
strCode=Lcase(s trCode)

If Trim(strTemp)=" " Then
strTemp="<a href=" & Chr(34) & strCode & Chr(34) & ">" & rsTemp("Categor yName") & "</a>" & " (" & rsTemp("CountOf PostCardID") & " Cards)"

Else
If lngCount>CountO fPostCardID+1 Then
If Trim(strTemp2)< >"" Then
strTemp2=strTem p2 & "<br>"
End If
strTemp2=strTem p2 & "<a href=" & Chr(34) & strCode & Chr(34) & ">" & rsTemp("Categor yName") & "</a>" & " (" & rsTemp("CountOf PostCardID") & " Cards)"
Else
strTemp=strTemp & "<br><a href=" & Chr(34) & strCode & Chr(34) & ">" & rsTemp("Categor yName") & "</a>" & " (" & rsTemp("CountOf PostCardID") & " Cards)"
End If
End If
rsTemp.MoveNext
Loop
Set rsTemp=Nothing
conn.Close()
Set conn=Nothing

%>



I got it from the display categories page, which I did a way with when I set this site us to my needs but in fact preceded the page I show the links on.

Its almost solved!!
How do I re-write the querystring so that the white text does not show and do you know what part of the code I added is making it work as some might be superflous?

www. wotartist.com/ right.asp

Thanks again
Richard

[jhardman]

Its almost solved!!
How do I re-write the querystring so that the white text does not show and do you know what part of the code I added is making it work as some might be superflous?

www. wotartist.com/ right.asp

Thanks again
Richard

The ironic part is, it might be the "on error" line which fixed the whole thing. This just says "if there's an error, ignore it and keep going."

This is the part of the code that writes the white part

for each x in rsCard.fields
   response.write x.name & ": " & x.value & "<br>" & vbNewLine
next

I'm not sure what all you wrote that may be superfluous, it looks like the previous code you posted was written to handle several different scenarios, such as a search function, besides what we have been testing, but if you have streamlined the code already, you may have taken that out. It's kind of complex, so there may be nothing I can add. glad you got it going.

Jared