<%
Classrlmandbcls
PrivatesDBPath, Rlconn, SDBType, SServername, Susername, Spassword
Publiccount
Privatesubclass_initialize ()
sdbtype = ""
Endsub
Privatesubclass_terminate ()
IfisObject (rlconn) lalu
Rlconn.close
SetRlConn = tidak ada
Endif
Endsub
PublicPropertyletDBtype (BYVALSTRVAR)
SDBType = Strvar
Endproperty
PublicPropertyletServername (BYVALSTRVAR)
sServername = strvar
Endproperty
PublicPropertyLeLeSerName (BYVALSTRVAR)
Susername = Strvar
Endproperty
PublicPropertyletPassword (BYVALSTRVAR)
Spassword = Strvar
Endproperty
'Atur jalur basis data
PublicPropertyletDBPath (BYVALSTRVAR)
sdbpath = strvar
SelectCasesDBtype
Kasus "SQL"
Strserver = nama server database sservername '
Struid = Susername'yAnt Account Login Anda
Strsapwd = spassword'y Anda kata sandi login Anda
STRDBNAME = SDBPATH'OTE NAMA DATABASE Anda
sdbpath = "driver = {sqlServer}; server =" & strserver & "; uid =" & struid & "; pwd =" & strsapwd & "; database =" & strdbname
Kasus "akses", ""