<%
Set teksan = Server.CreateObject("ADODB.Connection")
teksan.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Yonetim/DB/secim13.mdb")

	Dim oConn
	'If not already defined, create object
	if not isObject(oConn) then
		Dim strConnQuery
		Set oConn = Server.CreateObject("ADODB.Connection")		
		oConn.Mode = 3
		'Create the path to database
		strConnQuery = "DBQ=" & server.mappath("Yonetim/DB/secim13.mdb") 
		'Connect
		oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; " & strConnQuery)		
	end if
%>