<%
' mySQL veritabaný
If strVtTuru = "mySQL" Then

    strDBTrue = 1
    strDBFalse = 0
    strDBtarihLimit = "'"

    strCon = "Driver={MySQL ODBC 3.51 Driver};Port=3306;Option=3;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";stmt=SET NAMES 'latin5';"


' msSQL veritabaný
Elseif strVtTuru = "msSQL" Then

    strDBTrue = 1
    strDBFalse = 0
    strDBtarihLimit = "'"

    strCon = "Provider=SQLOLEDB;Server=" & strSQLServerName & ";Persist Security Info=False;User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"


' Access veritabaný
Else

    strDBTrue = "True"
    strDBFalse = "False"
    strDBtarihLimit = "#"

    strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath(strVeriTabaniYolu) &";"
End If


'// Nesneler oluþturuluyor
Set adoCon = Server.CreateObject("ADODB.Connection")
Set kdGenel = Server.CreateObject("Adodb.Recordset")
Set kdYardimci = Server.CreateObject("Adodb.Recordset")
Set kdMenu = Server.CreateObject("Adodb.Recordset")
Set kdYorum = Server.CreateObject("Adodb.Recordset")
Set kdFonksiyon = Server.CreateObject("Adodb.Recordset")


adoCon.Open strCon
%>