<% dim strPageCode strPageCode = "32Pro01" %> <% dim strsql,rs strsql="SELECT ItemCode FROM ContentMaster WHERE CompanyCode = 'itpo'" & _ " AND ItemName = 'Fair Registration'" 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 Response.Redirect "/contentmgmt/Desktops2.asp?fair=Y&compid=itpo&itemcode=" & strcode else rs.Close set rs=nothing end if %>