Forum Moderators: open
<%
Dim rs, strSQL, cn
cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &server.mappath("data.mdb")
strSQL="SELECT * FROM Country ORDER BY GEO_Hits DESC, GEO_Country ASC"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open strSQL, cn
if not rs.eof then
response.write "<table>"
response.write "<tr>"
response.write "<td><b><u>COUNTRY</u></b><br></td>"
response.write "<td><b><u>HITS</u></b><br></td>"
response.write "</tr>"
do until rs.eof
response.write "<tr>"
response.write "<td> " & rs("GEO_Country") & "</td>"
response.write "<td align='center'>" & rs("GEO_Hits") & "</td>"
response.write "</tr>"
rs.movenext
loop
response.write "</table>"
else
response.write "No Data Found!"
end if
rs.close
set rs=Nothing
%>
I would be very greatful if someone can help me
Cheers
Linda