<% strConnString = "driver={SQL Server};server=sql7.globalgold.co.uk;uid=betterthinking;pwd=master-point;database=betterthinking" set my_Conn = Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString strSql = "SELECT * from forum_posts where int_votes > 0 order by int_votes DESC" set rs = my_Conn.Execute (strSql) %>

Recommended Posts

Click here to add a comment
Click here to see all posts

<% Do Until rs.eof id_forum_posts = rs("idforumposts") varchar_post = rs("varchar_post") varchar_name = rs("varchar_name") varchar_email = rs("varchar_email") datetime_date = rs("datetime_date") varchar_town = rs("varchar_town") int_votes = rs("int_votes") rs.movenext %>

Added: <%=datetime_date%>

<%=varchar_post%>

<%=varchar_name%>, <%=varchar_town%>

Recommended by: <%=int_votes%> Vote for this comment

<% loop %>