<% 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 siteID <> " & id & " ORDER BY name" Else id = 0 SQL = "SELECT link, description FROM linksMain WHERE siteID <> " & id & " ORDER BY name" End If Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.Open SQL, conn, 3, 3 %> Xhabu.com - Wild Wild World...

xhabu.com - come find out about Xhabu...
Google

<% If rs1.Recordcount < 1 Then %> <% Else rs1.Movefirst Do While Not rs1.EOF %> <% rs1.Movenext() Loop End If %>
Links

Currently there are no links listed
" target="_blank" title="<%= rs1("description") %>"><%= LCase(rs1("link")) %>




© 2006-<%= Year(Now()) %> - Quest 4 Perfection, LLC - webmaster@q4p.com - LINKS