Sure Bet

<%@ Language=VBScript %> <% Response.Expires=-1 'Response.write Session("ValidUser") If Session("ValidUser") <> 1 then Response.Redirect "login.asp" Else Session("LastPage") = Session("CurrentPage") Session("CurrentPage") = "ClientDataDisplay.asp" End if '///////////////////////////////////////////////////////////////////////////////////// '/ '/ Functions '/ '///////////////////////////////////////////////////////////////////////////////////// Function GetDailyData() strConn = ";DRIVER={SQL Server};UID=BetUser;PWD=12NewYorkcitY2006;DATABASE=Betrci;SERVER=localhost;" Set oConn = server.CreateObject("adodb.connection") oConn.Open strConn sSql = "Select * from vwClientInfo where upper(userid) = '" & ucase(Session("Usercode")) & "' " Set RS = Server.CreateObject("ADODB.Recordset") RS.CursorType = 3 RS.CursorLocation = 3 RS.ActiveConnection = oConn RS.Open sSql Set GetDailyData = RS End Function '///////////////////////////////////////////////////////////////////////////////////// '/ '/ Main Section '/ '///////////////////////////////////////////////////////////////////////////////////// Dim oRS Dim iResult Dim strConn Dim oConn Dim sSQL Dim iColor iColor=0 strConn = ";DRIVER={SQL Server};UID=BetUser;PWD=12NewYorkcitY2006;DATABASE=Betrci;SERVER=localhost;" Set oConn = server.CreateObject("adodb.connection") oConn.Open strConn %> Sure Bet <% If Session("ValidUser") <> 1 then Response.write "" Else Response.write "" End if %>

<% Set oRS = GetDailyData Response.write "Recordcount is: " & oRS.recordcount & "
" %>

Account Info for: <%= oRS.Fields("NickName").value %>

Client Account Information
User Code	<%= oRS.Fields("UserID").value %>	Per Game Wager Limit - Straight	$<%= oRS.Fields("Straight_Wager_Limit").value %>
Password	<%= oRS.Fields("Password").value %>	Per Game Wager Limit - Parlay	$<%= oRS.Fields("Parlay_Wager_Limit").value %>
Agent	<%= oRS.Fields("AgentsName").value %>	Per Game Wager Limit - Teaser	$<%= oRS.Fields("Teaser_Wager_Limit").value %>
Account Type	<%= oRS.Fields("Client_Type_Description").value %>	Per Game Wager Limit - Pleasure	$<%= oRS.Fields("Pleasure_Wager_Limit").value %>
Credit Limit	$<%= oRS.Fields("Credit_Limit").value %>	Max Pay Amount per Wager - Straight	$<%= oRS.Fields("Straight_Max_Pay").value %>
Number of Games per Parlay Wager	<%= oRS.Fields("Parlay_Max_Games").value %>	Max Pay Amount per Wager - Parlay	$<%= oRS.Fields("Parlay_Max_Pay").value %>
Number of Games per Teaser Wager	<%= oRS.Fields("Teaser_Max_Games").value %>	Max Pay Amount per Wager - Teaser	$<%= oRS.Fields("Teaser_Max_Pay").value %>
Number of Games per Pleasure Wager	<%= oRS.Fields("Pleasure_Max_Games").value %>	Max Pay Amount per Wager - Pleasure	$<%= oRS.Fields("Pleasure_Max_Pay").value %>
Juice Discount:	<%= oRS.Fields("JuiceDiscount").value %>



		Pending Wager Balance:	$5000.00
		Current Balance:	($1000.00)