<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

[an error occurred while processing this directive]

<%
Dim rsUser__MMColParam
rsUser__MMColParam = "1"
if (Session("MM_Username") <> "") then rsUser__MMColParam = Session("MM_Username")
%>
<%
set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.ActiveConnection = MM_directory_STRING
rsUser.Source = "SELECT U_ID, U_PASSWORD, U_FIRST, U_LAST  FROM USERS  WHERE U_ID = '" + Replace(rsUser__MMColParam, "'", "''") + "'"
rsUser.CursorType = 0
rsUser.CursorLocation = 2
rsUser.LockType = 3
rsUser.Open()
rsUser_numRows = 0
%>
<%
Dim rsAds__MMColParam
rsAds__MMColParam = "0"
if (Session("MM_Username")  <> "") then rsAds__MMColParam = Session("MM_Username") 
%>
<%
set rsAds = Server.CreateObject("ADODB.Recordset")
rsAds.ActiveConnection = MM_directory_STRING
rsAds.Source = "SELECT *  FROM LINKS  WHERE LINK_POSTER = '" + Replace(rsAds__MMColParam, "'", "''") + "'  ORDER BY LINK_DATE  DESC"
rsAds.CursorType = 0
rsAds.CursorLocation = 2
rsAds.LockType = 3
rsAds.Open()
rsAds_numRows = 0
%>
<%
FUNCTION CropSentence(strText, intLength, strTrial) 
  Dim wsCount 
  Dim intTempSize 
  Dim intTotalLen 
  Dim strTemp 
  
  wsCount = 0 
  intTempSize = 0 
  intTotalLen = 0 
  intLength = intLength - Len(strTrial) 
  strTemp = "" 
    
  IF Len(strText) > intLength THEN 
    arrTemp = Split(strText, " ") 
    FOR EACH x IN arrTemp 
      IF Len(strTemp) <= intLength THEN 
        strTemp = strTemp & x & " " 
      END IF 
    NEXT 
      CropSentence = Left(strTemp, Len(strTemp) - 1) & strTrial 
  ELSE 
    CropSentence = strText 
  END IF 
END FUNCTION
%>

<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 3
Repeat1__index = 0
rsAds_numRows = rsAds_numRows + Repeat1__numRows
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rsAds_total
Dim rsAds_first
Dim rsAds_last

' set the record count
rsAds_total = rsAds.RecordCount

' set the number of rows displayed on this page
If (rsAds_numRows < 0) Then
  rsAds_numRows = rsAds_total
Elseif (rsAds_numRows = 0) Then
  rsAds_numRows = 1
End If

' set the first and last displayed record
rsAds_first = 1
rsAds_last  = rsAds_first + rsAds_numRows - 1

' if we have the correct record count, check the other stats
If (rsAds_total <> -1) Then
  If (rsAds_first > rsAds_total) Then
    rsAds_first = rsAds_total
  End If
  If (rsAds_last > rsAds_total) Then
    rsAds_last = rsAds_total
  End If
  If (rsAds_numRows > rsAds_total) Then
    rsAds_numRows = rsAds_total
  End If
End If
%>

<%
Dim MM_paramName 
%>
<%
' *** Move To Record and Go To Record: declare variables

Dim MM_rs
Dim MM_rsCount
Dim MM_size
Dim MM_uniqueCol
Dim MM_offset
Dim MM_atTotal
Dim MM_paramIsDefined

Dim MM_param
Dim MM_index

Set MM_rs    = rsAds
MM_rsCount   = rsAds_total
MM_size      = rsAds_numRows
MM_uniqueCol = "LINK_ID"
MM_paramName = "id"
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

  ' use index parameter if defined, otherwise use offset parameter
  MM_param = Request.QueryString("index")
  If (MM_param = "") Then
    MM_param = Request.QueryString("offset")
  End If
  If (MM_param <> "") Then
    MM_offset = Int(MM_param)
  End If

  ' if we have a record count, check if we are past the end of the recordset
  If (MM_rsCount <> -1) Then
    If (MM_offset >= MM_rsCount Or MM_offset = -1) Then  ' past end or move last
      If ((MM_rsCount Mod MM_size) > 0) Then         ' last page not a full repeat region
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' move the cursor to the selected record
  MM_index = 0
  While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
    MM_rs.MoveNext
    MM_index = MM_index + 1
  Wend
  If (MM_rs.EOF) Then 
    MM_offset = MM_index  ' set MM_offset to the last possible record
  End If

