Web Development

<input type="text" readonly="readonly" />

<%@ LANGUAGE = "VBScript" %>

<% 

class Init

	private m_url 

	'--You can access these by var.Url 
	'--You could also do validation before you set the variables
	public property get Url()
		Url = m_url
	end property

	public property let Url(RHS)
		m_url = RHS
	end property
	
	private sub Class_Initialize() 
	end sub  
  
	private sub Class_Terminate() 
	end sub  
  
	public function DetermineUrl(sBrand)
		If sBrand = "O" Then
			m_url = "http://ooo.com"
		ElseIf sBrand = "C" Then
			m_url = "http://ccc.com"
		End If

		DetermineUrl = m_url
	end function


end class  

dim test 
Set test = New Init

'--Returns variable 
Response.Write test.DetermineUrl("O")

'--Variable keeps its value so now there is no need for global variable 
Response.write (test.Url)


test.Url = "http://ccc.com"
Response.write (test.Url)

%>