% If Len(Session("user_id")) = 0 Then Response.Redirect("membersonly.asp") End If sPageTitle = "Home Page" With Request sFromID = .Item("cboFrom") If Len(sFromID) = 0 Then sFromID = "0" End If sStatusID = .Item("cboStatus") If Len(sStatusID) = 0 Then sStatusID = "1" End If sFiled = .Item("cboFiled") If Len(sFiled) = 0 Then sFiled = "All" End If End With Dim RS '** Look up the player profile. ** sSQL = "SELECT * " & _ "FROM members " & _ "WHERE user_id = " & Session("user_id") Set RS = oConn.Execute(sSQL) %>
|