<!--#include file="function.asp"-->
<!--#include file="sql_connect.asp"-->
<%
if IsNumeric(request.QueryString("intAlexaRank")) then
	intAlexaRank = request.QueryString("intAlexaRank")
else
	intAlexaRank = 0
end if
if IsNumeric(request.QueryString("intCompeteRank")) then
	intCompeteRank = request.QueryString("intCompeteRank")
else
	intCompeteRank = 0
end if
if IsNumeric(request.QueryString("intDailyPIs")) then
	intDailyPIs = request.QueryString("intDailyPIs")
else
	intDailyPIs = 0
end if
if IsNumeric(request.QueryString("intDailyUVs")) then
	intDailyUVs = request.QueryString("intDailyUVs")
else
	intDailyUVs = 0
end if
if IsNumeric(request.QueryString("dblCostPerImpression")) then
	dblCostPerImpression = request.QueryString("dblCostPerImpression")
else
	dblCostPerImpression = 0
end if
if IsNumeric(request.QueryString("dblAvgUVs")) then
	dblAvgUVs = request.QueryString("dblAvgUVs")
else
	dblAvgUVs = 0
end if
if IsNumeric(request.QueryString("intMonthlyPIs")) then
	intMonthlyPIs = request.QueryString("intMonthlyPIs")
else
	intMonthlyPIs = 0
end if
if IsNumeric(request.QueryString("intMonthlyUVs")) then
	intMonthlyUVs = request.QueryString("intMonthlyUVs")
else
	intMonthlyUVs = 0
end if
if IsNumeric(request.QueryString("dblAvgPIs")) then
	dblAvgPIs = request.QueryString("dblAvgPIs")
else
	dblAvgPIs = 0
end if
if len(request.QueryString("btnAlexaSave")) > 0 then 'save alexa
	if request.QueryString("AlexaRankID") > 0 then
		s = "UPDATE tblAlexaRank SET " &_
					"intAlexaRank = " & intAlexaRank & _
					", intDailyPIs = " & intDailyPIs & _
					", intDailyUVs = " & intDailyUVs & _
					", dblCostPerImpression = " & dblCostPerImpression & _
					" WHERE AlexaRankID = " & request.QueryString("AlexaRankID") & ";"
		rst = cn.execute(s)
	else
		s = "INSERT INTO tblAlexaRank (intAlexaRank, intDailyPIs, intDailyUVs, dblCostPerImpression)" &_
					" VALUES " & _
					"(" & intAlexaRank & ", " & intDailyPIs & ", " & intDailyUVs & ", " & dblCostPerImpression & ")"
		rst = cn.execute(s)
	end if	
elseif len(request.QueryString("btnCompeteSave")) > 0 then 'save compete
	if request.QueryString("CompeteRankID") > 0 then
		s = "UPDATE tblCompeteRank SET " &_
					"intCompeteRank = " & intCompeteRank & _
					", intDailyPIs = " & intDailyPIs & _
					", intDailyUVs = " & intDailyUVs & _
					", dblCostPerImpression = " & dblCostPerImpression & _
					" WHERE CompeteRankID = " & request.QueryString("CompeteRankID") & ";"
		rst = cn.execute(s)
	else
		s = "INSERT INTO tblCompeteRank (intCompeteRank, intDailyPIs, intDailyUVs, dblCostPerImpression)" &_
					" VALUES " & _
					"(" & intCompeteRank & ", " & intDailyPIs & ", " & intDailyUVs & ", " & dblCostPerImpression & ")"
		rst = cn.execute(s)		
	end if	
elseif len(request.QueryString("btnPISave")) > 0 then 'save PI
	if request.QueryString("PILookupID") > 0 then
		s = "UPDATE tblPILookup SET " &_
					"intMonthlyPIs = " & intMonthlyPIs/30 & _
					", dblAvgUVs = " & dblAvgUVs & _
					", dblCostPerImpression = " & dblCostPerImpression & _
					" WHERE PILookupID = " & request.QueryString("PILookupID") & ";"
					response.Write s
		rst = cn.execute(s)	
	else
		s = "INSERT INTO tblPILookup (intMonthlyPIs, dblAvgUVs, dblCostPerImpression)" &_
					" VALUES " & _
					"(" & intMonthlyPIs/30 & ", " & dblAvgUVs & ", " & dblCostPerImpression & ")"
		rst = cn.execute(s)		
	end if	
