 |
 |
<%=GetMaleFeaturedProfiles%>
 |
|
<%=GetBanners("HomeBottom")%> |
Recent Profiles
<%
DIM mySQL, objRS
mySQL = "SELECT TOP 3 * from Tbl_profiles where showprofile=true order by user_id_fk desc"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, Cn
%>
| Name |
Age |
Sex |
<%
DIM iRecordCount
iRecordCount = 0
DO WHILE NOT objRS.EOF and iRecordCount <> 3
%>
<%Set RS = Server.CreateObject("ADODB.Recordset")
rs.open "select top 3 * from tbl_user where user_id_pk ="&objrs("user_id_fk")&" order by regdate desc ",cn,3,1
do until rs.eof%>
| " target="_blank"><%=RS("username")%> |
<%rs.movenext
loop%>
<%=objRS("age")%> |
<%=objRS("gender")%> |
<%
iRecordCount = iRecordCount + 1
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
%>
|
|
 |
<%d2=day(date)
m2=month(date)
mySQL = "SELECT * from Tbl_profiles where showprofile=true order by user_id_fk desc"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL,Cn
%>
<%'if objRS<>true then
iRecordCount = 0
Do until objRS.EOF
if(d2=day(objRS("dob")))and(m2=month(objRS("dob")))then%>
<%Set RS = Server.CreateObject("ADODB.Recordset")
rs.open "select * from tbl_user where user_id_pk ="&objrs("user_id_fk")&" order by user_id_pk desc ",cn,3,1
do until rs.eof%>
| " target="_blank"><%=RS("username")%> |
<%rs.movenext
loop%>
<%else
d1=day(date)-10
m2=month(date)
if(d1=day(objRS("dob")))and(m2=month(objRS("dob")))then%>
<%Set RS1 = Server.CreateObject("ADODB.Recordset")
rs1.open "select * from tbl_user where user_id_pk ="&objrs("user_id_fk")&" order by user_id_pk desc ",cn,3,1
do until rs1.eof%>
| " target="target='_blank'"><%=RS1("username")%> |
<%rs1.movenext
loop
end if
end if
objRS.MoveNext
Loop
'end if
objRS.Close
Set objRS = Nothing
%>
|
 |
| <%=GetRightBanner("HomeRight")%> |
 |
<%=GetFemaleFeaturedProfiles%>
|
|
> 