<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim rs_index Dim rs_index_cmd Dim rs_index_numRows Set rs_index_cmd = Server.CreateObject ("ADODB.Command") rs_index_cmd.ActiveConnection = MM_conn_phatfunk_STRING rs_index_cmd.CommandText = "SELECT * FROM Indextxt" rs_index_cmd.Prepared = true Set rs_index = rs_index_cmd.Execute rs_index_numRows = 0 %> <% Dim rs_gigs Dim rs_gigs_cmd Dim rs_gigs_numRows Set rs_gigs_cmd = Server.CreateObject ("ADODB.Command") rs_gigs_cmd.ActiveConnection = MM_conn_phatfunk_STRING rs_gigs_cmd.CommandText = "SELECT * FROM Giglist" rs_gigs_cmd.Prepared = true Set rs_gigs = rs_gigs_cmd.Execute rs_gigs_numRows = 0 %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername = CStr(Request.Form("username")) If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd MM_fldUserAuthorization = "" MM_redirectLoginSuccess = "inex_e.asp" MM_redirectLoginFailed = "fail.htm" MM_loginSQL = "SELECT Username, Password" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM Authenticate WHERE Username = ? AND Password = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_conn_phatfunk_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 15, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 15, Request.Form("password")) ' adVarChar MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> Phat Funk - 70s Disco Tribute Act

HOME   |   THE BAND   |   GIGS   |   TESTIMONIALS   |   LATEST NEWS   |   SET LIST   |   MEDIA   |   USEFUL LINKS   |   CONTACT

 

DISCLAIMER

The information contained in this website is for general information purposes only. The information is provided by Phat Funk and whilst we endeavour to keep the information up-to-date and correct, we make no representations or warranties of any kind, express or implied, about the completeness, accuracy, reliability, suitability or availability with respect to the website or the information, products, services, or related graphics contained on the website for any purpose. Any reliance you place on such information is therefore strictly at your own risk.

In no event will we be liable for any loss or damage including without limitation, indirect or consequential loss or damage, or any loss or damage whatsoever arising from loss of data or profits arising out of, or in connection with, the use of this website.

Through this website you are able to link to other websites which are not under the control of Phat Funk. We have no control over the nature, content and availability of those sites. The inclusion of any links does not necessarily imply a recommendation or endorse the views expressed within them.

Every effort is made to keep the website up and running smoothly. However, Phat Funk takes no responsibility for, and will not be liable for, the website being temporarily unavailable due to technical issues beyond our control.
 
© PHAT FUNK 2007
DISCLAIMER   |   LOGIN
<% rs_index.Close() Set rs_index = Nothing %> <% rs_gigs.Close() Set rs_gigs = Nothing %> <% Recordset1.Close() Set Recordset1 = Nothing %>