% ' 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. %>
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) |
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 %> |