<%

' cursor open típusok
Const adOpenForwardOnly=0 '(default)
Const adOpenKeyset=1
Const adOpenDynamic=2
Const adOpenStatic=3

' lock típusok
Const adLockReadOnly = 1
Const adLockPessimistic=2
Const adLockOptimistic=3
Const adLockBatchOptimistic=4

' hol legyen a cursor
Const adUseCursorServer = 2
Const adUseCursorClient = 3

Const adCmdText = &H0001  ' ?


Dim cnnSearch  ' ADO connection, INDEXES HIVATKOZÁSSAL
Dim cnnSearchEasy  ' ADO connection, INDEXES HIVATKOZÁSSAL
Dim rstSearch  ' ADO recordset, MEZŐNEVES HIVATKOZÁSSAL
Dim Lista      ' cnn --es selecthez


'Dim oDB ' dll-be betöltött adatbázis kapcsolat újrafelhasználva
'Set oDB = Server.CreateObject("GOLD2_DAL.DB")

' új datbázis kapcsolat, egyszer, az elején
set cnnSearch = Server.CreateObject("ADODB.Connection")
set cnnSearchEasy= Server.CreateObject("ADODB.Connection")
Dim strConn
Dim strConnEasy
'strConn =  "Provider=SQLOLEDB;Data Source=192.168.2.2;" _
'             & "Initial Catalog=Yukon2;User Id=sa;Password=websa;" _
'             & "Connect Timeout=60;current language=HUNGARIAN"
strConn =  "Provider=SQLOLEDB;Data Source=(local);" _
             & "Initial Catalog=gifton;User Id=sa;Password=websa;" _
             & "Connect Timeout=60;current language=HUNGARIAN"

strConnEasy =  "Provider=SQLOLEDB;Data Source=(local);" _
             & "Initial Catalog=Easy;User Id=sa;Password=websa;" _
             & "Connect Timeout=60;current language=HUNGARIAN"

'strConn = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=gifton; UID=root;PASSWORD=gdb753;  OPTION=3" 
'strConn = "Driver={Mysql}; SERVER=localhost; DATABASE=gifton; UID=root;PASSWORD=gdb753; OPTION=3" 
'strConn = "Driver={mySQL}; Server=localhost; Port=3306; Option=0; Socket=; Stmt=; Database=gifton; Uid=root; Pwd=gdb753;"

'strConn = "Server=localhost;Database=gifton;Uid=root;Pwd=gdb753;"
'strconn= "DRIVER={MySQL};SERVER=localhost; DATABASE=gifton;USER=root;PASSWORD=gdb753; OPTION=3;"
cnnSearch.Open strConn  ' mindig újat nyit
cnnSearchEasy.Open strConnEasy  ' mindig újat nyit
'cnnSearch.ActiveConnection = oDB.GetConnectionString(): Connectiont nem lehet elkérni?

'set lista111=cnnsearch.execute("SET CHARACTER SET 'cp1250'")

Set rstSearch = Server.CreateObject("ADODB.Recordset")
'rstSearch.CursorLocation = adUseCursorClient  ' MS SQL kliensét belit használjon?
rstSearch.CursorLocation = adUseCursorServer  ' MS SQL szerverét használjon?


'Set cmdSearch = Server.CreateObject("ADODB.Command")

'cmdSearch.ActiveConnection = oDB.GetConnectionString() 'Ez a függvény adja vissza a conn. stringet
'cmdSearch.CommandType = adCmdText
'rstSearch.CursorLocation = adUseCursorClient

'recordset használat:
'cmdSearch.CommandText = strSQL
'rstSearch.Open cmdSearch



%>