<!--#include file="function.asp"-->
<!--#include file="sql_connect.asp"-->
<%
if Len(request.QueryString("strPublicationType")) > 0 then
	strPublicationType = request.QueryString("strPublicationType")
else
	strPublicationType = ""
end if
if Len(request.QueryString("strContentType")) > 0 then
	strContentType = request.QueryString("strContentType")
else
	strContentType = ""
end if
if Len(request.QueryString("strBusinessPriority")) > 0 then
	strBusinessPriority = request.QueryString("strBusinessPriority")
else
	strBusinessPriority = ""
end if
if Len(request.QueryString("strRegion")) > 0 then
	strRegion = request.QueryString("strRegion")
else
	strRegion = ""
end if
if Len(request.QueryString("strPracticeType")) > 0 then
	strPracticeType = request.QueryString("strPracticeType")
else
	strPracticeType = ""
end if
if Len(request.QueryString("strComments")) > 0 then
	strComments = request.QueryString("strComments")
else
	strComments = ""
end if
if len(request.QueryString("btnPublicationTypeSave")) > 0 then 'save PublicationType
	if request.QueryString("PublicationTypeID") > 0 then
		s = "UPDATE tblPublicationType SET " &_
					"strPublicationType = '" & strPublicationType & _
					"', strComments = '" & strComments & _
					"' WHERE PublicationTypeID = " & request.QueryString("PublicationTypeID") & ";"
		rst = cn.execute(s)
	else
		s = "INSERT INTO tblPublicationType (strPublicationType, strComments)" &_
					" VALUES " & _
					"('" & strPublicationType & "', '" & strComments & "')"
		rst = cn.execute(s)
	end if
elseif len(request.QueryString("btnContentTypeSave")) > 0 then 'save ContentType
	if request.QueryString("ContentTypeID") > 0 then
		s = "UPDATE tblContentType SET " &_
					"strContentType = '" & strContentType & _
					"' WHERE ContentTypeID = " & request.QueryString("ContentTypeID") & ";"
		rst = cn.execute(s)
	else
		s = "INSERT INTO tblContentType (strContentType)" &_
					" VALUES " & _
					"('" & strContentType & "')"
		rst = cn.execute(s)
	end if
elseif len(request.QueryString("btnBusinessPrioritySave")) > 0 then 'save BusinessPriority
	if request.QueryString("BusinessPriorityID") > 0 then
		s = "UPDATE tblBusinessPriority SET " &_
					"strBusinessPriority = '" & strBusinessPriority & _
					"' WHERE BusinessPriorityID = " & request.QueryString("BusinessPriorityID") & ";"
		rst = cn.execute(s)
	else
		s = "INSERT INTO tblBusinessPriority (strBusinessPriority)" &_
					" VALUES " & _
					"('" & strBusinessPriority & "')"
		rst = cn.execute(s)
	end if
elseif len(request.QueryString("btnRegionSave")) > 0 then ' save Region
	if request.QueryString("RegionID") > 0 then
		s = "UPDATE tblRegion SET " &_
					"strRegion = '" & strRegion & _
					"' WHERE RegionID = " & request.QueryString("RegionID") & ";"
		rst = cn.execute(s)
	else
		s = "INSERT INTO tblRegion (strRegion)" &_
					" VALUES " & _
					"('" & strRegion & "')"
		rst = cn.execute(s)
	end if
elseif len(request.QueryString("btnPracticeTypeSave")) > 0 then ' save PracticeType
	if request.QueryString("PracticeTypeID") > 0 then
		s = "UPDATE tblPracticeType SET " &_
					"strPracticeType = '" & strPracticeType & _
					"', strComments = '" & strComments & _
					"' WHERE PracticeTypeID = " & request.QueryString("PracticeTypeID") & ";"
		rst = cn.execute(s)
	else
		s = "INSERT INTO tblPracticeType (strPracticeType, strComments)" &_
					" VALUES " & _
					"('" & strPracticeType & "', '" & strComments & "')"
		rst = cn.execute(s)
	end if
