<% if (isNull(request.cookies("cookieUserID"))) or (request.cookies("cookieUserID")="") then response.redirect "index.asp" end if %> <% %>

<% 'print_r(request.QueryString) 'Events..step 1 if len(request.querystring("btnSave")) > 0 then ClientDivisionID = request.QueryString("CDID") refClientID = request.QueryString("CID") strClientDivision = unquote(request.QueryString("strClientDivision")) s = "SELECT COUNT(ClientDivisionID) as intCount FROM tblClientDivision WHERE refClientID = '" & refClientID & "' AND strClientDivision = '" & strClientDivision & "' AND NOT ClientDivisionID = " & ClientDivisionID & ";" 'response.write s rst = cn.execute(s) if rst("intCount") > 0 then alert(rst("intCount") & " : Client Division '" & strClientDivision & "' already exists") js("history.back();") response.end else if ClientDivisionID > 0 then s = "UPDATE tblClientDivision SET strClientDivision = '" & strClientDivision & _ "' WHERE ClientDivisionID = " & ClientDivisionID & ";" 'response.write s 'response.end cn.execute(s) else s = "INSERT INTO tblClientDivision(refClientID, strClientDivision)" & _ " VALUES(" & refClientID & ",'" & strClientDivision & "');" 'response.write s 'response.end cn.execute(s) end if response.redirect "clientdetail.asp?CID=" & refClientID end if end if 'Pageload.. ClientDivisionID = request.QueryString("CDID") response.Write "" refClientID = request.QueryString("CID") response.Write "" dim strClientDivision if ClientDivisionID > 0 then x = swapIt(x) s = "SELECT *, tblClient.strClient FROM tblClientDivision RIGHT OUTER JOIN tblClient ON ClientID = refClientID WHERE ClientDivisionID = " & ClientDivisionID & ";" 'response.write s 'response.end set rst = cn.execute(s) if not rst.eof then strClientDivision = rst("strClientDivision") strClient = rst("strClient") 'response.write strClient end if rst.close else x = swapIt(x) s = "SELECT strClient FROM tblClient WHERE ClientID = " & refClientID &";" set rst = cn.execute(s) if not rst.eof then strClient = rst("strClient") 'response.write strClient end if rst.close end if %>

Client Division Details
Client Division Name:
Client:	<% response.write strClient %>