<%
GirlID = request("id")
If GirlID<>"" Then
If Session("id1")="" Then
Session("id1") = GirlID
ElseIf Session("id2")="" Then
Session("id2") = GirlID
ElseIf Session("id3")="" Then
Session("id3")=GirlID
ElseIf Session("id4")="" Then
Session("id4")=GirlID
ElseIf Session("id5")="" Then
Session("id5")=GirlID
ElseIf Session("id6")="" Then
Session("id6")=GirlID
End If
End If
response.write "
"
For i=1 to 6
If Session("id" & CStr(i))<>"" Then
GID = Session("id" & CStr(i))
Set rs = Server.CreateObject( "ADODB.Recordset" )
rs.Open "select * from users_ads where ain=" & GID,conn,1,3,8
rs.MoveFirst
%>