<%@ Language=VBScript %> <% ' Declare our vaiables Dim objFSO, objCountFile ' object vars for FSO and File Dim strCountFileName ' count text file Dim iCount ' count variable Dim bUseImages ' boolean Dim I ' looping var strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".cnt") ' Create FileSystemObject to deal with file access Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Open the file as a text stream (1 = ForReading, True = Create) Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True) ' Read the current count from the file If Not objCountFile.AtEndOfStream Then ' Set value to contents of the file iCount = CLng(objCountFile.ReadAll) Else ' If no file exists or it's empty start at 0 iCount = 0 End If ' Close the file and destroy the object objCountFile.Close Set objCountFile = Nothing ' Increment the count iCount = iCount + 1 ' Overwrite existing file and get a text stream to new one Set objCountFile = objFSO.CreateTextFile(strCountFileName, True) ' Write updated count objCountFile.Write iCount ' Close the file objCountFile.Close Set objCountFile = Nothing ' Destroy the FSO object Set objFSO = Nothing For I = 1 to Len(iCount) Next %> Equality Utah

 
Equality Utah is a grassroots, statewide political advocacy organization working on behalf of lesbian, gay, bisexual and transgender people to secure equality and fairness, regardless of sexual orientation or gender identity.


All of our funding comes from individual donors and private foundations. Our work is only possible through your generous financial and volunteer support.

 

The Equality Utah Board of Directors is pleased to annouce its 2008 Candidate Endorsements.

Get Informed, Get Involved!!
See whats going on this week in your local race!

Thank you for your support of Allies Dinner 2008 - The Power of One!!
You can still contribute and help support our endorsed candidates.

www.alliesdinner.org

Check out photos from the event!

Sign-up to receive Equality Utah News and Action Alerts:

 


Please join Equality Utah by signing this petition and committing to vote on November 4, 2008.  By voting in this year's pivitol election you are voting for a fair and just Utah.

Join an Equality Action Team

Mark your Calendars!

EU Candidate Walk day
Saturday October 11
9:00 am
Meet at Anzak Park
1850 East 7200 South
Map
To RSVP please email Lauren

EU Phone Bank
Tuesday October 14
5:30 pm to 8:00 pm
Meet at EU Office
175 West 200 South Ste 3001
Map
To RSVP please email Lauren

EU Candidate Walk day
Saturday October 18
9:30 am
Meet at Hunter High School
4200 South 5600 West
Map
To RSVP please email Lauren

EU Phone Bank
Tuesday October 21
5:30 to 8:00 pm
Meet at EU Office
175 West 200 South Ste 3001
Map
To RSVP please email Lauren

EU Candidate Walk Day
Saturday October 25
9:00 am
Meet at Jordan High School
95 Beetdigger Blvd
Map
To RSVP please email Lauren

EU Phone Bank
Tuesday October 28
5:30 to 8:00 pm
Meet at EU Office
175 West 200 South Ste 3001
Map
To RSVP please email Lauren

Visit our new online store!
Shop today!

 
 


 

You are visitor number: <%Response.Write iCount%> Since January 1, 2008