End If
%>
<%
' *** Move To Specific Record: handle detail parameter

If (MM_paramIsDefined And MM_rsCount <> 0) Then

  ' get the value of the parameter
  MM_param = Request.QueryString(MM_paramName)

  ' find the record with the unique column value equal to the parameter value
  MM_offset = 0
  Do While (Not MM_rs.EOF)
    If (CStr(MM_rs.Fields.Item(MM_uniqueCol).Value) = MM_param) Then
      Exit Do
    End If
    MM_offset = MM_offset + 1
    MM_rs.MoveNext
  Loop

  ' if not found, set the number of records and reset the cursor
  If (MM_rs.EOF) Then
    If (MM_rsCount < 0) Then
      MM_rsCount = MM_offset
    End If
    If (MM_size < 0 Or MM_size > MM_offset) Then
      MM_size = MM_offset
    End If
    MM_offset = 0

    ' reset the cursor to the beginning
    If (MM_rs.CursorType > 0) Then
      MM_rs.MoveFirst
    Else
      MM_rs.Close
      MM_rs.Open
    End If
  End If

End If
%>

<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

  ' walk to the end of the display range for this page
  MM_index = MM_offset
  While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
    MM_rs.MoveNext
    MM_index = MM_index + 1
  Wend

  ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  If (MM_rs.EOF) Then
    MM_rsCount = MM_index
    If (MM_size < 0 Or MM_size > MM_rsCount) Then
      MM_size = MM_rsCount
    End If
  End If

  ' if we walked off the end, set the offset based on page size
  If (MM_rs.EOF And Not MM_paramIsDefined) Then
    If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
      If ((MM_rsCount Mod MM_size) > 0) Then
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' reset the cursor to the beginning
  If (MM_rs.CursorType > 0) Then
    MM_rs.MoveFirst
  Else
    MM_rs.Requery
  End If

  ' move the cursor to the selected record
  MM_index = 0
  While (Not MM_rs.EOF And MM_index < MM_offset)
    MM_rs.MoveNext
    MM_index = MM_index + 1
  Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
rsAds_first = MM_offset + 1
rsAds_last  = MM_offset + MM_size

If (MM_rsCount <> -1) Then
  If (rsAds_first > MM_rsCount) Then
    rsAds_first = MM_rsCount
  End If
  If (rsAds_last > MM_rsCount) Then
    rsAds_last = MM_rsCount
  End If
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev

Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
  MM_moveParam = "offset"
  If (MM_keepMove <> "") Then
    MM_paramList = Split(MM_keepMove, "&")
    MM_keepMove = ""
    For MM_paramIndex = 0 To UBound(MM_paramList)
      MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
      If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
        MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
      End If
    Next
    If (MM_keepMove <> "") Then
      MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
    End If
  End If
End If

' set the strings for the move to links
If (MM_keepMove <> "") Then 
  MM_keepMove = MM_keepMove & "&"
End If

MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="

MM_moveFirst = MM_urlStr & "0"
MM_moveLast  = MM_urlStr & "-1"
MM_moveNext  = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
  MM_movePrev = MM_urlStr & "0"
Else
  MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%>

<html>
<head>
<title>WritingSongs.com Directory</title>
<SCRIPT language=javascript>
var loadTheMakes = true;
var MakeCheckFlag = false;


var Models	 = new Array();
var ModelIDs = new Array();
var Segments = new Array();
var Make   = new Array();
var MakeID = new Array();

