address.asp

[Note: this script uses AspXml.AspXml package which must be installed for this to work]

<%@ LANGUAGE="VBSCRIPT" %>

<%

	response.ContentType = "text/xml"
	set xml = CreateObject("AspXml.AspXml")
	xml.Tag = "user"


	Dim first_name
	first_name = Request.ServerVariables("HTTP_SHIB_INETORGPERSON_GIVENNAME")
	if len(first_name) > 40 then
	   first_name = left(first_name, 40)
        end if	      
	xml.newChild2 "first_name", first_name

	Dim last_name
	last_name = Request.ServerVariables("HTTP_SHIB_PERSON_SURNAME")
	if len(last_name) > 40 then
	   last_name = left(last_name, 40)
	   end if
	   xml.newChild2 "last_name", last_name

	   Dim street
	   street = Request.ServerVariables("HTTP_SHIB_ORGPERSON_STREET")
	   if len(street) > 40 then
	      street = left(street, 40)
	      end if
	      xml.newChild2 "street", street

	      Dim street2
	      street2 = Request.ServerVariables("HTTP_SHIB_ORGPERSON_STREET2")
	      if len(street2) > 40 then
		 street2 = left(street2, 40)
		 end if
		 xml.newChild2 "street2", street2

		 Dim city
		 city = Request.ServerVariables("HTTP_SHIB_ORGPERSON_LOCALITYNAME")
		 if len(city) > 30 then
		    city = left(city, 30)
		    end if
		    xml.newChild2 "city", city

		    Dim state
		    state = Request.ServerVariables("HTTP_SHIB_ORGPERSON_STATE")
		    if len(state) > 2 then
		       state = left(state, 2)
		       end if
		       xml.newChild2 "state", state

		       Dim zip 
		       zip = Request.ServerVariables("HTTP_SHIB_ORGPERSON_POSTALCODE")
		       if len(zip) > 10 then
			  zip = left(zip, 10)
			  end if
			  xml.newChild2 "zip", zip

			  Dim email
			  email = Request.ServerVariables("HTTP_SHIB_MAIL")
			  xml.newChild2 "email", email

			  Dim telephone
			  telephone = Request.ServerVariables("HTTP_SHIB_PERSON_TELEPHONENUMBER")
			  xml.newChild2 "telephone", telephone

			  Dim borstatus
			  borstatus = Request.ServerVariables("HTTP_SHIB_BORSTATUS")
			  xml.newChild2 "borstatus", borstatus




			  xml.GetRoot

			  xml.Encoding = "utf-8"

			  response.write xml.GetXml()

%>