<% strConnString = "driver={SQL Server};server=sql7.globalgold.co.uk;uid=betterthinking;pwd=master-point;database=betterthinking" 'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=G:\Inetpub\wwwroot\betterthinking\perfect\discuss\db\perfect.mdb" set my_Conn = Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString If request.cookies("betterthinking") <> "" Then session("idUser") = request.cookies("betterthinking") 'response.write("jfklsjdfl:"&request.cookies("betterthinking") ) strSql = "SELECT * from users where idUser = " & request.cookies("betterthinking") 'response.write("erm:" & strSql) set new_rs = my_Conn.Execute(strSql) If Not new_rs.eof then varchar_name = new_rs("name") varchar_email = new_rs("email") varchar_town = new_rs("location") user_contact = new_rs("contact") new_rs.close End if End if Dim make(4) Dim hate(4) Dim change(4) Dim make_votes(4) Dim hate_votes(4) Dim change_votes(4) strSQL = "select * from shirtpoll" set rs = my_Conn.Execute (strSql) i=0 Do until rs.eof sum = rs("make") + rs("hate") + rs("change") make(i) = rs("make") hate(i) = rs("hate") change(i) = rs("change") make_votes(i) = rs("make") hate_votes(i) = rs("hate") change_votes(i) = rs("change") If make(i) = "" Then make(i) = 0 End if If hate(i) = "" Then hate(i) = 0 End if If change(i) = "" Then change(i) = 0 End if i=i+1 rs.movenext loop %> the perfect t-shirt

Welcome to a new stage in the perfect t-shirt’s journey!

We always knew that the perfect t-shirt would involve not one, but several different possible approaches to minimising the footprint of the world's most universal garment. Thanks to all the vibrant debate on our forum (which we've summarised here), we've been able to map out four very different types of perfect t-shirt, all with various pros and cons. Take a look at each one, cast your vote and join in the discussion to show why your favourite is the best and how to make each one even better. The results of the voting so far is now online - click here to take a look!

Stop press: Read Damien Sanfilippo's in-depth response to our t-shirt suggestions

<% 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_topics where binary_display=1 order by idforum_topic asc" set rs = my_Conn.Execute (strSql) %> <% Do Until rs.eof id_forum_topic = rs("idforum_topic") title_graphic_root = rs("title_graphic_root") title_graphic_main = rs("title_graphic_main") topic_summary = rs("topic_summary") topic_brief = rs("topic_brief") binary_display = rs("binary_display") strSql = "SELECT * from forum_posts where binary_display=1 and id_forum_topics=" & id_forum_topic & " order by datetime_date asc" 'response.write(strsql &"
") set rs_posts = my_Conn.Execute (strsql) no_of_posts = 1 If rs_posts.eof Then no_of_posts = "none" End If no_of_posts = rs_posts.RecordCount no_of_posts = no_of_posts + 1 Do Until rs_posts.eof id_forum_posts = rs_posts("idforumposts") varchar_post = rs_posts("varchar_post") varchar_subject = rs_posts("varchar_subject") datetime_date = rs_posts("datetime_date") no_of_posts=no_of_posts+1 rs_posts.movenext 'response.write("datetime_date:" & datetime_date & ",
") Loop no_of_weeks = -DateDiff("w",now,datetime_date) no_of_days = -DateDiff("d",now,datetime_date) no_of_hours = -DateDiff("h",now,datetime_date) no_of_minutes = -DateDiff("n",now,datetime_date)+10 'response.write("datetime_date:" & datetime_date & ",
date:" & Now ) 'response.write("posts:" & no_of_posts & "
w:" & no_of_weeks & ",
d:" & no_of_days & ",
h:" & no_of_hours & ",
m:" & no_of_minutes &"
") If no_of_posts > 0 Then If no_of_weeks>0 Then If no_of_weeks > 1 then last_comment_time = no_of_weeks & " weeks ago" Else last_comment_time = no_of_weeks & " week ago" End if Else If (no_of_days>0 And no_of_hours>24) Then If no_of_days > 1 then last_comment_time = no_of_days & " days ago" Else last_comment_time = no_of_days & " day ago" End if Else If no_of_hours>0 And no_of_minutes<3600 Then If no_of_hours > 1 then last_comment_time = no_of_hours & " hours ago" Else last_comment_time = no_of_hours & " hour ago" End if Else If no_of_minutes>0 Then If no_of_minutes > 1 then last_comment_time = no_of_minutes & " minutes ago" Else last_comment_time = no_of_minutes & " minute ago" End if End if End if End if End If Else last_comment_time = "no posts" End if strSql = "SELECT * from shirtpoll where idforumtopics= " & id_forum_topic set rs_votes = my_Conn.Execute (strsql) no_of_votes = rs_votes("make") + rs_votes("hate") + rs_votes("change") %>

<%=topic_summary%>

<%=no_of_votes%> Votes

<%=no_of_posts%> comments

Last contribution:
<%= last_comment_time %>

<% rs.movenext Loop my_Conn.close %>

 
18/04/2006

<%=make_votes(0)%> Votes

<%=hate_votes(0)%> Votes

<%=change_votes(0)%> Votes

<%=make_votes(1)%> Votes

<%=hate_votes(1)%> Votes

<%=change_votes(1)%> Votes

<%=make_votes(2)%> Votes

<%=hate_votes(2)%> Votes

<%=change_votes(2)%> Votes

<%=make_votes(3)%> Votes

<%=hate_votes(3)%> Votes

<%=change_votes(3)%> Votes