MakeID[0]='Acura';
Make[0]='AC';
Models[0]='CL,MDX,NSX,NSX-T,RL,RSX,TL';
ModelIDs[0]='253,340,4,3,5,367,2';
MakeID[1]='AM General';
Make[1]='AM';
Models[1]='Hummer H1';
ModelIDs[1]='372';
MakeID[2]='Audi';
Make[2]='AU';
Models[2]='A4,A6,A8,allroad,S4,S6,S8,TT';
ModelIDs[2]='6,7,8,341,9,378,342,10';
MakeID[3]='BMW';
Make[3]='BM';
Models[3]='325,330,525,530,540,740,750,M,M3,M5,X5,Z3';
ModelIDs[3]='327,312,330,329,16,14,11,18,257,19,20,15';
MakeID[4]='Buick';
Make[4]='BU';
Models[4]='Century,LeSabre,Park Avenue,Regal,Rendezvous';
ModelIDs[4]='21,22,23,24,360';
MakeID[5]='Cadillac';
Make[5]='CA';
Models[5]='DeVille,Eldorado,Escalade,Seville';
ModelIDs[5]='25,26,29,27';
MakeID[6]='Chrysler';
Make[6]='CD';
Models[6]='300M,Concorde,Prowler,PT Cruiser,Sebring,Town & Country,Voyager';
ModelIDs[6]='34,31,356,294,33,35,284';
MakeID[7]='Chevrolet';
Make[7]='CH';
Models[7]='Astro,Avalanche 1500,Avalanche 2500,Blazer,Camaro,Cavalier,Corvette,Express,Express LT,Impala,Malibu,Monte Carlo,Prizm,S10,Silverado 1500,Silverado 1500 HD,Silverado 2500,Silverado 2500 HD,Silverado 3500,Suburban 1500,Suburban 2500,Tahoe,Tracker,Trailblazer,Venture';
ModelIDs[7]='57,358,363,46,36,37,38,58,350,44,42,40,43,52,55,347,56,315,317,47,49,48,45,357,59';
MakeID[8]='Daewoo';
Make[8]='DA';
Models[8]='Lanos,Leganza,Nubira';
ModelIDs[8]='60,62,61';
MakeID[9]='Dodge';
Make[9]='DD';
Models[9]='Caravan,Dakota,Durango,Grand Caravan,Intrepid,Neon,Ram 1500,Ram 2500,Ram 3500,Ram Van 1500,Ram Van 2500,Ram Van 3500,Ram Wagon 1500,Ram Wagon 2500,Ram Wagon 3500,Stratus,Viper';
ModelIDs[9]='73,69,68,74,67,64,70,71,72,75,76,77,78,79,80,65,66';
MakeID[10]='Ford';
Make[10]='FO';
Models[10]='Crown Victoria,E-150,E-250,E-350 Super Duty,Escape,Escort,Excursion,Expedition,Explorer,Explorer Sport,Explorer Sport Trac,F-150,F-250,F-350,Focus,Mustang,Ranger,Taurus,Thunderbird,Windstar';
ModelIDs[10]='0,93,94,95,299,82,86,88,87,292,293,89,90,91,85,83,92,84,354,96';
MakeID[11]='GMC';
Make[11]='GM';
Models[11]='Envoy,Safari,Savana,Savana SLT,Sierra 1500,Sierra 1500 HD,Sierra 2500 HD,Sierra 3500,Sonoma,Yukon,Yukon XL 1500,Yukon XL 2500';
ModelIDs[11]='100,107,106,351,103,348,319,105,102,98,296,297';
MakeID[12]='Honda';
Make[12]='HO';
Models[12]='Accord,Civic,CR-V,Insight,Odyssey,Passport,Prelude,S2000';
ModelIDs[12]='108,109,113,291,114,112,110,111';
MakeID[13]='Hyundai';
Make[13]='HY';
Models[13]='Accent,Elantra,Santa Fe,Sonata,Tiburon,XG300';
ModelIDs[13]='115,116,335,117,118,338';
MakeID[14]='Infiniti';
Make[14]='IN';
Models[14]='G20,I30,I35,Q45,QX4';
ModelIDs[14]='119,120,377,121,122';
MakeID[15]='Isuzu';
Make[15]='IS';
Models[15]='Axiom,Rodeo,Rodeo Sport,Trooper,VehiCROSS';
ModelIDs[15]='361,123,332,261,262';
MakeID[16]='Jaguar';
Make[16]='JA';
Models[16]='S-Type,X-Type,XJ8,XJR,XK8,XKR';
ModelIDs[16]='128,365,127,125,126,129';
MakeID[17]='Jeep';
Make[17]='JD';
Models[17]='Grand Cherokee,Liberty,Wrangler';
ModelIDs[17]='132,362,130';
MakeID[18]='Kia';
Make[18]='KI';
Models[18]='Optima,Rio,Sedona,Sephia,Spectra,Sportage';
ModelIDs[18]='353,320,370,133,309,134';
MakeID[19]='Lexus';
Make[19]='LE';
Models[19]='ES300,GS300,GS430,IS300,LS430,LX470,RX300,SC430';
ModelIDs[19]='135,136,328,311,339,141,142,352';
MakeID[20]='Lincoln';
Make[20]='LI';
Models[20]='Blackwood,Continental,LS,Navigator,Town Car';
ModelIDs[20]='345,143,145,146,144';
MakeID[21]='Land Rover';
Make[21]='LR';
Models[21]='Discovery,Range Rover';
ModelIDs[21]='147,148';
MakeID[22]='Mazda';
Make[22]='MA';
Models[22]='626,B2300,B3000,B4000,Millenia,MPV,MX-5 Miata,Protege,Protege5,Tribute';
ModelIDs[22]='152,359,153,154,150,156,149,151,364,316';
MakeID[23]='Mercedes-Benz';
Make[23]='MB';
Models[23]='C230,C240,C32 AMG,C320,CL500,CL55 AMG,CL600,CLK320,CLK430,CLK55 AMG,E320,E430,E55 AMG,ML320,ML500,ML55 AMG,S430,S500,S55 AMG,S600,SL500,SL600,SLK230,SLK32 AMG,SLK320';
ModelIDs[23]='162,336,376,337,269,334,270,164,167,331,158,165,168,170,375,172,169,159,333,268,160,161,163,373,310';
MakeID[24]='Mercury';
Make[24]='ME';
Models[24]='Cougar,Grand Marquis,Mountaineer,Sable,Villager';
ModelIDs[24]='173,174,177,176,178';
MakeID[25]='Mitsubishi';
Make[25]='MI';
Models[25]='Diamante,Eclipse,Eclipse Spyder,Galant,Lancer,Mirage,Montero,Montero Sport';
ModelIDs[25]='180,179,273,181,369,182,183,184';
MakeID[26]='Nissan';
Make[26]='NI';
Models[26]='Altima,Frontier,Maxima,Pathfinder,Quest,Sentra,Xterra';
ModelIDs[26]='185,189,186,188,190,274,187';
MakeID[27]='Oldsmobile';
Make[27]='OL';
Models[27]='Alero,Aurora,Bravada,Intrigue,Silhouette';
ModelIDs[27]='192,275,193,191,194';
MakeID[28]='Pontiac';
Make[28]='PO';
Models[28]='Aztek,Bonneville,Firebird,Grand Am,Grand Prix,Montana,Sunfire';
ModelIDs[28]='308,199,200,201,202,204,203';
MakeID[29]='Porsche';
Make[29]='PR';
Models[29]='911,Boxster';
ModelIDs[29]='205,206';
MakeID[30]='Saturn';
Make[30]='SA';
Models[30]='L-Series,S-Series';
ModelIDs[30]='368,366';
MakeID[31]='Saab';
Make[31]='SB';
Models[31]='9-3,9-5';
ModelIDs[31]='218,219';
MakeID[32]='Subaru';
Make[32]='SU';
Models[32]='Forester,Impreza,Legacy,Outback,Outback Sport';
ModelIDs[32]='223,222,220,221,321';
MakeID[33]='Suzuki';
Make[33]='SZ';
Models[33]='Esteem,Grand Vitara,Grand Vitara XL-7,Swift,Vitara,XL-7';
ModelIDs[33]='224,227,346,225,226,374';
MakeID[34]='Toyota';
Make[34]='TO';
Models[34]='4Runner,Avalon,Camry,Camry Solara,Celica,Corolla,Echo,Highlander,Land Cruiser,MR2 Spyder,Prius,Rav4,Sequoia,Sienna,Tacoma,Tundra';
ModelIDs[34]='234,228,229,233,230,231,232,349,236,295,318,235,344,239,237,238';
MakeID[35]='Volvo';
Make[35]='VO';
Models[35]='C70,S40,S60,S80,V40,V70';
ModelIDs[35]='242,244,343,243,245,240';
MakeID[36]='Volkswagen';
Make[36]='VW';
Models[36]='Cabrio,EuroVan,Golf,GTI,Jetta,New Beetle,Passat';
ModelIDs[36]='246,252,247,251,248,250,249';

		  
</SCRIPT>

