<% Option Explicit if Request.Cookies("PWB")("UID") <> "" AND Request.Cookies("PWB")("PWD") <> "" AND Request.Cookies("PWB")("LVL") <> "" then Response.Redirect("Conference.asp") %> <% dim strUID, strPWD, bError, bSubmit, strError strUID = Trim(Request.Form("UserID")) strPWD = Trim(Request.Form("UserPWD")) bError = FALSE if Request.Form("SUBMIT") = "login" then bSubmit = TRUE if bSubmit then if strUID = "" or strPWD = "" then bError = TRUE strError = "User ID or Password cannot be blank." else 'DB Opperations strSQL = "SELECT * FROM tblSecurity WHERE User_ID = '" & SqlParam(strUID) & "' AND password = '" & SqlParam(strPWD) & "'" set objCN = Server.CreateObject("ADODB.Connection") objCN.Open(strCN) set objRS = objCN.Execute(strSQL) if objRS.EOF then 'User ID/Password DID NOT match. Show Error bError = TRUE strError = "User ID and Password are not valid." objRS.Close set objRS = nothing objCN.Close set objCN = nothing else 'User ID/Password are valid. Login in user Response.Cookies("PWB")("UID") = objRS("User_ID") Response.Cookies("PWB")("PWD") = objRS("Password") Response.Cookies("PWB")("LVL") = objRS("Group") Response.Redirect("Conference.asp") end if end if end if %>

		login id password	<% if bError then call WriteError(strError) %> If you do not have a login ID and password, please contact your account manager.
This secure area allows clients access to the PWB test site where we post work in progress for client review. It's also the gateway to our FTP server where clients can upload or download files. In the coming months, we will be populating this area with timely information, articles and other resources related to marketing communications. We routinely circulate these "knowledge-expanding" items internally and hope that our clients find them useful as well.

www.pwb.com +1 734.995.5000 tel +1 734.995.5002 fax