elseif len(request.QueryString("btnUVSave")) > 0 then ' save UV
	if request.QueryString("UVLookupID") > 0 then
		s = "UPDATE tblUVLookup SET " &_
					"intMonthlyUVs = " & intMonthlyUVs/30 & _
					", dblAvgPIs = " & dblAvgPIs & _
					" WHERE UVLookupID = " & request.QueryString("UVLookupID") & ";"
		rst = cn.execute(s)	
	else
		s = "INSERT INTO tblUVLookup (intMonthlyUVs, dblAvgPIs)" &_
					" VALUES " & _
					"(" & intMonthlyUVs/30 & ", " & dblAvgPIs & ")"
		rst = cn.execute(s)		
	end if	
end if
if request.QueryString("DeleteAlexaRankID") > 0 then 'delete alexa
	s = "DELETE FROM tblAlexaRank WHERE AlexaRankID = " & request.QueryString("DeleteAlexaRankID")
	rst = cn.execute(s)
elseif request.QueryString("DeleteCompeteRankID") > 0 then 'delete compete
	s = "DELETE FROM tblCompeteRank WHERE CompeteRankID = " & request.QueryString("DeleteCompeteRankID")
	rst = cn.execute(s)	
elseif request.QueryString("DeletePILookupID") > 0 then 'delete PI
	s = "DELETE FROM tblPILookup WHERE PILookupID = " & request.QueryString("DeletePILookupID")
	rst = cn.execute(s)	
