<!--#include file="adovbs.inc"-->
<!--#include file = "baglanti.asp"-->
<%
Session.LCID = 1055
Session.CodePage = 1254
%>
<%
'****************** Ayarlar ******************************

ekart_ismi = "deðirmenderem.com"
ekart_baslik = "deðirmenderem.com"

mail_server = "mail.atlas.net.tr"
webmaster_email = "corvus@netevi.net"

local_server = "corvus"
gercek_server = "girls.netevi.net"

local_serverURL = "http://" & local_server & "/ekart/"
gercek_serverURL = "http://" & gercek_server & "/ekart/"

local_server_yol = Ayar_DbYol
gercek_server_yol = Ayar_DbYol

'****************** Ayar Sonu *****************************

kimden = Request("kimden")

kimdene = Request("kimdene")
kimdene = Replace(kimdene, " ", "")

kime = Request("kime")

kimee = Request("kimee")
kimee = Replace(kimee, " ", "")

adresbar = server.HTMLencode("kimden=" & kimden & "&kimdene=" & kimdene & "&kime=" & kime & "&kimee=" & kimee)
adresbar = Replace(adresbar, " ", "%20")

Function Baglanti()
	Dim oRet
	Set oRet = Server.CreateObject	("ADODB.Connection")
	
	If ((request.serverVariables("http_host") = local_server))then
		oRet.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath(local_server_yol)
			Else
		oRet.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath(gercek_server_yol)
	End If
	
	Set Baglanti = oRet
End Function

Function ScriptYolu()

	If ((request.serverVariables("http_host") = local_server))then
		ScriptYolu = local_serverURL & "goster.asp"
	Else
		ScriptYolu = gercek_serverURL & "goster.asp"
	End If 
	
End Function

Function Ekart_KartAdedi()
	Dim oRS
	
	Set oRS = Baglanti().Execute("select count(*) as no from kart" )
	Ekart_KartAdedi = oRS("no").Value
	oRS.Close	
End Function

Function Ekart_KategoriAdedi()
	Dim oRS
	
	Set oRS = Baglanti().Execute("select count(*) as no from kat" )
	Ekart_KategoriAdedi = oRS("no").Value
	oRS.Close	
End Function


Const P_File_OpenForReading = 1, P_File_OpenForWriting = 2, P_File_OpenForAppending = 8

%>