<%
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
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
strSql = "SELECT * from forum_topics where idforum_topic=" & request("idforum_topic")
'response.end
set rs = my_Conn.Execute (strSql)
id_forum_topic = rs("idforum_topic")
title_graphic_root = rs("title_graphic_root")
title_graphic_main = rs("title_graphic_main")
add_comment = rs("add_comment")
topic_summary = rs("topic_summary")
topic_brief = rs("topic_brief")
binary_display = rs("binary_display")
%>
the perfect t-shirt