<!--#include virtual="/includes/topofpage.asp"-->
<%@ Language=VBScript %>
<% 
	Dim Conn
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "DRIVER={SQL Server};SERVER=WEBSRV01;UID=web;pwd=w3bs1t3;DATABASE=AVANTE"

	Dim SQL1, SQL2, SQL3

	SQL1 = "List_Lookup '1'"
	SQL2 = "List_Lookup '2'"
	SQL3 = "List_Lookup '3'"

	Dim RS1, RS2, RS3

	Set RS1=Conn.Execute(SQL1)	
	Set RS2=Conn.Execute(SQL2)	
	Set RS3=Conn.Execute(SQL3)			
%>

<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>
<TITLE>List Lookups</TITLE>
</HEAD>
<BODY>
<br>
<table border="0" cellspacing="0" cellpadding="0" width="640">
<tr bgcolor="#000099"><td><font color="#ffffff">Lookup ID</font></td><td><font color="#ffffff">Lookup Name</font></td><td><font color="#ffffff">Lookup Description</font></td><td><font color="#ffffff">Tier</font></td><td><font color="#ffffff">Verified</font></td></tr>
<%
If Not RS1.EOF Then
   RS1.MoveFirst
   While Not RS1.EOF
	Response.Write ("<tr>")
	Response.Write ("<td>")
	Response.Write (RS1("Lookup_ID"))
	Response.Write ("</td>")
	Response.Write ("<td>")
	Response.Write (RS1("Lookup_Name"))
	Response.Write ("</td>")
	Response.Write ("<td>")
	Response.Write (RS1("Lookup_Description"))
	Response.Write ("</td>")	
	Response.Write ("<td>")
	Response.Write (RS1("Tier"))
	Response.Write ("</td>")	
	Response.Write ("<td>")
	Response.Write (RS1("Verified"))
	Response.Write ("</td>")
	Response.Write ("</tr>")
	RS1.MoveNext
   Wend
End If
%>
</table>
<br>
<table border="0" cellspacing="0" cellpadding="0" width="640">
<tr bgcolor="#000099"><td><font color="#ffffff">Lookup ID</font></td><td><font color="#ffffff">Lookup Name</font></td><td><font color="#ffffff">Lookup Description</font></td><td><font color="#ffffff">Tier</font></td><td><font color="#ffffff">Verified</font></td></tr>
<%
If Not RS2.EOF Then
   RS2.MoveFirst
   While Not RS2.EOF
	Response.Write ("<tr>")
	Response.Write ("<td>")
	Response.Write (RS2("Lookup_ID"))
	Response.Write ("</td>")
	Response.Write ("<td>")
	Response.Write (RS2("Lookup_Name"))
	Response.Write ("</td>")
	Response.Write ("<td>")
	Response.Write (RS2("Lookup_Description"))
	Response.Write ("</td>")	
	Response.Write ("<td>")
	Response.Write (RS2("Tier"))
	Response.Write ("</td>")	
	Response.Write ("<td>")
	Response.Write (RS2("Verified"))
	Response.Write ("</td>")
	Response.Write ("</tr>")
	RS2.MoveNext
   Wend
End If
%>
</table>
<br>
<table border="0" cellspacing="0" cellpadding="0" width="640">
<tr bgcolor="#000099"><td><font color="#ffffff">Lookup ID</font></td><td><font color="#ffffff">Lookup Name</font></td><td><font color="#ffffff">Lookup Description</font></td><td><font color="#ffffff">Tier</font></td><td><font color="#ffffff">Verified</font></td></tr>
<%
If Not RS3.EOF Then
   RS3.MoveFirst
   While Not RS3.EOF
	Response.Write ("<tr>")
	Response.Write ("<td>")
	Response.Write (RS3("Lookup_ID"))
	Response.Write ("</td>")
	Response.Write ("<td>")
	Response.Write (RS3("Lookup_Name"))
	Response.Write ("</td>")
	Response.Write ("<td>")
	Response.Write (RS3("Lookup_Description"))
	Response.Write ("</td>")	
	Response.Write ("<td>")
	Response.Write (RS3("Tier"))
	Response.Write ("</td>")	
	Response.Write ("<td>")
	Response.Write (RS3("Verified"))
	Response.Write ("</td>")
	Response.Write ("</tr>")
	RS3.MoveNext
   Wend
End If
%>
</table>

</BODY>
</HTML>
<%
RS1.Close
RS2.Close
RS3.Close
Set RS1 = Nothing
Set RS2 = Nothing
Set RS3 = Nothing
Set Conn = Nothing
%>