MyInfo Component Properties

Each property of a MyInfo object returns a string. If a MyInfo property has no value set, the property returns an empty string.

The MyInfo object can have properties in addition to the ones documented here. You can create new MyInfo properties by simply assigning a string value to them. For example:

<% 
  MyInfoObject.DogName = "Snoopy" 
  MyInfoObject.DogBreed = "Beagle" 
%>

The above code creates the new properties DogName and DogBreed. These new properties are stored persistently along with the other MyInfo properties in a single text file called MyInfo.xml.  For Windows95 and Windows98, MyInfo.xml is stored in the root directory.  For Windows 2000 and later, MyInfo.xml is stored in the %SystemDrive%\system32\inetsrv\Data folder. If you move the MyInfo.xml file to another server, custom properties will not be implemented.

Only create new MyInfo properties for values that remain consistent throughout a site. 




Syntax



Var = MyInfoObject.Property



MyInfoObject.Property = NewVar



 



The MyInfo component has the following properties:







PageType
Returns a number corresponding to the value in the "This site is ..." pop-up menu. These are the pop-up menu options with their corresponding numerical values:

1 = About My Company

2 = About My Life

3 = About My School

4 = About My Organization

5 = About My Community		





PersonalName
Returns the owner's name.





PersonalAddress
Returns the owner's address.





PersonalPhone
Returns the owner's phone number.





PersonalMail
Returns the owner's e-mail address.





PersonalWords
Returns additional text associated with the owner.





CompanyName
Returns the name of the owner's company.





CompanyAddress
Returns the address of the owner's company.





CompanyPhone
Returns the phone number of the owner's company.





CompanyDepartment 
Returns the owner's department name.





CompanyWords
Returns additional text associated with the owner's company.





HomeOccupation
Returns the owner's occupation.





HomePeople
Returns text listing the people the owner lives with.





HomeWords
Returns additional text associated with the owner.





SchoolName 
Returns the name of the owner's school.





SchoolAddress 
Returns the address of the owner's school.





SchoolPhone 
Returns the phone number of the owner's school.





SchoolDepartment
Returns the owner's department or class.





SchoolWords 
Returns text associated with the owner's school.





OrganizationName
Returns the name of the organization featured on the site.





OrganizationAddress 
Returns the address of the organization.





OrganizationPhone 
Returns the phone number of the organization.





OrganizationWords 
Returns text describing the organization.





CommunityName 
Returns the name of the community featured on the site.





CommunityLocation 
Returns the location of the community.





CommunityPopulation 
Returns the population of the community.





CommunityWords
Returns text describing the community.





URL(n)
Returns the nth user-defined URL. Corresponds to the nth link description in URLWords.





URLWords(n)
Returns a string containing the nth user-defined description of a link. Corresponds to the nth URL in URL.





Style
Returns the relative URL (starting with '/') of a style sheet.





Background
Returns the background for the site.





Title
Returns the user-defined title for the home page.





Guestbook
Returns –1 if the guest book should be available on the site. Otherwise, returns 0. The default value is "".





Messages
Returns –1 if the private message form should be available on the site. Otherwise, returns 0. The default value is "".







Example



This example gets all the MyInfo properties if they exist, and allows the user to set them.  This is a very large example, but may be used as a tool.



--- MyInfo.asp ---



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

