%
' The following is the code for the scrolling news ticker. This will only work on a IIS server and IE browsers. Netscape users will still see the news, but it will not scroll.
Dim sTxt, iSpeed, iTop, iLeft, iWidth, iHeight, sHtml1, sHtml2, sHtml4, strSQL,aMarquee
Dim conCurrent
Dim rstCurrent
Set conCurrent = CreateObject("ADODB.Connection")
Set rstCurrent = Server.CreateObject("ADODB.Recordset")
conCurrent.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/agents.mdb"))
strSQL = "SELECT * FROM news WHERE OnOff <> 0 ORDER BY Entry_Date DESC"
Set rstCurrent = conCurrent.Execute(strSQL)
on error resume next
sHtml1 = "
"
sHtml2 = ""
sHtml4 = "
"
sHtml5 = "
"
sTxt = ""
rstCurrent.movefirst
do while not rstCurrent.eof
sTxt = sTxt & sHtml1 & rstCurrent("Entry_Date") & " - " & sHtml2 & _
"newsandevents.asp#" & rstCurrent("Title") & sHtml3 & rstCurrent("Title") & sHtml4 & left(rstCurrent("text1"),150) & "..." & sHtml5
rstCurrent.movenext
loop
iSpeed = 10 ' Speed of Marquee (higher = slower)
iTop = 0 ' Y Location Within Object
iLeft = 0 ' X Location""""
iWidth = 200 ' Width
iHeight = 220 ' Height
'Insert marquee into objects innerHtml Property (in this Case a table cell)
Marquee=""
conCurrent.close 'Don't forget to clean-up!
set conCurrent = Nothing
%>
 |
 |
 |
 |
 |
|
|
|
| |
|
|
| |
Apply for Membership
Anyone that agrees with IWF's
mission statement and core values is welcome to become a member. The majority of
IWF members are from Idaho but IWF also includes members from many other
states. Members receive a quarterly news letter of current activities, our
representatives at Idaho Fish & Game commission meetings and key agency
meetings, our represented at the Idaho Legislature and can participate in one of
IWF's many committees.
Membership: Online,
By Mail or Phone:
Categories Membership Fee
-
Board of Directors $100.00
-
Student/Senior (over age 65)
$25.00
-
-
-
-
Golden Triangle (GTC) $100.00
-
-
-
Corporate/Ted Trueblood Legacy
$1000.00
|
|
| |
|
|
|
|
|