<%@ LANGUAGE = VBScript codepage=65001%>
<!--#include file="../include/Lebi_Data.asp"-->
<%
Response.Buffer = True
response.charset="UTF-8"
session.codepage=65001
on error resume next
startime=timer()
Dim SqlNowString
if IsSqlDataBase = 1 Then
        SqlNowString = "GetDate()"
Else
        Db = "database/"&dbname&""
        SqlNowString = "Now()"
End If
Dim ConnStr
If IsSqlDataBase = 1 Then
		ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else
		ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password="&pass&";Data Source = " & Server.MapPath(MyDbPath & db)
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "Error!Please check the data!"
		Response.End
End If
Sup_databasename = "Suppliers/Data/#Lebi_Eshop_Sup.mdb"
%>