<% 'Get all the inputs from the Form
If Not "" = Request.Form("PageFile") Then MyInfoObject.PageFile = Request.Form("PageFile")
If Not "" = Request.Form("PersonalName") Then MyInfoObject.PersonalName = Request.Form("PersonalName")
If Not "" = Request.Form("PersonalAddress") Then MyInfoObject.PersonalAddress = Request.Form("PersonalAddress")
If Not "" = Request.Form("PersonalPhone") Then MyInfoObject.PersonalPhone = Request.Form("PersonalPhone")
If Not "" = Request.Form("PersonalMail") Then MyInfoObject.PersonalMail = Request.Form("PersonalMail")
If Not "" = Request.Form("PersonalWords") Then MyInfoObject.PersonalWords = Request.Form("PersonalWords")
If Not "" = Request.Form("CompanyName") Then MyInfoObject.CompanyName = Request.Form("CompanyName")
If Not "" = Request.Form("CompanyAddress") Then MyInfoObject.CompanyAddress = Request.Form("CompanyAddress")
If Not "" = Request.Form("CompanyPhone") Then MyInfoObject.CompanyPhone = Request.Form("CompanyPhone")
If Not "" = Request.Form("CompanyDepartment") Then MyInfoObject.CompanyDepartment = Request.Form("CompanyDepartment")
If Not "" = Request.Form("CompanyWords") Then MyInfoObject.CompanyWords = Request.Form("CompanyWords")
If Not "" = Request.Form("HomeOccupation") Then MyInfoObject.HomeOccupation = Request.Form("HomeOccupation")
If Not "" = Request.Form("HomePeople") Then MyInfoObject.HomePeople = Request.Form("HomePeople")
If Not "" = Request.Form("HomeWords") Then MyInfoObject.HomeWords = Request.Form("HomeWords")
If Not "" = Request.Form("SchoolName") Then MyInfoObject.SchoolName = Request.Form("SchoolName")
If Not "" = Request.Form("SchoolAddress") Then MyInfoObject.SchoolAddress = Request.Form("SchoolAddress")
If Not "" = Request.Form("SchoolPhone") Then MyInfoObject.SchoolPhone = Request.Form("SchoolPhone")
If Not "" = Request.Form("SchoolDepartment") Then MyInfoObject.SchoolDepartment = Request.Form("SchoolDepartment")
If Not "" = Request.Form("SchoolWords") Then MyInfoObject.SchoolWords = Request.Form("SchoolWords")
If Not "" = Request.Form("OrganizationName") Then MyInfoObject.OrganizationName = Request.Form("OrganizationName")
If Not "" = Request.Form("OrganizationAddress") Then MyInfoObject.OrganizationAddress = Request.Form("OrganizationAddress")
If Not "" = Request.Form("OrganizationPhone") Then MyInfoObject.OrganizationPhone = Request.Form("OrganizationPhone")
If Not "" = Request.Form("OrganizationWords") Then MyInfoObject.OrganizationWords = Request.Form("OrganizationWords")
If Not "" = Request.Form("CommunityName") Then MyInfoObject.CommunityName = Request.Form("CommunityName")
If Not "" = Request.Form("CommunityLocation") Then MyInfoObject.CommunityLocation = Request.Form("CommunityLocation")
If Not "" = Request.Form("CommunityPopulation") Then MyInfoObject.CommunityPopulation = Request.Form("CommunityPopulation")
If Not "" = Request.Form("CommunityWords") Then MyInfoObject.CommunityWords = Request.Form("CommunityWords")
If Not "" = Request.Form("Style") Then MyInfoObject.Style = Request.Form("Style")
If Not "" = Request.Form("Background") Then MyInfoObject.Background = Request.Form("Background")
If Not "" = Request.Form("Title") Then MyInfoObject.Title = Request.Form("Title")
If Not "" = Request.Form("Guestbook") Then MyInfoObject.Guestbook = Request.Form("Guestbook")
If Not "" = Request.Form("Messages") Then MyInfoObject.Messages = Request.Form("Messages")

' MyInfoObject.URL and URLWords are not exactly arrays.
If Not "" = Request.Form("URL") Then
  If Instr(Request.Form("URL"), ";") Then 
    aURL = Split(Request.Form("URL"), ";")
    For i = 0 to UBound(aURL)
      MyInfoObject.URL(i) = aURL(i)
    Next
    MyInfoObject.TotalURL = i
  Else
    MyInfoObject.URL(1) = Request.Form("URL")
    MyInfoObject.TotalURL = 1
  End If
End If
If Not "" = Request.Form("URLWords") Then 
  If Instr(Request.Form("URLWords"), ";") Then 
    aURLWords = Split(Request.Form("URLWords"), ";")
    For i = 0 to UBound(aURLWords)
      MyInfoObject.URLWords(i) = aURLWords(i)
    Next
    MyInfoObject.TotalURLWords = i
  Else
    MyInfoObject.URLWords(1) = Request.Form("URLWords")
    MyInfoObject.TotalURL = 1
  End If
End If

' Now, get the inputs from the user with a FORM
%>

