<%@ 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 '/ '///////////////////////////////////////////////////////////////////////////////////// public function dateout(var) dim formed_year : formed_year = right(datepart("yyyy",var),4) dim formed_month : formed_month = right("0" & datepart("m",var),2) dim formed_day : formed_day = right("0" & datepart("d",var),2) dim formed_hour : formed_hour = right("0" & datepart("h",var),2) dim formed_minute : formed_minute = right("0" & datepart("n",var),2) dim formed_second : formed_second = right("0" & datepart("s",var),2) dim return : return = formed_month & "/" & _ formed_day & "/" & _ formed_year dateout = return end function Function GetPendingWagers() strConn = ";DRIVER={SQL Server};UID=BetUser;PWD=12NewYorkcitY2006;DATABASE=Betrci;SERVER=localhost;" Set oConn = server.CreateObject("adodb.connection") oConn.Open strConn sSql = "Select * from vwBetsWebView where upper(userid) = '" & ucase(Session("Usercode")) & "' AND (BetResult = 'Pending')" Set RS = Server.CreateObject("ADODB.Recordset") RS.CursorType = 3 RS.CursorLocation = 3 RS.ActiveConnection = oConn RS.Open sSql Set GetPendingWagers= RS End Function Function GetCurrentActivity() strConn = ";DRIVER={SQL Server};UID=BetUser;PWD=12NewYorkcitY2006;DATABASE=Betrci;SERVER=localhost;" Set oConn = server.CreateObject("adodb.connection") oConn.Open strConn sSql = "Select * from vwBetsWebView where upper(userid) = '" & ucase(Session("Usercode")) & "' AND (BetResult <> 'Pending')" Set RS = Server.CreateObject("ADODB.Recordset") RS.CursorType = 3 RS.CursorLocation = 3 RS.ActiveConnection = oConn RS.Open sSql Set GetCurrentActivity = RS End Function 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 vwBetsWebView where upper(userid) = '" & ucase(Session("Usercode")) & "' AND (dbo.FormatDateTime([Timestamp], 'MM/DD/YYYY') = '" & dateout(date) & "')" 'response.write ssql 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 <% Select case ucase(Request.QueryString("Type")) case "DAILY" sHeading = "Daily Figures for Client: " & Session("Usercode") Set oRS = GetDailyData Response.write "Recordcount is: " & oRS.recordcount & "
" case "PENDING" sHeading = "Pending Wagers for Client: " & Session("Usercode") Set oRS = GetPendingWagers Response.write "Recordcount is: " & oRS.recordcount & "
" case "ACTIVITY" sHeading = "Activity for Client: " & Session("Usercode") Set oRS = GetCurrentActivity Response.write "Recordcount is: " & oRS.recordcount & "
" End Select Response.write("Page Type: " & "" & Request.QueryString("Type")) & "

" %> <% If Session("ValidUser") <> 1 then Response.write "" Else Response.write "" End if %>
 
 

<%= sHeading %>

 

<% Do While Not oRS.EOF %> <% oRS.Movenext Loop %>
Date / Time
Confirmation #
Bet Type
Wager
To Win
Result
  <%= oRS.Fields("Timestamp").value %>
 <%= oRS.Fields("BetType").value %>
  <%= FormatCurrency(oRS.Fields("BetAmount").value, 2) %>
<%= FormatCurrency(oRS.Fields("PayAmount").value, 2) %>
 <%= oRS.Fields("BetResult").value %>