<%

function CheckString(s)
	CheckString = replace(s,"'","''")
end function

function CheckBit(b)
	if b = "on" then 
		CheckBit = 1
	else
		CheckBit = 0
	end if
end function

'on error resume next

Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionTimeout = 15
conn.CommandTimeout = 30
Conn.Open "Driver={MySQL ODBC 3.51 Driver};" & _
           "Database=thomas;" & _
           "Uid=thomas;" & _
           "Pwd=maxxwebs"

sql = "select * from startup"
set rs = conn.Execute(sql)

response.write ">>" & rs("App_Continuous_Standby") & "<<"


%>

Done.