<% dim strsql,rs strsql="SELECT ItemCode FROM ContentMaster WHERE CompanyCode = 'itpo'" & _ " AND ItemName = 'Privacy'" set rs=server.CreateObject("adodb.recordset") rs.Open strsql,objConn if rs.EOF = false then strcode=rs("ItemCode") end if if rs.EOF = false then rs.Close set rs=nothing if request("regn")="Y" then Response.Redirect "/contentmgmt/Desktops2.asp?regn=Y&compid=itpo&itemcode=" & strcode elseif request("dir")="y" then Response.Redirect "/contentmgmt/Desktops2.asp?dir=y&compid=itpo&itemcode=" & strcode elseif request("admdir")="y" then Response.Redirect "/contentmgmt/Desktops2.asp?admdir=y&compid=itpo&itemcode=" & strcode elseif request("adv")="y" then Response.Redirect "/contentmgmt/Desktops2.asp?adv=y&compid=itpo&itemcode=" & strcode else Response.Redirect "/contentmgmt/Desktops2.asp?compid=itpo&itemcode=" & strcode end if else rs.Close set rs=nothing end if %>