<SCRIPT>
<!--
function ClearList(OptionList, TitleName)
{		OptionList.length =	0;
		OptionList.options[0] =	new Option(TitleName, '', true, true);
}
function LoadModels(Index)
{	    
		if (Index >	0)
		{		var	CurrentModels = Models[Index - 1].split(',');
				var	CurrentModelIDs = Models[Index - 1].split(',');
				for	(var i=0; i<CurrentModels.length; i++)
						document.forms[0].modelid.options[i+1] = new Option(CurrentModels[i], CurrentModelIDs[i], false, false);
						document.forms[0].modelid.options[0].selected =	true;
	    }
}
function LoadMakes()
{	     
		loadTheMakes = false;			   
		for	(var i=0; i<Make.length; i++)
				document.forms[0].make.options[i+1]	= new Option(MakeID[i], Make[i], false, false);
		document.forms[0].make.options[0].selected = true;
		ChangeDivision(0);				     
}
function ChangeDivision(CalledFromOnLoad){		
		var	CurrModel = document.forms[0].modelid.selectedIndex;
		var	SelectedMake  = document.forms[0].make.options[document.forms[0].make.selectedIndex].value;
		ClearList(document.forms[0].modelid, 'Select A Model');
		LoadModels(document.forms[0].make.selectedIndex);	   
		if (SelectedMake ==	"")
	    {
			MakeCheckFlag =	false;
	    }
		if (CalledFromOnLoad ==	1)
		{		document.forms[0].modelid.selectedIndex	= CurrModel;	  
	   }					   
}
function MakeCheck()
{ 
  var SelectedMake  = document.forms[0].make.options[document.forms[0].make.selectedIndex].value;  
  if (SelectedMake == "" && MakeCheckFlag == false)
  {	    alert('Please select a make first.');
		MakeCheckFlag =	true;
				return;
  }
}
function Go()
{ 
  var SelectedMake  = document.forms[0].make.options[document.forms[0].make.selectedIndex].value;
  var SelectedModel = document.forms[0].modelid.options[document.forms[0].modelid.selectedIndex].value;
  if (SelectedMake == "")
  {	    alert('Please select a make before clicking Continue.');
				return;
  }
  if (SelectedModel == "")
  {	    alert('Please select a model before clicking Continue.');
				return;


  }	   
    document.forms[0].submit();
    return;
}

