Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
	OBJdbConnection.ConnectionTimeout = 15
	OBJdbConnection.CommandTimeout = 30
	OBJdbConnection.Open "DSN=YourDSN;UID=YourUserID;PWD=YourPassword;DATABASE=NameOfYourDatabase;"
	Set SQLStmt = Server.CreateObject("ADODB.Command")

	Set RS = Server.CreateObject ("ADODB.Recordset")
	
	If UpdateCandle = "Yes" Then
		sSQLStmt = "UPDATE dbo.tblCandle SET CandleLastDate = GETDATE() WHERE (CandleID = " & CandleIDToShow & ")"
		OBJdbConnection.Execute(sSQLStmt)
	End If
			
	SQLStmt.CommandText = "SELECT CandleMessage, CandleName, CandleCreateDate, CandleLastDate FROM dbo.tblCandle WHERE (CandleID = " & CandleIDToShow & ")"
	SQLStmt.CommandType = 1
	Set SQLStmt.ActiveConnection = OBJdbConnection
	on error resume next
	RS.Open SQLStmt
	CandleMessage = RS("CandleMessage")
	CandleName = RS("CandleName")
	CandleCreateDate = RS("CandleCreateDate")
	CandleLastDate = RS("CandleLastDate")
	RS.Close