end if
if request.QueryString("DeletePublicationTypeID") > 0 then 'delete PublicationType
	s = "DELETE FROM tblPublicationType WHERE PublicationTypeID = " & request.QueryString("DeletePublicationTypeID")
	rst = cn.execute(s)
elseif request.QueryString("DeleteContentTypeID") > 0 then 'delete ContentType
	s = "DELETE FROM tblContentType WHERE ContentTypeID = " & request.QueryString("DeleteContentTypeID")
	rst = cn.execute(s)
elseif request.QueryString("DeleteBusinessPriorityID") > 0 then 'delete BusinessPriority
	s = "DELETE FROM tblBusinessPriority WHERE BusinessPriorityID = " & request.QueryString("DeleteBusinessPriorityID")
	rst = cn.execute(s)
elseif request.QueryString("DeleteRegionID") > 0 then 'delete Region
	s = "DELETE FROM tblRegion WHERE RegionID = " & request.QueryString("DeleteRegionID")
	rst = cn.execute(s)
elseif request.QueryString("DeletePracticeTypeID") > 0 then 'delete PracticeType
	s = "DELETE FROM tblPracticeType WHERE PracticeTypeID = " & request.QueryString("DeletePracticeTypeID")
	rst = cn.execute(s)
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title></title>
<%
dim x
%>
	<link href='calendar_control/scripts/CalendarControl.css' rel='stylesheet' type='text/css'>
	<link href="style.css" type="text/css" rel="stylesheet"/>
	</head>
	<body topmargin=0 leftmargin=10 class="mtable">
	<form name="form" method="get" action="admin_lookups.asp" ID="form">
	<%
		x = swapIt(x)
	%>
	<table class='mtable' width='100%' cellpadding=2 cellspacing=0 border="0" ID="Table1">
	<tr>
		<td colspan='100%'>&nbsp;</td>
	</tr>
  <tr class='listheading' bgcolor='<% response.write x %>'>
  <td colspan='100%' >Lookups</td></tr>
  <% x = swapIt(x) %>
  <tr  bgcolor='<% response.write x %>'>
		<td colspan='100%'>&nbsp;</td>
	</tr>
  <tr bgcolor='<% response.write x %>'>
		<td colspan='100%' >
			<a href='admin_lookups.asp?list=PublicationType' xtarget='innerBody'>
			<%
				if request.QueryString("PublicationTypeID") > 0 Or request.QueryString("list") = "PublicationType"  Or request.QueryString("DeletePublicationTypeID") > 0 Or len(request.QueryString("btnPublicationTypeNew")) Or len(request.QueryString("btnPublicationTypeSave")) > 0 Or len(request.QueryString("btnPublicationTypeCancel")) > 0 then
					response.Write "<b>Publication Type Lookup</b>"
				else
					response.Write "Publication Type Lookup"
				end if
			%>
			</a>
			<br>
			<a href='admin_lookups.asp?list=ContentType' xtarget='innerBody'>
			<%
				if request.QueryString("ContentTypeID") > 0 Or request.QueryString("list") = "ContentType" Or request.QueryString("DeleteContentTypeID") > 0 Or len(request.QueryString("btnContentTypeNew")) Or len(request.QueryString("btnContentTypeSave")) > 0 Or len(request.QueryString("btnContentTypeCancel")) > 0 then
					response.Write "<b>Content Type Lookup</b>"
				else
					response.Write "Content Type Lookup"
				end if
			%>
			</a>
			<br>
			<a href='admin_lookups.asp?list=BusinessPriority' xtarget='innerBody'>
			<%
				if request.QueryString("BusinessPriorityID") > 0 Or request.QueryString("list") = "BusinessPriority" Or request.QueryString("DeleteBusinessPriorityID") > 0 Or len(request.QueryString("btnBusinessPriorityNew")) Or len(request.QueryString("btnBusinessPrioritySave")) > 0 Or len(request.QueryString("btnBusinessPriorityCancel")) > 0 then
					response.Write "<b>Business Priority Lookup</b>"
				else
					response.Write "Business Priority Lookup"
				end if
			%>
			</a>
			<br>
			<a href='admin_lookups.asp?list=Region' xtarget='innerBody'>
			<%
				if request.QueryString("RegionID") > 0 Or request.QueryString("list") = "Region" Or request.QueryString("DeleteRegionID") > 0 Or len(request.QueryString("btnRegionNew")) Or len(request.QueryString("btnRegionSave")) > 0 Or len(request.QueryString("btnRegionCancel")) > 0 then
					response.Write "<b>Region Lookup</b>"
				else
					response.Write "Region Lookup"
				end if
			%>
			</a>
			<br>
			<a href='admin_lookups.asp?list=PracticeType' xtarget='innerBody'>
			<%
				if request.QueryString("PracticeTypeID") > 0 Or request.QueryString("list") = "PracticeType" Or request.QueryString("DeletePracticeTypeID") > 0 Or len(request.QueryString("btnPracticeTypeNew")) Or len(request.QueryString("btnPracticeTypeSave")) > 0 Or len(request.QueryString("btnPracticeTypeCancel")) > 0 then
					response.Write "<b>Practice Type Lookup</b>"
				else
					response.Write "Practice Type Lookup"
				end if
			%>
			</a>
			<br>
		</td>
	</tr>
	<tr bgcolor='<% response.write x %>'><td colspan="100%">&nbsp;</td></tr>
	<tr bgcolor='<% response.write x %>'><td colspan="100%" align="center">
	<tr>
		<td colspan='100%'>&nbsp;</td>
	</tr>
	</table>
	<%
	'start of lists section
	x = swapIt(x)
	if request.QueryString("list") = "PublicationType" Or len(request.QueryString("btnPublicationTypeSave")) > 0 Or len(request.QueryString("btnPublicationTypeCancel")) > 0 Or request.QueryString("DeletePublicationTypeID") > 0 then	'PublicationType list
	%>
	<table class='mtable' width='100%' cellpadding=2 cellspacing=0 border="0" ID="Table2">
		<tr bgcolor='<% response.write x %>'>
			<td><b>Publication Type</b></td>
			<td><b>Delete</b></td>
		</tr>
			<%
			s= "SELECT * FROM tblPublicationType ORDER BY strPublicationType"
			set rst = cn.execute(s)
			while not rst.eof
				x = swapIt(x)
				%>
					<tr bgcolor='<% response.write x %>'>
						<td><a href='admin_lookups.asp?PublicationTypeID=<% response.write rst("PublicationTypeID") %>' xtarget='innerBody'><% response.write rst("strPublicationType") %></a></td>
						<td><a href='admin_lookups.asp?DeletePublicationTypeID=<% response.write rst("PublicationTypeID") %>' xtarget='innerBody' onclick='return confirm("Are you sure you want to delete this record?");'>Delete</a></td>
					</tr>
				<%
				rst.movenext
			wend
			x = swapIt(x)
			%>
		<tr bgcolor='<% response.write x %>'>
			<td colspan='100%' align=right><input type=submit name=btnPublicationTypeNew value=Add></td>
		</tr>
  <%
  elseif request.QueryString("list") = "ContentType" Or len(request.QueryString("btnContentTypeSave")) > 0 Or len(request.QueryString("btnContentTypeCancel")) > 0  Or request.QueryString("DeleteContentTypeID") > 0 then	'ContentType list
  %>
	<table class='mtable' width='100%' cellpadding=2 cellspacing=0 border="0" ID="Table3">
		<tr bgcolor='<% response.write x %>'>
			<td><b>Content Type</b></td>
			<td><b>Delete</b></td>
		</tr>
			<%
			s= "SELECT * FROM tblContentType ORDER BY strContentType"
			set rst = cn.execute(s)
			while not rst.eof
				x = swapIt(x)
				%>
					<tr bgcolor='<% response.write x %>'>
						<td><a href='admin_lookups.asp?ContentTypeID=<% response.write rst("ContentTypeID") %>' xtarget='innerBody'><% response.write rst("strContentType") %></a></td>
						<td><a href='admin_lookups.asp?DeleteContentTypeID=<% response.write rst("ContentTypeID") %>' xtarget='innerBody' onclick='return confirm("Are you sure you want to delete this record?");'>Delete</a></td>
					</tr>
				<%
				rst.movenext
			wend
			x = swapIt(x)
			%>
		<tr bgcolor='<% response.write x %>'>
			<td colspan='100%' align=right><input type=submit name=btnContentTypeNew value=Add ID="Submit7"></td>
		</tr>
  <%
  elseif request.QueryString("list") = "BusinessPriority" Or len(request.QueryString("btnBusinessPrioritySave")) > 0 Or len(request.QueryString("btnBusinessPriorityCancel")) > 0 Or request.QueryString("DeleteBusinessPriorityID") > 0 then	'BusinessPriority list
  %>
	<table class='mtable' width='100%' cellpadding=2 cellspacing=0 border="0" ID="Table5">
		<tr bgcolor='<% response.write x %>'>
			<td><b>Business Priority</b></td>
			<td><b>Delete</b></td>
		</tr>
			<%
			s= "SELECT * FROM tblBusinessPriority ORDER BY strBusinessPriority"
			set rst = cn.execute(s)
			while not rst.eof
				x = swapIt(x)
				%>
					<tr bgcolor='<% response.write x %>'>
						<td><a href='admin_lookups.asp?BusinessPriorityID=<% response.write rst("BusinessPriorityID") %>' xtarget='innerBody'><% response.write rst("strBusinessPriority") %></a></td>
						<td><a href='admin_lookups.asp?DeleteBusinessPriorityID=<% response.write rst("BusinessPriorityID") %>' xtarget='innerBody' onclick='return confirm("Are you sure you want to delete this record?");'>Delete</a></td>
					</tr>
				<%
				rst.movenext
			wend
			x = swapIt(x)
			%>
		<tr bgcolor='<% response.write x %>'>
			<td colspan='100%' align=right><input type=submit name=btnBusinessPriorityNew value=Add ID="Submit8"></td>
		</tr>
  <%
  elseif request.QueryString("list") = "Region" Or len(request.QueryString("btnRegionSave")) > 0 Or len(request.QueryString("btnRegionCancel")) > 0 Or request.QueryString("DeleteRegionID") > 0 then	'Region list
  %>
	<table class='mtable' width='100%' cellpadding=2 cellspacing=0 border="0" ID="Table7">
		<tr bgcolor='<% response.write x %>'>
			<td><b>Region</b></td>
			<td><b>Delete</b></td>
		</tr>
			<%
			s= "SELECT * FROM tblRegion ORDER BY strRegion"
			set rst = cn.execute(s)
			while not rst.eof
				x = swapIt(x)
				%>
					<tr bgcolor='<% response.write x %>'>
						<td><a href='admin_lookups.asp?RegionID=<% response.write rst("RegionID") %>' xtarget='innerBody'><% response.write rst("strRegion") %></a></td>
						<td><a href='admin_lookups.asp?DeleteRegionID=<% response.write rst("RegionID") %>' xtarget='innerBody' onclick='return confirm("Are you sure you want to delete this record?");'>Delete</a></td>
					</tr>
				<%
				rst.movenext
			wend
			x = swapIt(x)
			%>
		<tr bgcolor='<% response.write x %>'>
			<td colspan='100%' align=right><input type=submit name=btnRegionNew value=Add ID="Submit9"></td>
		</tr>
   <%
   elseif request.QueryString("list") = "PracticeType" Or len(request.QueryString("btnPracticeTypeSave")) > 0 Or len(request.QueryString("btnPracticeTypeCancel")) > 0 Or request.QueryString("DeletePracticeTypeID") > 0 then	'PracticeType list
   %>
	<table class='mtable' width='100%' cellpadding=2 cellspacing=0 border="0" ID="Table7">
		<tr bgcolor='<% response.write x %>'>
			<td><b>PracticeType</b></td>
			<td><b>Delete</b></td>
		</tr>
			<%
			s= "SELECT * FROM tblPracticeType ORDER BY strPracticeType"
			set rst = cn.execute(s)
			while not rst.eof
				x = swapIt(x)
				%>
					<tr bgcolor='<% response.write x %>'>
						<td><a href='admin_lookups.asp?PracticeTypeID=<% response.write rst("PracticeTypeID") %>' xtarget='innerBody'><% response.write rst("strPracticeType") %></a></td>
						<td><a href='admin_lookups.asp?DeletePracticeTypeID=<% response.write rst("PracticeTypeID") %>' xtarget='innerBody' onclick='return confirm("Are you sure you want to delete this record?");'>Delete</a></td>
					</tr>
				<%
				rst.movenext
			wend
			x = swapIt(x)
			%>
		<tr bgcolor='<% response.write x %>'>
			<td colspan='100%' align=right><input type=submit name=btnPracticeTypeNew value=Add ID="btnPracticeTypeNew"></td>
		</tr>
   <%
	elseif request.QueryString("PublicationTypeID") > 0 Or len(request.QueryString("btnPublicationTypeNew")) > 0 then 'PublicationType details
		if request.QueryString("PublicationTypeID") > 0 then
			s= "SELECT * FROM tblPublicationType WHERE PublicationTypeID = " & request.QueryString("PublicationTypeID")
			set rst = cn.execute(s)
		end if
		%>
		<table class='mtable' width='100%' cellpadding=2 cellspacing=0 border="0" ID="Table2">
			<tr bgcolor='<% response.write x %>'>
				<td width=200px><b>Publication Type</b></td><td><b>Comments</b></td>
			</tr>
			<tr bgcolor='<% response.write x %>'>
						<input type='hidden' value='<% if request.QueryString("PublicationTypeID") > 0 then response.write rst("PublicationTypeID") else response.write 0 end if %>' name='PublicationTypeID'>
				<td><input type='text' value='<% if request.QueryString("PublicationTypeID") > 0 then response.write rst("strPublicationType") end if %>' name='strPublicationType' style='width: 200px;' ID="Text2"></td>
				<td><input type='text' value='<% if request.QueryString("PublicationTypeID") > 0 then response.write rst("strComments") end if %>' name='strComments' style='width: 400px;' ID="Text3"></td>
			</tr>
			<tr bgcolor='<% response.write x %>'>
				<td colspan='100%' align='right'>
					<input type='submit' value='Save' name='btnPublicationTypeSave'>
					<input type='submit' value='Cancel' name='btnPublicationTypeCancel'>
				</td>
			</tr>
		<%
	elseif request.QueryString("ContentTypeID") > 0  Or len(request.QueryString("btnContentTypeNew")) > 0 then 'ContentType details
		if request.QueryString("ContentTypeID") > 0 then
			s= "SELECT * FROM tblContentType WHERE ContentTypeID = " & request.QueryString("ContentTypeID")
			set rst = cn.execute(s)
		end if
		%>
		<table class='mtable' width='100%' cellpadding=2 cellspacing=0 border="0" ID="Table4">
			<tr bgcolor='<% response.write x %>'>
				<td><b>Content Type</b></td>
			</tr>
			<tr bgcolor='<% response.write x %>'>
						<input type='hidden' value='<% if request.QueryString("ContentTypeID") > 0 then response.write rst("ContentTypeID") else response.Write 0 end if %>' name='ContentTypeID' ID="Hidden1">
				<td><input type='text' value='<% if request.QueryString("ContentTypeID") > 0 then response.write rst("strContentType") end if %>' name='strContentType' ID="Text1" style='width: 500px;'></td>
			</tr>
			<tr bgcolor='<% response.write x %>'>
				<td colspan='100%' align='right'>
					<input type='submit' value='Save' name='btnContentTypeSave' ID="Submit1">
					<input type='submit' value='Cancel' name='btnContentTypeCancel' ID="Submit2">
				</td>
			</tr>
		<%
		elseif request.QueryString("BusinessPriorityID") > 0  Or len(request.QueryString("btnBusinessPriorityNew")) > 0 then 'BusinessPriority details
			if request.QueryString("BusinessPriorityID") > 0 then
				s= "SELECT * FROM tblBusinessPriority WHERE BusinessPriorityID = " & request.QueryString("BusinessPriorityID")
				set rst = cn.execute(s)
			end if
		%>
		<table class='mtable' width='100%' cellpadding=2 cellspacing=0 border="0" ID="Table6">
			<tr bgcolor='<% response.write x %>'>
				<td><b>Business Priority</b></td>
			</tr>
			<tr bgcolor='<% response.write x %>'>
						<input type='hidden' value='<% if request.QueryString("BusinessPriorityID") > 0 then response.write rst("BusinessPriorityID") else response.Write 0 end if %>' name='BusinessPriorityID' ID="Hidden2">
				<td><input type='text' value='<% if request.QueryString("BusinessPriorityID") > 0 then response.write rst("strBusinessPriority") end if %>' name='strBusinessPriority' ID="Text5" style='width: 500px;'></td>
			</tr>
			<tr bgcolor='<% response.write x %>'>
				<td colspan='100%' align='right'>
					<input type='submit' value='Save' name='btnBusinessPrioritySave' ID="Submit3">
					<input type='submit' value='Cancel' name='btnBusinessPriorityCancel' ID="Submit4">
				</td>
			</tr>
		<%
	elseif request.QueryString("RegionID") > 0  Or len(request.QueryString("btnRegionNew")) > 0 then 'Region details
		if request.QueryString("RegionID") > 0 then
			s= "SELECT * FROM tblRegion WHERE RegionID = " & request.QueryString("RegionID")
			set rst = cn.execute(s)
		end if
		%>
		<table class='mtable' width='100%' cellpadding=2 cellspacing=0 border="0" ID="Table8">
			<tr bgcolor='<% response.write x %>'>
				<td><b>Region</b></td>
			</tr>
			<tr bgcolor='<% response.write x %>'>
						<input type='hidden' value='<% if request.QueryString("RegionID") > 0 then response.write rst("RegionID") else response.Write 0 end if %>' name='RegionID' ID="Hidden3">
				<td><input type='text' value='<% if request.QueryString("RegionID") > 0 then response.write rst("strRegion") end if %>' name='strRegion' ID="Text8" style='width: 500px;'></td>
			</tr>
			<tr bgcolor='<% response.write x %>'>
				<td colspan='100%' align='right'>
					<input type='submit' value='Save' name='btnRegionSave' ID="Submit5">
					<input type='submit' value='Cancel' name='btnRegionCancel' ID="Submit6">
				</td>
			</tr>
		<%
	elseif request.QueryString("PracticeTypeID") > 0  Or len(request.QueryString("btnPracticeTypeNew")) > 0 then 'PracticeType details
		if request.QueryString("PracticeTypeID") > 0 then
			s= "SELECT * FROM tblPracticeType WHERE PracticeTypeID = " & request.QueryString("PracticeTypeID")
			set rst = cn.execute(s)
		end if
		%>
		<table class='mtable' width='100%' cellpadding=2 cellspacing=0 border="0" ID="Table8">
			<tr bgcolor='<% response.write x %>'>
				<td width='200px'><b>PracticeType</b></td><td><b>Comments</b></td>
			</tr>
			<tr bgcolor='<% response.write x %>'>
				<input type='hidden' value="<% if request.QueryString("PracticeTypeID") > 0 then response.write rst("PracticeTypeID") else response.Write 0 end if %>" name='PracticeTypeID' ID="Hidden3">
				<td><input type='text' value="<% if request.QueryString("PracticeTypeID") > 0 then response.write rst("strPracticeType") end if %>" name='strPracticeType' ID="Text8" style='width: 200px;'></td>
				<td><input type='text' value="<% if request.QueryString("PracticeTypeID") > 0 then response.write rst("strComments") end if %>" name='strComments' ID="Text4" style='width: 400px;'></td>
			</tr>
			<tr bgcolor='<% response.write x %>'>
				<td colspan='100%' align='right'>
					<input type='submit' value='Save' name='btnPracticeTypeSave' ID="Submit5">
					<input type='submit' value='Cancel' name='btnPracticeTypeCancel' ID="Submit6">
				</td>
			</tr>
		<%
	end if
	'end of details section
	'start of saving

	'end of saving
	%>
	</form>
</body>