<%
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={SQL Server};SERVER=WEBSRV01;UID=web;pwd=w3bs1t3;DATABASE=AVANTE"
	Set RS = Server.CreateObject("ADODB.Recordset")
  SQL = "List_Lookup '1'"
  RS.Open SQL, Conn
%>
<html>
<STYLE>
BODY {SCROLLBAR-FACE-COLOR: #5e5ebe; SCROLLBAR-HIGHLIGHT-COLOR: #5e5ebe; SCROLLBAR-SHADOW-COLOR: #5e5ebe; SCROLLBAR-3DLIGHT-COLOR: #5e5ebe; SCROLLBAR-ARROW-COLOR:  #6666CC; SCROLLBAR-TRACK-COLOR: #E3E3E3; SCROLLBAR-DARKSHADOW-COLOR: #666666; }
</STYLE>
<head>
<% If Request.QueryString("Brand") = "1" Then %>
<title>Create a Brand</title>
<% Else %>
<title>Create an Entity</title>
<% End If %>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
var url;
url = "entity_create-frame.asp";

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}

function MM_jumpMenu(targ,selObj,restore){ //v3.0
  var selindex;
  selindex=selObj.selectedIndex;
  if (restore) selObj.selectedIndex=0;
  if (selObj.options[selindex].value != '') {
    eval(targ+".location='"+url+"?Create=<%= Request.QueryString("Create") %>&Brand=<%= Request.QueryString("Brand") %>&Redir=<%= Request.QueryString("Redir") %>&From=<% Request.QueryString("From") %>&Lookup="+selObj.options[selindex].value+"'");
  }
}

//-->


</script>
</head>

<body bgcolor="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table width="525" border="0" cellspacing="0" cellpadding="1" style="LEFT: 0px; TOP: 14px">
  <TBODY style="BACKGROUND-COLOR: white">
  <tr bgcolor="#6699cc"> 
    <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000">&nbsp;&nbsp;&nbsp;Create 
<% If Request.QueryString("Brand") = "1" Then %>
a Brand
<% Else %>
an Entity
<% End If %>
    </font></b></td>
  </tr>
  <tr><td align="right">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1"><font color="#000099">
Choose the category that best describes the 
<% If Request.QueryString("Brand") = "1" Then %>
Brand
<% Else %>
Entity
<% End If %>: &nbsp;
<select name="Lookup" onChange="MM_jumpMenu('document',this,1)">
<option value="">Select</option>
<% 
RS.MoveFirst
While Not RS.EOF
	Response.Write("<option value=""" & RS.Fields(0) & """>" & RS.Fields(1) & "</option>" & Chr(13))
	RS.MoveNext
Wend
RS.Close
Set RS = Nothing
Set Conn = Nothing
%>
</select>
</font></font>

&nbsp;<br><br><div align="center">
<INPUT id=CloseWindow onclick=window.close(); type=button value="Close This Window" name=CloseWindow>
</div>
</td></tr></table>
</body>
</html>
