BigBadDave
Programmer
Why isn't this code working?
What I want to do is, if the value from Request("score" is equal to the value from the record set "score" then display a bold tag.
results=<%
Dim rs, data_source, con
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("scores.mdb"
Set con = Server.CreateObject("ADODB.Connection"
con.Open data_source
set rs = server.createobject("adodb.recordset"
rs.open "select * from t_scores order by [score] desc", con
While Not rs.EOF
If rs("score" = Request("score" And rs("email" = Request("email" Then
Response.Write "<b>"
End If
Response.Write "Score : " & rs("score" & "<br>First Name : " & rs("fname" & "<br>Last Name : " & rs("lname" & "<br>E-mail : <a href=""mailto:" & rs("email" & """>" & rs("email" & "</a><br><br><br>"
If rs("score" = Request("score" And rs("email" = Request("email" Then
Response.Write "</b>"
End If
rs.MoveNext
Wend
set rs = nothing
set con = nothing
%>
What I want to do is, if the value from Request("score" is equal to the value from the record set "score" then display a bold tag.
results=<%
Dim rs, data_source, con
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("scores.mdb"
Set con = Server.CreateObject("ADODB.Connection"
con.Open data_source
set rs = server.createobject("adodb.recordset"
rs.open "select * from t_scores order by [score] desc", con
While Not rs.EOF
If rs("score" = Request("score" And rs("email" = Request("email" Then
Response.Write "<b>"
End If
Response.Write "Score : " & rs("score" & "<br>First Name : " & rs("fname" & "<br>Last Name : " & rs("lname" & "<br>E-mail : <a href=""mailto:" & rs("email" & """>" & rs("email" & "</a><br><br><br>"
If rs("score" = Request("score" And rs("email" = Request("email" Then
Response.Write "</b>"
End If
rs.MoveNext
Wend
set rs = nothing
set con = nothing
%>