Notice: This website is an unofficial Microsoft Knowledge Base (hereinafter KB) archive and is intended to provide a reliable access to deleted content from Microsoft KB. All KB articles are owned by Microsoft Corporation. Read full disclaimer for more details.
View products that this article applies to.
<html>
<head>
</head>
<%
' The site name would normally be retrieved from the Application object.
SiteName = "SupplierAD"
' Set this variable to the URL of the page to receive the SiteTerm list selected.
strNextPage = "updateprofile.asp"
' Call this sub with Site Term group name and property name to build the list.
Sub DisplaySiteTerms(GroupName, PropertyName)
ConnStr = GetConnectionString(SiteName)
Set SiteTerms = RequestTerms(ConnStr, GroupName, PropertyName)
Call DrawSelection(SiteTerms)
End Sub
' Get the BizDataStore connection string.
Function GetConnectionString(strSiteName)
Set SiteCFG = Server.CreateObject("Commerce.SiteConfigReadOnly")
SiteCFG.Initialize strSiteName
GetConnectionString = SiteCFG.Fields("Biz Data Service").Value. _
Fields("s_BizDataStoreConnectionString").Value
End Function
' This function returns a collection of XML nodes representing the requested Site Terms.
Function RequestTerms(strConnStr, strGroupName, strPropertyName)
' Create Biz Data Admin Object.
Set BDAO = Server.CreateObject("Commerce.BusinessDataAdmin")
BDAO.Connect strConnStr
' Get the Site Terms Catalog. This is returned as an XML document.
Set SiteTermsXML = BDAO.GetProfile("Site Terms.MSCommerce")
' Build the XSL Pattern and get the requested site terms.
strTermExpression = "//Group[@name='" & strGroupName & "']"
strTermExpression = strTermExpression & "/Property[@name='" & strPropertyName & "']"
strTermExpression = strTermExpression & "/Attribute"
Set RequestTerms = SiteTermsXML.SelectNodes(strTermExpression)
End Function
' Present the site terms as a list of check boxes. Each check box has a
' display, which is the display name of the term, and a value, which is the
' name of the term. Modify as appropriate. Note: These should be the only
' elements on the page with the ID of SiteTerm.
Sub DrawSelection(xmlTerms)
For Each Term in xmlTerms
Response.Write "<INPUT TYPE=CHECKBOX ID='SiteTerm'"
Response.Write "VALUE='" & Term.GetAttribute("name") & "'>"
Response.Write Term.GetAttribute("displayName") & "</BR>"
Next
End Sub
%>
<script language="JavaScript">
' Upon submitting the page, the checked values are passed in a string to the next page.
function SubmitValues()
{
var strParam, termForm, e, currItem;
strParam = "";
' Get a collection of the SiteTerm elements and loop through.
termForm = document.all.item("SiteTerm");
for(e = 0; e < termForm.length; e++)
{
currItem = termForm.item(e);
' If the SiteTerm is selected, add it to a semicolon
' separated list.
if(currItem.checked == true)
{
strParam = strParam + currItem.value + ";"
}
}
' Set the hidden field value to the list minus the trailing semicolon.
document.all.item("theValue").value = strParam.slice(0,-1);
}
</script>
<body>
Check the site terms you require:<BR/>
<%
' The following call builds and displays the list of Site Terms for selection.
Call DisplaySiteTerms("Favorites", "FavoritePets")
%>
<form id=sendData action="<%= strNextPage %>" method="GET">
<INPUT TYPE=HIDDEN NAME="theValue" VALUE="">
<INPUT type=SUBMIT VALUE="Submit" onClick="JavaScript:SubmitValues();">
</form>
</body>
</html>
<html>
<body>
<%
Dim strSiteTerms, aTermArray, SiteName, oProfileService, oUser
' The Site Name would normally be retrieved from the Application object.
SiteName = "SupplierAD"
' The ProfileService object would normally be retrieved from the Application object.
Set oProfileService = GetProfileService(SiteName)
' Get the SiteTerms set into an array.
strSiteTerms = Request("theValue")
aTermArray = Split(strSiteTerms, ";")
' Get a profile. This would not normally be hard coded.
Set oUser = oProfileService.GetProfile("JoeUser", "UserObject")
' Modify and update the multi-valued SiteTerm with the information provided.
oUser.Favorites.FavoritePets = aTermArray
oUser.Update
Function GetProfileService(strSiteName)
Dim oProf, strConn
strConn = GetConnectionString(strSiteName)
Set oProf = Server.CreateObject("Commerce.ProfileService")
oProf.Initialize strConn, "Profile Definitions"
Set GetProfileService = oProf
End Function
' Get the Profile Service connection string.
Function GetConnectionString(strSiteName)
Set SiteCFG = Server.CreateObject("Commerce.SiteConfigReadOnly")
SiteCFG.Initialize strSiteName
GetConnectionString = SiteCFG.Fields("Biz Data Service").Value. _
Fields("s_BizDataStoreConnectionString").Value
End Function
%>
The profile has been updated.
</body>
</html>
Keywords: KB280721, kbinfo