%
dim albumClientID, message, action, redirecturl, lastname
Session("albumClientID")=""
albumClientID = Request("albumClientID")
lastname = Request("lastname")
action = request("action")
if action = "Login" and len(albumClientID) > 0 then
set cn = Server.CreateObject("ADODB.Connection")
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("\database/album2.mdb") & ";"
set rs = cn.Execute("select albumClientID from disc_albums where albumClientID='"&albumClientID&"'")
if not rs.eof then
Session("albumClientID")=rs("albumClientID")
'Response.Write "insert into logging (lastname, clientid, logtime) values('" & lastname & "','" & albumClientID & "','" & date() & "')"
'Response.end
cn.Execute("insert into logging (lastname, clientid, logtime) values('" & lastname & "','" & albumClientID & "','" & date() & " " & time() & "')")
set rs = nothing
cn.Close()
set cn = nothing
Response.redirect "client_default.asp"
else
Session("albumClientID")=""
message="
Login Incorrect. Please try again.
"
end if
set rs = nothing
cn.Close()
set cn = nothing
end if
if len(redirecturl)>0 then
%>
<%
end if
%>