<% Dim conn, SQL, id Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={SQL Server};server=localhost;database=q4p.com","q4p.com","zi2006" SQL = "SELECT siteID FROM linksMain WHERE link = '" & Request.ServerVariables("HTTP_HOST") & "'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, conn, 3, 3 If rs.Recordcount = 1 Then rs.Movefirst id = rs("siteID") SQL = "SELECT link, description FROM linksMain WHERE active = 1 AND siteID <> " & id & " ORDER BY name" Else id = 0 SQL = "SELECT link, description FROM linksMain WHERE active = 1 AND siteID <> " & id & " ORDER BY name" End If Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.Open SQL, conn, 3, 3 %>

<% If rs1.Recordcount < 1 Then %> <% Else rs1.Movefirst Do While Not rs1.EOF %> <% rs1.Movenext() Loop End If %> Currently there are no links listed ">" target="_blank" title="<%= rs1("description") %>"><%= LCase(rs1("link")) %>