<%
	hosted		=	"localhost;"
	dbname		=	"data;"
	dbuser		=	"baze;"
	dbpass		=	"159753123123;"

	Set Bag = Server.CreateObject("ADODB.Connection")
	Bag.Open "DRIVER={MySQL ODBC 3.51 Driver};Server="&hosted&";DB="&dbname&";UID="&dbuser&";PWD="&dbpass&";"

	Bag.Execute("SET NAMES 'latin5'")
	Bag.Execute("SET CHARACTER SET latin5")
	Bag.Execute("SET COLLATION_CONNECTION = 'latin5_turkish_ci'")
	
	gameYil = Year (Date) : gameAy = Month (Date) : gameGun = Day (Date) : gameSaat = Time()
	tFormat = gameYil & "-" & gameAy & "-" & gameGun & " " & gameSaat
	
	Set vUye = Bag.Execute("SELECT * FROM tbluye")
	Set vKontrol = Bag.Execute("UPDATE tbluye SET gtarih='"&tFormat&"' WHERE id='"&Session("id")&"'")
		
		SET var1 = Bag.Execute("SELECT tblrenk.id, "&_
		"tblrenk.col_code, "&_
		"tblrenk.admingroup "&_
		"FROM tblrenk WHERE id = 1")
		SET var2 = Bag.Execute("SELECT tblrenk.id, "&_
		"tblrenk.col_code, "&_
		"tblrenk.admingroup "&_
		"FROM tblrenk WHERE id = 2")
		SET var3 = Bag.Execute("SELECT tblrenk.id, "&_
		"tblrenk.col_code, "&_
		"tblrenk.admingroup "&_
		"FROM tblrenk WHERE id = 3")
		SET var5 = Bag.Execute("SELECT tblrenk.id, "&_
		"tblrenk.col_code, "&_
		"tblrenk.admingroup "&_
		"FROM tblrenk WHERE id = 5")
		SET var6 = Bag.Execute("SELECT tblrenk.id, "&_
		"tblrenk.col_code, "&_
		"tblrenk.admingroup "&_
		"FROM tblrenk WHERE id = 6")
		SET var7 = Bag.Execute("SELECT tblrenk.id, "&_
		"tblrenk.col_code, "&_
		"tblrenk.admingroup "&_
		"FROM tblrenk WHERE id = 7")
		SET var8 = Bag.Execute("SELECT tblrenk.id, "&_
		"tblrenk.col_code, "&_
		"tblrenk.admingroup "&_
		"FROM tblrenk WHERE id = 8")
		SET var18 = Bag.Execute("SELECT tblrenk.id, "&_
		"tblrenk.col_code, "&_
		"tblrenk.admingroup "&_
		"FROM tblrenk WHERE id = 18")
		SET var20 = Bag.Execute("SELECT tblrenk.id, "&_
		"tblrenk.col_code, "&_
		"tblrenk.admingroup "&_
		"FROM tblrenk WHERE id = 20")
		SET var21 = Bag.Execute("SELECT tblrenk.id, "&_
		"tblrenk.col_code, "&_
		"tblrenk.admingroup "&_
		"FROM tblrenk WHERE id = 21")
		SET var24 = Bag.Execute("SELECT tblrenk.id, "&_
		"tblrenk.col_code, "&_
		"tblrenk.admingroup "&_
		"FROM tblrenk WHERE id = 24")
%>