<%
ClassRLManDBCls
PrivatesDBPath, RLConn, sDBType, sServerName, sUserName, sPassword
PublicCount
PrivateSubClass_Initialize()
sDBType=""
EndSub
PrivateSubClass_Terminate()
IfIsObject(RlConn)Then
RlConn.Close
SetRlConn=Nothing
Endif
EndSub
PublicPropertyLetDBType(ByValstrVar)
sDBType=strVar
EndProperty
PublicPropertyLetServerName(ByValstrVar)
sServerName=strVar
EndProperty
PublicPropertyLetUserName(ByValstrVar)
sUserName=strVar
EndProperty
PublicPropertyLetPassword(ByValstrVar)
sPassword=strVar
EndProperty
'Set the database path
PublicPropertyLetDBPath(ByValstrVar)
sDBPath=strVar
SelectCasesDBType
Case "SQL"
StrServer=sServerName' database server name
StrUid=sUserName'Your login account
StrSaPwd=sPassword'Your login password
StrDbName=sDBPath'Your database name
sDBPath="driver={SQLserver};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
Case"ACCESS",""