<% 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 %>

Welcome to Chip McGrath Photography.
Please log in using your last name and your assigned client id.
<%=message%>
Last Name:
Client ID:
	If your Portraits/Events do not require a Log In, Click Here