<H3>Set Your MyInfo Data</H3>
<H4>This data will be saved in %SystemDrive%\system32\inetsrv\Data\MyInfo.xml</H4> 

<FORM NAME="GetAndSetMyInfo" METHOD="POST" ACTION="MyInfo.asp">
<TABLE><TR>
<TD>PageFile</TD>
<TD><select NAME="PageFile">
    <option value=1 <% If 1=MyInfoObject.PageFile Then Response.Write "SELECTED"%>>About My Company</option>
    <option value=2 <% If 2=MyInfoObject.PageFile Then Response.Write "SELECTED"%>>About My Life</option>
    <option value=3 <% If 3=MyInfoObject.PageFile Then Response.Write "SELECTED"%>>About My School</option>
    <option value=4 <% If 4=MyInfoObject.PageFile Then Response.Write "SELECTED"%>>About My Organization</option>
    <option value=5 <% If 5=MyInfoObject.PageFile Then Response.Write "SELECTED"%>>About My Community</option>
</select></TD>
</TR><TR>
<TD>PersonalName</TD>
<TD><input type="TEXT" NAME="PersonalName" value="<%=MyInfoObject.PersonalName%>" size=35></TD>
</TR><TR>
<TD>PersonalAddress</TD>
<TD><input type="TEXT" NAME="PersonalAddress" value="<%=MyInfoObject.PersonalAddress%>" size=35></TD>
</TR><TR>
<TD>PersonalPhone</TD>
<TD><input type="TEXT" NAME="PersonalPhone" value="<%=MyInfoObject.PersonalPhone%>" size=35></TD>
</TR><TR>
<TD>PersonalMail</TD>
<TD><input type="TEXT" NAME="PersonalMail" value="<%=MyInfoObject.PersonalMail%>" size=35></TD>
</TR><TR>
<TD>PersonalWords</TD>
<TD><input type="TEXT" NAME="PersonalWords" value="<%=MyInfoObject.PersonalWords%>" size=35></TD>
</TR><TR>
<TD>CompanyName</TD>
<TD><input type="TEXT" NAME="CompanyName" value="<%=MyInfoObject.CompanyName%>" size=35></TD>
</TR><TR>
<TD>CompanyAddress</TD>
<TD><input type="TEXT" NAME="CompanyAddress" value="<%=MyInfoObject.CompanyAddress%>" size=35></TD>
</TR><TR>
<TD>CompanyPhone</TD>
<TD><input type="TEXT" NAME="CompanyPhone" value="<%=MyInfoObject.CompanyPhone%>" size=35></TD>
</TR><TR>
<TD>CompanyDepartment</TD>
<TD><input type="TEXT" NAME="CompanyDepartment" value="<%=MyInfoObject.CompanyDepartment%>" size=35></TD>
</TR><TR>
<TD>CompanyWords</TD>
<TD><input type="TEXT" NAME="CompanyWords" value="<%=MyInfoObject.CompanyWords%>" size=35></TD>
</TR><TR>
<TD>HomeOccupation</TD>
<TD><input type="TEXT" NAME="HomeOccupation" value="<%=MyInfoObject.HomeOccupation%>" size=35></TD>
</TR><TR>
<TD>HomePeople</TD>
<TD><input type="TEXT" NAME="HomePeople" value="<%=MyInfoObject.HomePeople%>" size=35></TD>
</TR><TR>
<TD>HomeWords</TD>
<TD><input type="TEXT" NAME="HomeWords" value="<%=MyInfoObject.HomeWords%>" size=35></TD>
</TR><TR>
<TD>SchoolName</TD>
<TD><input type="TEXT" NAME="SchoolName" value="<%=MyInfoObject.SchoolName%>" size=35></TD>
</TR><TR>
<TD>SchoolAddress</TD>
<TD><input type="TEXT" NAME="SchoolAddress" value="<%=MyInfoObject.SchoolAddress%>" size=35></TD>
</TR><TR>
<TD>SchoolPhone</TD>
<TD><input type="TEXT" NAME="SchoolPhone" value="<%=MyInfoObject.SchoolPhone%>" size=35></TD>
</TR><TR>
<TD>SchoolDepartment</TD>
<TD><input type="TEXT" NAME="SchoolDepartment" value="<%=MyInfoObject.SchoolDepartment%>" size=35></TD>
</TR><TR>
<TD>SchoolWords</TD>
<TD><input type="TEXT" NAME="SchoolWords" value="<%=MyInfoObject.SchoolWords%>" size=35></TD>
</TR><TR>
<TD>OrganizationName</TD>
<TD><input type="TEXT" NAME="OrganizationName" value="<%=MyInfoObject.OrganizationName%>" size=35></TD>
</TR><TR>
<TD>OrganizationAddress</TD>
<TD><input type="TEXT" NAME="OrganizationAddress" value="<%=MyInfoObject.OrganizationAddress%>" size=35></TD>
</TR><TR>
<TD>OrganizationPhone</TD>
<TD><input type="TEXT" NAME="OrganizationPhone" value="<%=MyInfoObject.OrganizationPhone%>" size=35></TD>
</TR><TR>
<TD>OrganizationWords</TD>
<TD><input type="TEXT" NAME="OrganizationWords" value="<%=MyInfoObject.OrganizationWords%>" size=35></TD>
</TR><TR>
<TD>CommunityName</TD>
<TD><input type="TEXT" NAME="CommunityName" value="<%=MyInfoObject.CommunityName%>" size=35></TD>
</TR><TR>
<TD>CommunityLocation</TD>
<TD><input type="TEXT" NAME="CommunityLocation" value="<%=MyInfoObject.CommunityLocation%>" size=35></TD>
</TR><TR>
<TD>CommunityPopulation</TD>
<TD><input type="TEXT" NAME="CommunityPopulation" value="<%=MyInfoObject.CommunityPopulation%>" size=35></TD>
</TR><TR>
<TD>CommunityWords</TD>
<TD><input type="TEXT" NAME="CommunityWords" value="<%=MyInfoObject.CommunityWords%>" size=35></TD>
</TR><TR>
<TD>Style</TD>
<TD><input type="TEXT" NAME="Style" value="<%=MyInfoObject.Style%>" size=35></TD>
</TR><TR>
<TD>Background</TD>
<TD><input type="TEXT" NAME="Background" value="<%=MyInfoObject.Background%>" size=35></TD>
</TR><TR>
<TD>Title</TD>
<TD><input type="TEXT" NAME="Title" value="<%=MyInfoObject.Title%>" size=35></TD>
</TR><TR>
<TD>Guestbook</TD>
<TD><select NAME="Guestbook">
    <option value=-1 <% If -1=MyInfoObject.Guestbook Then Response.Write "SELECTED"%>>Make Available</option>
    <option value=0 <% If 0=MyInfoObject.Guestbook Then Response.Write "SELECTED"%>>Do Not Make Available</option>
