Platform SDK: Exchange 2000 Server

Using ADO to set the Schema Collection Ref and Default Web Store Form Properties

Web pages can be registered in the store as the default page for a particular folder. Do this by setting the content-class to “defaultdocument”.

When the user opens the folder the default page will show instead of the usual list of files.

This example uses an ASP Web page to create an ADODB object. It updates the Schema-Collection-Ref and the default document properties.

Once again, make sure to log in as a user authorized to write to the store before running the code.

<HTML>
<HEAD>
<%@ LANGUAGE = "VBScript" %>
<%
Const adModeReadWrite       = 3
Const adFailIfNotExists     = -1
Const adCreateNonCollection = 0

Dim strURL
strURL = "file://./backofficestorage/ServerName.microsoft.com/public folders/myappfolder3/"

Dim Rec
Set Rec = CreateObject("ADODB.Record")

response.write strURL 

Rec.Open strURL,,adModeReadWrite, adFailIfNotExists
response.write "<P>"

Dim Flds
Set Flds = Rec.Fields

' Set the SCR and the default document 
Flds("urn:schemas-microsoft-com:exch-data:schema-collection-ref") = strURL & "schema5h/"
Flds("DAV:defaultdocument") = "default2.htm"
Flds.Update

Response.write(Err.number) & "<P>"
response.write"<H3>SUCCESS</H3>"

Rec.Close
%>

</HEAD>
<BODY>
</BODY>
</HTML>