Public Sub New(ByVal reader As System.Data.SqlClient.SqlDataReader, Optional ByVal prefix As String = "")
		Me.New()

		Me._id = ReadInteger(reader, "id", prefix)
		Me._name = ReadString(reader, "name", prefix)
		Me._typeid = ReadInteger(reader, "typeid", prefix)
		Me._type = ReadEnum(Of WebsiteType)(reader, "typeid", prefix)
		Me._live = ReadBoolean(reader, "live", prefix)
		Me._count = ReadInteger(reader, "count", prefix)
		Me._google_analytics_ua = ReadString(reader, "google_analytics_ua", prefix)
		Me._google_site_verification = ReadString(reader, "google_site_verification", prefix)
		Me._msvalidate_01_bing = ReadString(reader, "msvalidate_01_bing", prefix)
		Me._y_key_yahoo = ReadString(reader, "y_key_yahoo", prefix)

		Dim domains As String() = ReadStringArray(reader, "domains", prefix)
		Me._domains.AddRange(domains)
	End Sub