</select></TD>
</TR><TR>
<TD>Messages</TD>
<TD><select NAME="Messages">
    <option value=-1 <% If -1=MyInfoObject.Messages Then Response.Write "SELECTED"%>>Make Available</option>
    <option value=0 <% If 0=MyInfoObject.Messages Then Response.Write "SELECTED"%>>Do Not Make Available</option>
</select></TD>
</TR><TR>

<%
strURL = ""
If Not 0 = MyInfoObject.TotalURL Then
  For i = 0 to (MyInfoObject.TotalURL-1)
    strURL = strURL & MyInfoObject.URL(i)
    If Not (MyInfoObject.TotalURL-1) = i Then strURL = strURL & ";"
  Next
End If

strURLWords = ""
If Not 0 = MyInfoObject.TotalURLWords Then
  For i = 0 to (MyInfoObject.TotalURLWords-1)
    strURLWords = strURLWords & MyInfoObject.URLWords(i)
    If Not (MyInfoObject.TotalURLWords-1) = i Then strURLWords = strURLWords & ";"
  Next
End If
%>

<TD>URL seperated by ;</TD>
<TD><input type="TEXT" NAME="URL" value="<%=strURL%>" size=35></TD>
</TR><TR>
<TD>URLWords seperated by ;</TD>
<TD><input type="TEXT" NAME="URLWords" value="<%=strURLWords%>" size=35></TD>

</TR>
</TABLE><BR>
<INPUT TYPE="SUBMIT" VALUE="Submit">
</FORM>

</BODY>
</HTML>




© 1997-2001 Microsoft Corporation. All rights reserved.