//---->
</SCRIPT>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="css/css.css" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<link href="css/scrollbar.css" rel="stylesheet" type="text/css">
<link href="css/style_sheet_core.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="84%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#003366">
  <tr> 
    <td height="179" valign="top" bgcolor="#FFFFFF"><table width="100%" height="124" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td valign="top"><img src="assets/head_01.gif" width="700" height="78"></td>
        </tr>
        <tr> 
          <td height="20" valign="top" background="assets/head_02.gif"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"><a href="http://writingsongs.com">HOME</a></font></b></font><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"><a href="default.asp"></a><font color="#FFFFFF"> 
            </font>|&nbsp;<font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif"><b><a href="addLink.asp">LIST 
            YOUR WORK</a></b></font>|</font><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"><a href="browse.asp"> 
            BROWSE LISTINGS </a></font></b></font><font face="Verdana, Arial, Helvetica, sans-serif">| 
            <a href="c_p.asp">CONTROL PANEL </a></font></b></font><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#333333">|<strong> 
            <b><b> 
            <% If rsUser.EOF And rsUser.BOF Then %>
            <a href="register.asp">REGISTER</a> 
            <% End If ' end rsUser.EOF And rsUser.BOF %>
            </b></b></strong><font color="#000000"><b><b><b> 
            <% If Not rsUser.EOF Or Not rsUser.BOF Then %>
            <a href="<%=MM_Logout%>">LOGOUT</a> 
            <% End If ' end Not rsUser.EOF Or NOT rsUser.BOF %>
            </b></b></b></font></font></font></td>
        </tr>
        <tr> 
          <td height="24" valign="top" background="assets/head_03.gif"><div align="left"><strong><font color="#FF0000" size="2"> 
              </font></strong></div></td>
        </tr>
      </table>
      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#003300">
        <tr> 
          <td valign="top" bgcolor="#FFFFFF"> <div align="left"> 
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr bgcolor="#FFFFFF"> 
                  <% If Not rsUser.EOF Or Not rsUser.BOF Then %>
                  <td colspan="2" align="left" valign="top" bgcolor="#FFFFFF"> <font color="#000000"> 
                    <% If rsAds.EOF And rsAds.BOF Then %>
                    <mm_hiddenregion><MM:DECORATION OUTLINE="Show%20If..." OUTLINEID=4> 
                    </MM:DECORATION></mm_hiddenregion><mm_hiddenregion><MM:DECORATION OUTLINE="Show%20If..." OUTLINEID=4> 
                    </MM:DECORATION></mm_hiddenregion><mm_hiddenregion><MM:DECORATION OUTLINE="Show%20If..." OUTLINEID=4> 
                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr> 
                        <td><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>You 
                          have no ads listing. Click<font color="#0000CC"> <a href="addLink.asp"><u>here</u></a></font> 
                          to submit Links</b></font></td>
                      </tr>
                    </table><font color="#000000"><font color="#FFFFFF">
                    <% End If ' end rsAds.EOF And rsAds.BOF %>
                    </mm:decoration></MM_HIDDENREGION></td>
                  <% End If ' end Not rsUser.EOF Or NOT rsUser.BOF %>
                </tr>
                <tr bgcolor="#FFFFFF"> 
                  <td height="30" align="left" valign="top" bgcolor="#FFFFFF"> 
                    <font color="#000000"> 
                    <% If Not rsAds.EOF Or Not rsAds.BOF Then %>
                    <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Below 
                    is the list of your sites. To view an ad's detail, click on 
                    its title. </b></font> 
                    <% End If ' end Not rsAds.EOF Or NOT rsAds.BOF %>
                    </font></td>
                </tr>
              </table>
              
            </div>
            <% If Not rsAds.EOF Or Not rsAds.BOF Then %>
            <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#000000">
              <tr> 
                <td align="left" valign="top" bgcolor="#FFFFFF"> 
                  <% 
