PWL Creative Print & Design, Dublin Ireland.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim login Dim login_numRows Set login = Server.CreateObject("ADODB.Recordset") login.ActiveConnection = MM_userspwl_STRING login.Source = "SELECT * FROM tblUsers" login.CursorType = 0 login.CursorLocation = 2 login.LockType = 1 login.Open() login_numRows = 0 %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("username")) If MM_valUsername <> "" Then MM_fldDynamicRedirect="URLredirect" MM_fldUserAuthorization="" MM_redirectLoginSuccessDynamic="" MM_redirectLoginFailed="reloginflash.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_userspwl_STRING MM_rsUser.Source = "SELECT UserID, Password" If MM_fldDynamicRedirect <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldDynamicRedirect If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM tblUsers WHERE UserID='" & Replace(MM_valUsername,"'","''") &"' AND Password='" & Replace(Request.Form("pword"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open 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) ElseIf (MM_fldDynamicRedirect <> "") Then MM_redirectLoginSuccessDynamic = CStr(MM_rsUser.Fields.Item(MM_fldDynamicRedirect).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccessDynamic = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccessDynamic) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> PWL Creative Print & Design, Dublin Ireland.

image

PWL's commitment to the e-business side of our business means we have developed a number of online systems. We can provide secure online websites and catalogues which will allow the supplier or retailer easy access to view existing approved label ranges and artworks and place orders online, track orders and view status of orders.