<%@ Language=VBScript%> <%Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "driver={MySQL};server=localhost;database=bastique", "bastique", "michael3" Set web = Server.CreateObject("ADODB.Recordset") web.ActiveConnection = Conn web.Source="SELECT * FROM `websites` " web.CursorType=0 web.CursorLocation = 2 web.LockType = 1 web.Open() web_numRows = 0 if Err.Number <> 0 then Response.Redirect "error.asp" end if%>

• * contains adult material
<% While (NOT web.EOF) %>
• " target="new" <%If web.Fields.Item("Adult").Value="1" then%>class="adult" <%end if%>><%=web.Fields.Item("URLTitle").Value%><%If web.Fields.Item("Adult").Value="1" then%>*<%end if%>
<%web.MoveNext() Wend Set web = Nothing %>