<% ' Copyright by Erica Andrews aka CyLiKoN JeZuZ aka Li'L CJ, ' November 1999. No one is permitted to implement this script ' or any portion of it on their site without the express written consent ' of the author (cylikon@hotmail.com - ./IcedPinky/). ' All rights reserved. ' This script was hand-coded in ASP by Erica on Dec. 24, 1999 ' Creates a Yahoo-style index from all my sites listed in my MySQL database ' and was originally scripted in PHP3. The script uses the MyODBC 2.50.29 ' driver and MySQL 3.22.9 for database connectivity. %> CJ's Yahoo: ASP Version

CJ's Yahoo: ASP Version

Local Sites: This Server
My Resume
<% ' --- Establishing a DB connection to MySQL using MyODBC ConnString = "DSN=Siteindex" Set conn = Server.CreateObject("ADODB.Connection") conn.Open ConnString Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT title,url FROM thesites WHERE itsgroup='51'" rs.Open strSQL,conn ' ---- Printing out the results into a table Do While Not rs.EOF Response.Write ("" & rs("title") & "
") rs.MoveNext Loop rs.Close Set rs=Nothing %> 		Technical Playground
<% ' --- Establishing a DB connection to MySQL using MyODBC ConnString = "DSN=Siteindex" Set conn = Server.CreateObject("ADODB.Connection") conn.Open ConnString Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT title,url FROM thesites WHERE itsgroup='52'" rs.Open strSQL,conn ' ---- Printing out the results into a table Do While Not rs.EOF Response.Write ("" & rs("title") & "
") rs.MoveNext Loop rs.Close Set rs=Nothing %>
IIS Site Maintenance (Private-Password Required)



My Sites: AOL Server
Home Page
<% ' --- Establishing a DB connection to MySQL using MyODBC ConnString = "DSN=Siteindex" Set conn = Server.CreateObject("ADODB.Connection") conn.Open ConnString Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT title,url FROM thesites WHERE itsgroup='1'" rs.Open strSQL,conn ' ---- Printing out the results into a table Do While Not rs.EOF Response.Write ("" & rs("title") & "
") rs.MoveNext Loop rs.Close Set rs=Nothing %> 		NYC Site
<% ' --- Establishing a DB connection to MySQL using MyODBC ConnString = "DSN=Siteindex" Set conn = Server.CreateObject("ADODB.Connection") conn.Open ConnString Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT title,url FROM thesites WHERE itsgroup='2'" rs.Open strSQL,conn ' ---- Printing out the results into a table Do While Not rs.EOF Response.Write ("" & rs("title") & "
") rs.MoveNext Loop rs.Close Set rs=Nothing %>
Lesbian-Gay
<% ' --- Establishing a DB connection to MySQL using MyODBC ConnString = "DSN=Siteindex" Set conn = Server.CreateObject("ADODB.Connection") conn.Open ConnString Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT title,url FROM thesites WHERE itsgroup='5'" rs.Open strSQL,conn ' ---- Printing out the results into a table Do While Not rs.EOF Response.Write ("" & rs("title") & "
") rs.MoveNext Loop rs.Close Set rs=Nothing %> 		Hiphop
<% ' --- Establishing a DB connection to MySQL using MyODBC ConnString = "DSN=Siteindex" Set conn = Server.CreateObject("ADODB.Connection") conn.Open ConnString Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT title,url FROM thesites WHERE itsgroup='3'" rs.Open strSQL,conn ' ---- Printing out the results into a table Do While Not rs.EOF Response.Write ("" & rs("title") & "
") rs.MoveNext Loop rs.Close Set rs=Nothing %>
Reggae
<% ' --- Establishing a DB connection to MySQL using MyODBC ConnString = "DSN=Siteindex" Set conn = Server.CreateObject("ADODB.Connection") conn.Open ConnString Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT title,url FROM thesites WHERE itsgroup='4'" rs.Open strSQL,conn ' ---- Printing out the results into a table Do While Not rs.EOF Response.Write ("" & rs("title") & "
") rs.MoveNext Loop rs.Close Set rs=Nothing %> 		My Resume
<% ' --- Establishing a DB connection to MySQL using MyODBC ConnString = "DSN=Siteindex" Set conn = Server.CreateObject("ADODB.Connection") conn.Open ConnString Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT title,url FROM thesites WHERE itsgroup='6'" rs.Open strSQL,conn ' ---- Printing out the results into a table Do While Not rs.EOF Response.Write ("" & rs("title") & "
") rs.MoveNext Loop rs.Close Set rs=Nothing %>
About Me
<% ' --- Establishing a DB connection to MySQL using MyODBC ConnString = "DSN=Siteindex" Set conn = Server.CreateObject("ADODB.Connection") conn.Open ConnString Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT title,url FROM thesites WHERE itsgroup='7'" rs.Open strSQL,conn ' ---- Printing out the results into a table Do While Not rs.EOF Response.Write ("" & rs("title") & "
") rs.MoveNext Loop rs.Close Set rs=Nothing %> 		Site Search
<% ' --- Establishing a DB connection to MySQL using MyODBC ConnString = "DSN=Siteindex" Set conn = Server.CreateObject("ADODB.Connection") conn.Open ConnString Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT title,url FROM thesites WHERE itsgroup='8'" rs.Open strSQL,conn ' ---- Printing out the results into a table Do While Not rs.EOF Response.Write ("" & rs("title") & "
") rs.MoveNext Loop rs.Close Set rs=Nothing %>
Ghetto Haunted House
<% ' --- Establishing a DB connection to MySQL using MyODBC ConnString = "DSN=Siteindex" Set conn = Server.CreateObject("ADODB.Connection") conn.Open ConnString Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT title,url FROM thesites WHERE itsgroup='9'" rs.Open strSQL,conn ' ---- Printing out the results into a table Do While Not rs.EOF Response.Write ("" & rs("title") & "
") rs.MoveNext Loop rs.Close Set rs=Nothing %> 		Computers/IT
<% ' --- Establishing a DB connection to MySQL using MyODBC ConnString = "DSN=Siteindex" Set conn = Server.CreateObject("ADODB.Connection") conn.Open ConnString Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT title,url FROM thesites WHERE itsgroup='10'" rs.Open strSQL,conn ' ---- Printing out the results into a table Do While Not rs.EOF Response.Write ("" & rs("title") & "
") rs.MoveNext Loop rs.Close Set rs=Nothing %>