Database Settings
<%
L_ErrorThisStep_Text = "This step encountered an error: "
fConfigure = False
fErr = False
szChecked1 = ""
szChecked2 = ""
If Request.Form("Configure") = "1" Then
fConfigure = True
End If
configMetadata = Request.Form("ConfigMetadata")
If configMetadata = "on" Then
szChecked2 = "checked"
else
szChecked1 = "checked"
End If
szServer = Request.Form("ServerName")
szDb = Request.Form("DbName")
szUid = Request.Form("Uid")
szPwd = Request.Form("Pwd")
L_ReqdFields_Text = "ERROR: One more required fields are empty. Please retry."
L_MdConfigure_Text = "Registering the values for the specified metadata object... "
L_EnsureTables_Text = "Checking Database Integrity... "
L_DatabaseOKStr_TEXT = "Your database tables and settings are correct. Integrity has been verified!"
L_Done_Text = "Done!"
Sub DoConfigure()
On Error Resume Next
'Just in case the admin has established a collaboration session
If Not IsEmpty(Session("MiscApis")) Then
Set miscapis = Session("MiscApis")
Else
Set miscapis = Server.CreateObject("OWS.MiscApis.1")
End If
If Err.Number <>0 Then
Exit Sub
End if
'If any server has been specified, make sure that the
'password is at least the empty string
If configMetadata = "on" Then
If IsEmpty(szPwd) Then
szPwd = ""
End If
Response.write(L_MdConfigure_Text)
'****Build up the connection string
szConn = "Provider=sqloledb;Server="+szServer+";Database="+szDb
'Modify the default metadata
miscapis.RegisterServerMetadata 0, "", szConn, szUid, szPwd
If Err.Number <>0 Then
Exit Sub
End if
Response.write(L_Done_Text+"
")
End If
Response.write(L_EnsureTables_Text)
'Get the default server collab object, OWSCO_DFTSVR = 0
Set collab = miscapis.CreateCollaborationObject( 0 )
If Err.Number <>0 Then
Exit Sub
End if
'Get its metadata OWSPROP_MDSTORE = 0
Set metadata = collab.GetProperty( 0 )
If Err.Number <>0 Then
Exit Sub
End if
metadata.EnsureTables()
If Err.Number <>0 Then
Exit Sub
End if
Response.write(L_Done_Text+"
")
Response.write "" & L_DatabaseOKStr_TEXT & "
"
Err.Clear
Exit Sub
ErrHandle:
Response.write(L_ErrorThisStep_Text+"
")
End Sub
'No metadata specified for non defaults
If configMetadata = "on" Then
If (IsEmpty(szServer) Or Len(szServer) = 0) Then
fErr = True
End If
If (IsEmpty(szDb) Or Len(szDb) = 0) Then
fErr = True
End If
If (IsEmpty(szUid) Or Len(szUid) = 0) Then
fErr = True
End If
End If
If fConfigure = False Then '-------------------- main form below ------------------------------------
%>
To verify the integrity of your Office Server Extensions database, click on Verify Database Integrity and click Submit.
To change the database used by Office Server Extensions from the internal Office database to another database, such as Microsoft SQL Server,
click on Change Office Database, enter the settings below, and click Submit.
<%
Else
Response.write("
")
If fErr = True Then
Response.write L_ReqdFields_Text & "
"
Else
DoConfigure()
If Err.Number <> 0 Then
Response.write("
"+L_ErrorThisStep_Text+"
"+Err.Description+"
")
End If
End If
%>
To make further changes, click on the "Change Settings" button.
<%
End If
%>