elseif request.QueryString("DeleteUVLookupID") > 0 then 'delete UV
	s = "DELETE FROM tblUVLookup WHERE UVLookupID = " & request.QueryString("DeleteUVLookupID")
	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_online_calculations.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%' >Online Publication Calculations</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_online_calculations.asp?list=Alexa' target='innerBody'>
			<%
				if request.QueryString("AlexaRankID") > 0 Or request.QueryString("list") = "Alexa"  Or request.QueryString("DeleteAlexaRankID") > 0 Or len(request.QueryString("btnAlexaNew")) Or len(request.QueryString("btnAlexaSave")) > 0 Or len(request.QueryString("btnAlexaCancel")) > 0 then 
					response.Write "<b>Alexa Rank Lookup</b>"
				else
					response.Write "Alexa Rank Lookup"
				end if
			%>
			</a>
			<br>
			<a href='admin_online_calculations.asp?list=Compete' target='innerBody'>
			<%
				if request.QueryString("CompeteRankID") > 0 Or request.QueryString("list") = "Compete" Or request.QueryString("DeleteCompeteRankID") > 0 Or len(request.QueryString("btnCompeteNew")) Or len(request.QueryString("btnCompeteSave")) > 0 Or len(request.QueryString("btnCompeteCancel")) > 0 then 
					response.Write "<b>Compete Rank Lookup</b>"
				else
					response.Write "Compete Rank Lookup"
				end if
			%>
			</a>
			<br>
			<a href='admin_online_calculations.asp?list=PI' target='innerBody'>
			<%
				if request.QueryString("PILookupID") > 0 Or request.QueryString("list") = "PI" Or request.QueryString("DeletePILookupID") > 0 Or len(request.QueryString("btnPINew")) Or len(request.QueryString("btnPISave")) > 0 Or len(request.QueryString("btnPICancel")) > 0 then 
					response.Write "<b>Page Impression Lookup</b>"
				else
					response.Write "Page Impression Lookup"
				end if
			%>
			</a>
			<br>
			<a href='admin_online_calculations.asp?list=UV' target='innerBody'>
			<%
				if request.QueryString("UVLookupID") > 0 Or request.QueryString("list") = "UV" Or request.QueryString("DeleteUVLookupID") > 0 Or len(request.QueryString("btnUVNew")) Or len(request.QueryString("btnUVSave")) > 0 Or len(request.QueryString("btnUVCancel")) > 0 then 
					response.Write "<b>Unique Viewer Lookup</b>"
				else
					response.Write "Unique Viewer 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") = "Alexa" Or len(request.QueryString("btnAlexaSave")) > 0 Or len(request.QueryString("btnAlexaCancel")) > 0 Or request.QueryString("DeleteAlexaRankID") > 0 then	'alexa list
	%>
	<table class='mtable' width='100%' cellpadding=2 cellspacing=0 border="0" ID="Table2">
		<tr bgcolor='<% response.write x %>'>
			<td><b>Alexa Rank</b></td>
			<td><b>Daily PIs</b></td>
			<td><b>DailyUVs</b></td>
			<td><b>Cost Per Impression</b></td>
			<td><b>Delete</b></td>
		</tr>
			<%
			s= "SELECT * FROM tblAlexaRank ORDER BY intAlexaRank"
			set rst = cn.execute(s)
			while not rst.eof
				x = swapIt(x)
				%>
					<tr bgcolor='<% response.write x %>'>
						<td><a href='admin_online_calculations.asp?AlexaRankID=<% response.write rst("AlexaRankID") %>' target='innerBody'><% response.write rst("intAlexaRank") %></a></td>
						<td><% response.write rst("intDailyPIs") %></td>
						<td><% response.write rst("intDailyUVs") %></td>
						<td><% response.write rst("dblCostPerImpression") %></td>
						<td><a href='admin_online_calculations.asp?DeleteAlexaRankID=<% response.write rst("AlexaRankID") %>' target='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=btnAlexaNew value=Add></td>
		</tr>
  <%
  elseif request.QueryString("list") = "Compete" Or len(request.QueryString("btnCompeteSave")) > 0 Or len(request.QueryString("btnCompeteCancel")) > 0  Or request.QueryString("DeleteCompeteRankID") > 0 then	'compete list
  %>
	<table class='mtable' width='100%' cellpadding=2 cellspacing=0 border="0" ID="Table3">
		<tr bgcolor='<% response.write x %>'>
			<td><b>Compete Rank</b></td>
			<td><b>Daily PIs</b></td>
			<td><b>DailyUVs</b></td>
			<td><b>Cost Per Impression</b></td>
			<td><b>Delete</b></td>
		</tr>
			<%
			s= "SELECT * FROM tblCompeteRank ORDER BY intCompeteRank"
			set rst = cn.execute(s)
			while not rst.eof
				x = swapIt(x)
				%>
					<tr bgcolor='<% response.write x %>'>
						<td><a href='admin_online_calculations.asp?CompeteRankID=<% response.write rst("CompeteRankID") %>' target='innerBody'><% response.write rst("intCompeteRank") %></a></td>
						<td><% response.write rst("intDailyPIs") %></td>
						<td><% response.write rst("intDailyUVs") %></td>
						<td><% response.write rst("dblCostPerImpression") %></td>
						<td><a href='admin_online_calculations.asp?DeleteCompeteRankID=<% response.write rst("CompeteRankID") %>' target='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=btnCompeteNew value=Add ID="Submit7"></td>
		</tr>
  <%
  elseif request.QueryString("list") = "PI" Or len(request.QueryString("btnPISave")) > 0 Or len(request.QueryString("btnPICancel")) > 0 Or request.QueryString("DeletePILookupID") > 0 then	'PI list
  %>
	<table class='mtable' width='100%' cellpadding=2 cellspacing=0 border="0" ID="Table5">
		<tr bgcolor='<% response.write x %>'>
			<td><b>Monthly PIs</b></td>
			<td><b>Avg UVs (X by)</b></td>
			<td><b>Cost Per Impression</b></td>
			<td><b>Delete</b></td>
		</tr>
			<%
			s= "SELECT * FROM tblPILookup ORDER BY intMonthlyPIs"
			set rst = cn.execute(s)
			while not rst.eof
				x = swapIt(x)
				%>
					<tr bgcolor='<% response.write x %>'>
						<td><a href='admin_online_calculations.asp?PILookupID=<% response.write rst("PILookupID") %>' target='innerBody'><% response.write round(rst("intMonthlyPIs") * 30,0) %></a></td>
						<td><% response.write rst("dblAvgUVs") %></td>
						<td><% response.write rst("dblCostPerImpression") %></td>
						<td><a href='admin_online_calculations.asp?DeletePILookupID=<% response.write rst("PILookupID") %>' target='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=btnPINew value=Add ID="Submit8"></td>
		</tr>
  <%
  elseif request.QueryString("list") = "UV" Or len(request.QueryString("btnUVSave")) > 0 Or len(request.QueryString("btnUVCancel")) > 0 Or request.QueryString("DeleteUVLookupID") > 0 then	'UV list
  %>
	<table class='mtable' width='100%' cellpadding=2 cellspacing=0 border="0" ID="Table7">
		<tr bgcolor='<% response.write x %>'>
			<td><b>Monthly UVs</b></td>
			<td><b>Avg PIs (X by)</b></td>
			<td><b>Delete</b></td>
		</tr>
			<%
			s= "SELECT * FROM tblUVLookup ORDER BY intMonthlyUVs"
			set rst = cn.execute(s)
			while not rst.eof
				x = swapIt(x)
				%>
					<tr bgcolor='<% response.write x %>'>
						<td><a href='admin_online_calculations.asp?UVLookupID=<% response.write rst("UVLookupID") %>' target='innerBody'><% response.write round(rst("intMonthlyUVs") * 30,0) %></a></td>
						<td><% response.write rst("dblAvgPIs") %></td>
						<td><a href='admin_online_calculations.asp?DeleteUVLookupID=<% response.write rst("UVLookupID") %>' target='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=btnUVNew value=Add ID="Submit9"></td>
		</tr>
  <%
	elseif request.QueryString("AlexaRankID") > 0 Or len(request.QueryString("btnAlexaNew")) > 0 then 'alexa details
		if request.QueryString("AlexaRankID") > 0 then
			s= "SELECT * FROM tblAlexaRank WHERE AlexaRankID = " & request.QueryString("AlexaRankID")
			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><b>Alexa Rank</b></td>
				<td><b>Daily PIs</b></td>
				<td><b>DailyUVs</b></td>
				<td><b>Cost Per Impression</b></td>
			</tr>
			<tr bgcolor='<% response.write x %>'>
						<input type='hidden' value='<% if request.QueryString("AlexaRankID") > 0 then response.write rst("AlexaRankID") else response.write 0 end if %>' name='AlexaRankID'>
				<td><input type='text' value='<% if request.QueryString("AlexaRankID") > 0 then response.write rst("intAlexaRank") end if %>' name='intAlexaRank'></td>
				<td><input type='text' value='<% if request.QueryString("AlexaRankID") > 0 then response.write rst("intDailyPIs") end if %>' name='intDailyPIs'></td>
				<td><input type='text' value='<% if request.QueryString("AlexaRankID") > 0 then response.write rst("intDailyUVs") end if %>' name='intDailyUVs'></td>
				<td><input type='text' value='<% if request.QueryString("AlexaRankID") > 0 then response.write rst("dblCostPerImpression") end if %>' name='dblCostPerImpression'></td>
			</tr>
			<tr bgcolor='<% response.write x %>'>
				<td colspan='100%' align='right'>
					<input type='submit' value='Save' name='btnAlexaSave'>
					<input type='submit' value='Cancel' name='btnAlexaCancel'>
				</td>
			</tr>
		<%
	elseif request.QueryString("CompeteRankID") > 0  Or len(request.QueryString("btnCompeteNew")) > 0 then 'compete details
		if request.QueryString("CompeteRankID") > 0 then
			s= "SELECT * FROM tblCompeteRank WHERE CompeteRankID = " & request.QueryString("CompeteRankID")
			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>Compete Rank</b></td>
				<td><b>Daily PIs</b></td>
				<td><b>DailyUVs</b></td>
				<td><b>Cost Per Impression</b></td>
			</tr>
			<tr bgcolor='<% response.write x %>'>
						<input type='hidden' value='<% if request.QueryString("CompeteRankID") > 0 then response.write rst("CompeteRankID") else response.Write 0 end if %>' name='CompeteRankID' ID="Hidden1">
				<td><input type='text' value='<% if request.QueryString("CompeteRankID") > 0 then response.write rst("intCompeteRank") end if %>' name='intCompeteRank' ID="Text1"></td>
				<td><input type='text' value='<% if request.QueryString("CompeteRankID") > 0 then response.write rst("intDailyPIs") end if %>' name='intDailyPIs' ID="Text2"></td>
				<td><input type='text' value='<% if request.QueryString("CompeteRankID") > 0 then response.write rst("intDailyUVs") end if %>' name='intDailyUVs' ID="Text3"></td>
				<td><input type='text' value='<% if request.QueryString("CompeteRankID") > 0 then response.write rst("dblCostPerImpression") end if %>' name='dblCostPerImpression' ID="Text4"></td>
			</tr>
			<tr bgcolor='<% response.write x %>'>
				<td colspan='100%' align='right'>
					<input type='submit' value='Save' name='btnCompeteSave' ID="Submit1">
					<input type='submit' value='Cancel' name='btnCompeteCancel' ID="Submit2">
				</td>
			</tr>
		<%
		elseif request.QueryString("PILookupID") > 0  Or len(request.QueryString("btnPINew")) > 0 then 'PI details
			if request.QueryString("PILookupID") > 0 then
				s= "SELECT * FROM tblPILookup WHERE PILookupID = " & request.QueryString("PILookupID")
				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>Monthly PIs</b></td>
				<td><b>Avg UVs (X by)</b></td>
				<td><b>Cost Per Impression</b></td>
			</tr>
			<tr bgcolor='<% response.write x %>'>
						<input type='hidden' value='<% if request.QueryString("PILookupID") > 0 then response.write rst("PILookupID") else response.Write 0 end if %>' name='PILookupID' ID="Hidden2">
				<td><input type='text' value='<% if request.QueryString("PILookupID") > 0 then response.write round(rst("intMonthlyPIs") * 30, 0) end if %>' name='intMonthlyPIs' ID="Text5"></td>
				<td><input type='text' value='<% if request.QueryString("PILookupID") > 0 then response.write rst("dblAvgUVs") end if %>' name='dblAvgUVs' ID="Text6"></td>
				<td><input type='text' value='<% if request.QueryString("PILookupID") > 0 then response.write rst("dblCostPerImpression") end if %>' name='dblCostPerImpression' ID="Text7"></td>
			</tr>
			<tr bgcolor='<% response.write x %>'>
				<td colspan='100%' align='right'>
					<input type='submit' value='Save' name='btnPISave' ID="Submit3">
					<input type='submit' value='Cancel' name='btnPICancel' ID="Submit4">
				</td>
			</tr>
		<%
	elseif request.QueryString("UVLookupID") > 0  Or len(request.QueryString("btnUVNew")) > 0 then 'UV details
		if request.QueryString("UVLookupID") > 0 then
			s= "SELECT * FROM tblUVLookup WHERE UVLookupID = " & request.QueryString("UVLookupID")
			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>Monthly UVs</b></td>
				<td><b>Avg PIs (X by)</b></td>
			</tr>
			<tr bgcolor='<% response.write x %>'>
						<input type='hidden' value='<% if request.QueryString("UVLookupID") > 0 then response.write rst("UVLookupID") else response.Write 0 end if %>' name='UVLookupID' ID="Hidden3">
				<td><input type='text' value='<% if request.QueryString("UVLookupID") > 0 then response.write round(rst("intMonthlyUVs") * 30, 0) end if %>' name='intMonthlyUVs' ID="Text8"></td>
				<td><input type='text' value='<% if request.QueryString("UVLookupID") > 0 then response.write rst("dblAvgPIs") end if %>' name='dblAvgPIs' ID="Text9"></td>
			</tr>
			<tr bgcolor='<% response.write x %>'>
				<td colspan='100%' align='right'>
					<input type='submit' value='Save' name='btnUVSave' ID="Submit5">
					<input type='submit' value='Cancel' name='btnUVCancel' ID="Submit6">
				</td>
			</tr>
		<%	
	end if
	'end of details section
	'start of saving
	
	'end of saving
	%>
	</form>
</body>