if else 1

[801119]

this S H O U L D give you two different outputs depending on "id". But somehow I get the same output for all.

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("poetry.mdb")
Set RS = Conn.Execute("Select * From personal order by ID")
Do While Not RS.EOF
%>
    <% If Request.QueryString(&quot;id&quot;) <> RS(&quot;id&quot;) Then%> - <a href=&quot;poetry.asp?id=<%=RS(&quot;id&quot;)%>&quot;><%=RS(&quot;title&quot;)%></a> -<br>
    <% Else %> - <b>[ <%=RS(&quot;title&quot;)%> ]</b> - <br> <% End If %>
    <hr width=&quot;95&quot;>
    <%
    RS.MoveNext
Loop
End If
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing

My codes look like something a kid wrote
I have absolutely no idea what I am talking about
Somehow I still manage to make it work

 

[GaryC123]

Try formatting your loop properly

Do While Not RS.EOF

If Request.QueryString(&quot;id&quot <> RS(&quot;id&quot Then%>
- <a href=&quot;poetry.asp?id=<%=RS(&quot;id&quot%>&quot;><%=RS(&quot;title&quot%></a> -<br>
<%Else%>
<b>[ <%=RS(&quot;title&quot%> ]</b> - <br>
<% End If %>

<hr width=&quot;95&quot;>
<%
RS.MoveNext
Loop Saturday 12.00

20.00

3.00am

Sunday [img http

 

[801119]

no changes =( but if I change Request.QueryString(&quot;id&quot with &quot;1&quot; then I will see the effect, on the one who holds the id = 1 My codes look like something a kid wrote
I have absolutely no idea what I am talking about
Somehow I still manage to make it work

 

[GaryC123]

ru sure the variable ID is being passed correctly, try placing a response.write request.querystring(&quot;ID&quot in the above code Saturday 12.00

20.00

3.00am

Sunday [img http

 

[801119]

Yes I am sure, as you can see here:

http://130.240.201.142/test.asp

try clicking the links.
RS = RS(&quot;id&quot and QS = Request.QueryString(&quot;id&quot

I 100% sure that everything is OK My codes look like something a kid wrote
I have absolutely no idea what I am talking about
Somehow I still manage to make it work

 

[GaryC123]

Is the above code everything that is on the page? If not can you post the whole code Saturday 12.00

20.00

3.00am

Sunday [img http

 

[801119]

This is whole code for test.asp and I've tried everything from swapping place with both variables, assigning them to variables... etc.. printouts do fine, but they just won't play nice together =(

<%
Set Conn = Server.CreateObject(&quot;ADODB.Connection&quot;)
Conn.Open &quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot; & Server.MapPath(&quot;poetry/poetrydb.mdb&quot;)
Set RS = Conn.Execute(&quot;Select id,title From personal order by id&quot;)
Do While Not RS.EOF
    a = RS(&quot;id&quot;)
    b = Request.QueryString(&quot;id&quot;)
    %>
    RS<%=a %>
    QS<%=b%>
    <% If b <> a Then %> - <a href=&quot;test.asp?id=<%=RS(&quot;id&quot;)%>&quot;><%=RS(&quot;title&quot;)%></a> -
    <br>
    <% Else %> - <b>[ <%=RS(&quot;title&quot;)%> ]</b> - <br> <% End If %>
    <%
    RS.MoveNext
Loop
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
%>

My codes look like something a kid wrote
I have absolutely no idea what I am talking about
Somehow I still manage to make it work

 

[801119]

btw, I've even tried to change name in the database... without any luck! My codes look like something a kid wrote
I have absolutely no idea what I am talking about
Somehow I still manage to make it work

 

[GaryC123]

Got it, should have seen it straight away

set conn=Server.CreateObject(&quot;ADODB.Connection&quot
strconn = &quot;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&quot; & Server.MapPath(&quot;poetrydb.mdb&quot
conn.Open strConn
set rs=Server.CreateObject(&quot;adodB.recordset&quot
RS.open &quot;Select recid,title From personal order by recid&quot;,conn
Do While Not RS.EOF
If int(Request(&quot;id&quot) <> RS(&quot;recid&quot Then%>
- <a href=&quot;test.asp?id=<%=RS(&quot;recid&quot%>&quot;><%=RS(&quot;title&quot%></a> -
<%Else%>
<b>[ <%=RS(&quot;title&quot%> ]</b> -
<% End If %>
<hr width=&quot;95&quot;><br>
<%
RS.MoveNext
Loop
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing Saturday 12.00

20.00

3.00am

Sunday [img http

 

[801119]

*phu*.. thank you so verry much =) now I can go to sleep *finaly* 0200

never thought that autonumber and querystring would be a problem.. perhaps all queryes are sent as text then?! =)

well.. many thanks again!! My codes look like something a kid wrote
I have absolutely no idea what I am talking about
Somehow I still manage to make it work