While ((Repeat1__numRows <> 0) AND (NOT rsAds.EOF)) 
%>
                  <table width="100%" border="0" cellspacing="0" cellpadding="3" bgcolor="#000000">
                    <tr align="center" valign="middle" bgcolor="#FFFFFF"> 
                      <td valign="top"><div align="right"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="2"><strong> 
                          </font> 
                          <table width="90%" border="1" align="center" cellpadding="0" cellspacing="1" bordercolor="#336699">
                            <tr bgcolor="#336699"> 
                              <td colspan="2" align="center" valign="middle"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="adDetail.asp?cat_id=<%=(rsAds.Fields.Item("CAT_ID").Value)%>&sub_id=<%=(rsAds.Fields.Item("SUB_ID").Value)%>&LINK_id=<%=(rsAds.Fields.Item("LINK_ID").Value)%>"><strong><%=(rsAds.Fields.Item("LINK_NAME").Value)%>&nbsp; </strong></a></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> 
                                <% If rsAds.Fields.Item("LINK_APPROVED").Value = 1 Then %>
                                <font color="#FF0000"> (approved)</font> 
                                <%Else%>
                                <font color="#FF0000">(pending)</font> 
                                <% End If %>
                                </font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></td>
                            </tr>
                            <tr bordercolor="#FFFFFF" bgcolor="#FFFFFF"> 
                              <td rowspan="5" align="center" valign="middle"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
                                <%if rsAds.Fields.Item("LINK_IMAGE").Value = "" Then %>
                                <img src="images/nopic.gif" width="123" height="68"> 
                                <%else%>
                                <img src="images/<%=(rsAds.Fields.Item("LINK_IMAGE").Value)%>" width="120" height="90"> 
                                <%end if %>
                                </font></td>
                              <td align="center" valign="middle"><div align="right"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="2"><strong>Dated:</strong></font> 
                                  &nbsp;<%=(rsAds.Fields.Item("LINK_DATE").Value)%><font size="2"><strong></strong></font></font></div></td>
                            </tr>
                            <tr bgcolor="#FFFFFF"> 
                              <td height="18" align="center" valign="middle" bordercolor="#FFFFFF"><div align="right"> 
                                  <p><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="2"><strong>SAMPLE  
                                    : </strong></font></font><a href="<%=(rsAds.Fields.Item("LINK_URL").Value)%>"><font color="#0099FF"><%=(rsAds.Fields.Item("LINK_URL").Value)%></font></a></p>
                                </div></td>
                            </tr>
                            <tr bgcolor="#FFFFFF"> 
                              <td align="center" valign="middle" bordercolor="#FFFFFF"><div align="right"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="2"><strong>Ratings</strong></font>: 
                                  <%=(rsAds.Fields.Item("NO_RATES").Value)%></font></div></td>
                            </tr>
                            <tr bgcolor="#FFFFFF"> 
                              <td align="center" valign="middle" bordercolor="#FFFFFF"><div align="right"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Hits:</strong> 
                                  <%=(rsAds.Fields.Item("NO_HITS").Value)%></font></div></td>
                            </tr>
                            <tr bgcolor="#FFFFFF"> 
                              <td align="center" valign="middle" bordercolor="#FFFFFF"><div align="right"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Description</strong></font> 
                                  : <A HREF="linkdetail.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "LINK_ID=" & rsAds.Fields.Item("LINK_ID").Value %>"> 
                                  <font color="#000000"> 
                                  <% =(CropSentence((rsAds.Fields.Item("LINK_DESC").Value), 50, "...")) %>
                                  </font> </A></div></td>
                            </tr>
                            <tr bordercolor="#FFFFFF" bgcolor="#FFFFFF"> 
                              <td width="34%" align="center" valign="middle">&nbsp;</td>
                              <td width="66%" height="0" align="center" valign="middle"><p align="right"><font size="2"><span class="Buttons"><font color="#0066FF" face="Verdana, Arial, Helvetica, sans-serif"><a href="editLink.asp?LINK_id=<%=(rsAds.Fields.Item("LINK_ID").Value)%>&cat_id=<%=(rsAds.Fields.Item("CAT_ID").Value)%>link_id=<%=(rsAds.Fields.Item("SUB_ID").Value)%>"><strong>Edit</strong></a> 
                                  </font><font color="#0066FF" face="Verdana, Arial, Helvetica, sans-serif"></font></span></font><font color="#0066FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">,</font><span class="Buttons"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="linksDeleting.asp?id=<%=(rsAds.Fields.Item("LINK_ID").Value)%>"> 
                                  <strong>Delete</strong></a></font></span></p></td>
                            </tr>
                          </table>
                          <font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
                          </font></div></td>
                    </tr>
                  </table>
                  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsAds.MoveNext()
