<%@ Language=VBScript %> Plush Dafunk Gallery Login <% Function SimplePasswordEncription(ByRef Data) Dim sValue Dim sHex Dim i sHex = "" For i = 1 To Len(Data) sValue = Hex(Asc(Mid(Data, i, 1))) sHex = sHex + sValue Next SimplePasswordEncription = sHex End Function Function SimplePasswordDecription(ByRef Data) Dim sData1 Dim sData2 Dim i sData1 = "" sData2 = "" For i = 1 To Len(Data) Step 2 sData1 = Chr(CInt("&h" & Mid(Data, i, 2))) sData2 = sData2 + sData1 Next SimplePasswordDecription = sData2 End Function Function Login(byref email, byref password) on error resume next Login = false if Request("email") > "" and Request("password") > "" then Set conn = Server.CreateObject("ADODB.Connection") conn.open "DSN=GalleryLogins" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "GalleryLogins", conn, adOpenDynamic,adLockOptimistic,adcmdtable nServerTimeout = Server.ScriptTimeout Server.ScriptTimeout = 1000 rs.Find "Email like '" & Request("email") & "'" If (rs.BOF = True) OR (rs.EOF = True) Then Login = false else If rs("Password") = SimplePasswordEncription(Request("password")) _ and isnull(rs("Authenticated")) = False then rs("LastLogin") = Now() rs("LoginCount") = rs("LoginCount") + 1 rs.Update Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.To = Session("GalleryRegistrationTo") objMail.From = "info@PlushDaFunk.co.uk" objMail.Subject = "plushdafunk.co.uk gallery login. Email: " & Request("Email") objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Body = "LOGIN Email: " & Request("Email") objMail.Send Set objMail = nothing Login = true End If End IF rs.close Set rs = nothing set conn = nothing Server.ScriptTimeout = nServerTimeout end if end function %>

Plush Galleries - CLICK HERE

gallery
gallery

Check out some hot shots of Plush Dafunk's last event
more info>

next event
next event

Sat 08.08.15
@ McQueen Shoreditch

more info>

mailing list