<%@ Language=VBScript %> <% Option Explicit %> <% 'The code contained on this page is copyright 2005 Digital Creations and Grayson Topping 'and may not be used or altered in any way without the permission of Digital Creations. No permissions 'are expressed or implied by the allowance of use of this code. If you would like to obtain 'permissions please email me at greysun75@hotmail.com. Any changes or use of this code without 'permission will put you in violation of copyright law and legal actions will be taken. 'Ownership of this code is retained by Digital Creations even if use is allowed. %> <% Dim objConn, rsUsers, strUserID, strAutoIn, intPermLevel, strPassword, rsPassword Dim strHyperlink, strMemNameClicked, iCounter, iRowsLoop, iColumnsLoop Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("cabin.mdb") objConn.Open Set rsPassword = Server.CreateObject ("ADODB.Recordset") rsPassword.CursorLocation = adUseClient rsPassword.Open "tblAuth", objConn, adOpenStatic, , adCmdTable Set rsUsers = Server.CreateObject ("ADODB.Recordset") rsUsers.Open "tblAuth" ,objConn, 1, 3, adCmdTable strAutoIn = Request.Cookies("StreamAutoIn") strUserID = Request.Cookies("StreamUserID") strPassword = Request.Cookies("StreamPassword") If strAutoIn = "True" Then Do While Not rsUsers.EOF If rsUsers("UserID") = strUserID AND rsUsers("Password") = strPassword Then intPermLevel = rsUsers("Level") rsUsers("LastLogin") = Date() Session("UserID") = rsUsers("UserID") Session("PermLevel") = intPermLevel Session("LoggedIn") = "True" rsUsers.Update End If rsUsers.MoveNext Loop rsUsers.MoveFirst End If strUserID = Session("UserID") Response.Write(Session("UserID")) %> Cabin Fever
Cabin Fever Radio!!!
 

If you have real player Click Here to listen now!
If you don't have Real Player click the play button below!

CabinFever
24/7 Live Broadcast

 

 

Administration
To E-Mail an administrator click the name below.

Kittypurr - Admin/Trainer/Owner

Greysun - Webmaster/Admin/Trainer

BlushingBeauty - Admin/Trainer

Shedatear - Schedule Admin

Drag0nzLair - Trainer