Wend
%>
                  <table width="50%" border="0" align="center" bgcolor="#FFFFFF">
                    <tr> 
                      <td width="23%" align="center"> 
                        <% If MM_offset <> 0 Then %>
                        <a href="<%=MM_moveFirst%>"><img src="First.gif" border=0></a> 
                        <% End If ' end MM_offset <> 0 %>
                      </td>
                      <td width="31%" align="center"> 
                        <% If MM_offset <> 0 Then %>
                        <a href="<%=MM_movePrev%>"><img src="Previous.gif" border=0></a> 
                        <% End If ' end MM_offset <> 0 %>
                      </td>
                      <td width="23%" align="center"> 
                        <% If Not MM_atTotal Then %>
                        <a href="<%=MM_moveNext%>"><img src="Next.gif" border=0></a> 
                        <% End If ' end Not MM_atTotal %>
                      </td>
                      <td width="23%" align="center"> 
                        <% If Not MM_atTotal Then %>
                        <a href="<%=MM_moveLast%>"><img src="Last.gif" border=0></a> 
                        <% End If ' end Not MM_atTotal %>
                      </td>
                    </tr>
                  </table></td>
              </tr>
            </table>
            <% End If ' end Not rsAds.EOF Or NOT rsAds.BOF %>
          </td>
        </tr>
        <form action=browse.asp 
            method=get name="cars"  onSubmit="javascript:Go();return false;">
        </form>
      </table></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">
      <div align="center"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"><a href="http://writingsongs.com">HOME</a> 
        |<a href="pp.html" target="_blank"> PRIVACY POLICY</a> | <a href="disclaimer.html" target="_blank">DISCLAIMER</a> 
        &copy;2002 ENTHRALLWEB INC. </font></b></font></div>
    </td>
  </tr>
</table>
<p>&nbsp;</p>
<p>&nbsp;</p>
</body>
</html>
<%
rsUser.Close()
Set rsUser = Nothing
%>
<%
rsAds.Close()
Set rsAds = Nothing
%>