<%@LANGUAGE="VBSCRIPT"%>
<%
'===============================================
' Personals System 2002
' ©2002 vSpin.net. www.vspin.net
'===============================================
' All rights reserved.
' Use of this code is covered by the terms and
' conditions in the license agreement. No
' unauthorized duplication or distribution is
' permitted. vSpin.net copyright notices must
' remain in the ASP sections of the code.
'===============================================
%>
<%
'-------------------------
'Expired Ad(s) Auto Inactive
'-------------------------
set rsdate = Server.CreateObject("ADODB.Recordset")
rsdate.ActiveConnection = MM_conn_STRING
rsdate.Source = "SELECT p_id FROM p_ads WHERE p_expdate < Date ()"
rsdate.CursorType = 0
rsdate.CursorLocation = 2
rsdate.LockType = 3
rsdate.Open()
rsdate_numRows = 0
Dim repeat2__numRows
repeat2__numRows = -1
Dim repeat2__index
repeat2__index = 0
rsdate_numRows = rsdate_numRows + repeat2__numRows
If Not rsdate.EOF Or Not rsdate.BOF Then
While ((repeat2__numRows <> 0) AND (NOT rsdate.EOF))
p_idd = rsdate("p_id")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open MM_conn_STRING
sql1 = "UPDATE p_ads SET p_active=1" & p_active & " WHERE p_id=" & p_idd
conn.execute(sql1)
repeat2__index=repeat2__index+1
repeat2__numRows=repeat2__numRows-1
rsdate.MoveNext()
Wend
rsdate.close
set rsdate= nothing
conn.close
set conn = nothing
end if
'---------------------------
'End Expired Ads Inactive
'---------------------------
varUser = Request("name")
set rsSearch = Server.CreateObject("ADODB.Recordset")
rsSearch.ActiveConnection = MM_conn_STRING
rsSearch.Source = "select p_id from p_ads WHERE p_active=0 AND p_user = '" + Replace(varUser, "'", "''") + "'"
rsSearch.CursorType = 0
rsSearch.CursorLocation = 2
rsSearch.LockType = 3
rsSearch.Open()
rsSearch_numRows = 0
%>
<% If rsSearch.EOF Or rsSearch.BOF Then %>
|
Profile Search
|
 |
|
<% Else
response.redirect("details.asp?v="& rsSearch("p_id"))
End If
rsSearch.Close()
MM_conn_STRING.close
set rsSearch = nothing
set MM_conn_STRING = nothing
%>