<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** Logout the current user. MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1" If (CStr(Request("MM_Logoutnow")) = "1") Then Session.Contents.Remove("MM_Username") Session.Contents.Remove("MM_UserAuthorization") MM_logoutRedirectPage = "cl_logout.asp" ' redirect with URL parameters (remove the "MM_Logoutnow" query param). if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL")) If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_newQS = "?" For Each Item In Request.QueryString If (Item <> "MM_Logoutnow") Then If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&" MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item)) End If Next if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS End If Response.Redirect(MM_logoutRedirectPage) End If %> <% Dim rsclasshot Dim rsclasshot_numRows Set rsclasshot = Server.CreateObject("ADODB.Recordset") rsclasshot.ActiveConnection = MM_connpacific_STRING rsclasshot.Source = "SELECT Add_ID, Ad_title, cl_Viewed, Add_expired, cl_cat_ID FROM Ads WHERE cl_Viewed > 2 ORDER BY cl_Viewed DESC" rsclasshot.CursorType = 0 rsclasshot.CursorLocation = 2 rsclasshot.LockType = 1 rsclasshot.Open() rsclasshot_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 4 Repeat1__index = 0 rsclasshot_numRows = rsclasshot_numRows + Repeat1__numRows %>

	Home	Personals	Events	Classifieds	Weather	Business Directory
									Control Panel Register Login Place an Ad My Ads Logout Hot Ads : <% If Not rsclasshot.EOF Or Not rsclasshot.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT rsclasshot.EOF)) %> &Add_ID=<%=(rsclasshot.Fields.Item("Add_ID").Value)%>"><%=(rsclasshot.Fields.Item("Ad_title").Value)%>   <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsclasshot.MoveNext() Wend %> <% End If ' end Not rsclasshot.EOF Or NOT rsclasshot.BOF %>
Username Already Exists Please select another

<% rsclasshot.Close() Set rsclasshot = Nothing %>