SwingerDirectory.com
features the best
Swinger sites on the net!
Swingers, Parties, Clubs, Information, Contacts
and more...
Rank
Site
In
Out
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Cmd = Server.CreateObject("ADODB.Command")
Set RS = Server.CreateObject("ADODB.Recordset")
Set RS2 = Server.CreateObject("ADODB.Recordset")
sConnectString = "DSN=Swingers;UID=sa;PWD=vr4m6d"
Cmd.CommandType = 1
Conn.Open sConnectString
Set Cmd.ActiveConnection = Conn
sql = "SELECT COUNT(id) as cnt FROM Banners"
Cmd.CommandText = sql
Set RS = Cmd.Execute
RS.MoveFirst
nBanners = RS("cnt")
nBanners = Int(nBanners)
RS.Close
sql = "SELECT * FROM Sites ORDER BY [In] DESC"
Cmd.CommandText = sql
SET RS = Cmd.Execute
RS.MoveFirst()
cnt = 1
x = 1
bCnt = 0
break = 1
DO While NOT RS.EOF
id = RS("id")
name = RS("Name")
url = RS("URL")
desc = RS("Desc")
hIn = RS("In")
hOut = RS("Out")
if x = 2 then
color = "whitesmoke"
x = 0
else
color="white"
end if
if break = 11 then
break = 1
Response.Write("
")
' add banner
Cmd.CommandText = "SELECT * FROM Banners WHERE id = '" & (bCnt + 1) & "'"
Set RS2 = Cmd.Execute
RS2.MoveFirst
bImage = RS2("Banner")
bUrl = RS2("URL")
RS2.Close
Response.Write("
")
'Response.Write("")
%>
<%
Response.Write("
")
Response.Write("
")
Response.Write("
")
Response.Write("
Rank
")
Response.Write("
Site
")
Response.Write("
In
")
Response.Write("
Out
")
Response.Write("
")
bCnt = bCnt + 1
if bCnt = nBanners then bCnt = 0
end if
Response.Write("
