<%@ 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 IIf( expr, truepart, falsepart ) IIf = falsepart If expr Then IIf = truepart End Function Function GetWagerDetails(sConfirmationNumber) strConn = ";DRIVER={SQL Server};UID=BetUser;PWD=12NewYorkcitY2006;DATABASE=Betrci;SERVER=localhost;" Set oConn = server.CreateObject("adodb.connection") oConn.Open strConn sSql = "Select * from vwBetDetail where confirmationnumber = '" & sConfirmationNumber & "' " Set RS = Server.CreateObject("ADODB.Recordset") RS.CursorType = 3 RS.CursorLocation = 3 RS.ActiveConnection = oConn RS.Open sSql Set GetWagerDetails= 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 %>
 
 
 

 

<% response.write("ConfirmationNumber" & Request.QueryString("ConfirmationNumber") & "
") strConn = ";DRIVER={SQL Server};UID=BetUser;PWD=12NewYorkcitY2006;DATABASE=Betrci;SERVER=localhost;" Set oConn = server.CreateObject("adodb.connection") oConn.Open strConn Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 oRS.ActiveConnection = oConn SET oRS = GetWagerDetails(Request.QueryString("ConfirmationNumber")) response.write("recordcount: " & oRS.recordcount & "
") %>

Wager details for the following confirmation for client: <%= Session("Usercode") %>

 

<% oRS.MoveFirst Do While Not oRS.EOF %> <% oRS.MoveNext Loop ' oRS.MoveFirst %>
Wager Details Confirmation # <%= oRs.fields("ConfirmationNumber").value %>  Bet Type: <%= oRs.fields("BetTypeDesc").value %>
Wager # <%= oRs.AbsolutePosition %> : <%= oRs.fields("Team").value %> <%= oRs.fields("GameDate").value %>   <%= oRs.fields("GameTime").value %>  
<%= oRs.fields("League").value %> <%= oRs.fields("TypeDesc").value %> <%= oRs.fields("Selection").value %>  <%= iif(oRs.fields("Selection").value = "Money Line", "", replace(iif(oRs.fields("Spread").value = 0, "PK", oRs.fields("Spread").value), ".5","½")) %>  <%= replace(oRs.fields("Juice").value, ".5","½") %>  for  <%= oRs.fields("Period").value %> Result: <%= oRs.fields("BetLineResult").value %>
 
Wager Result: Risking  <%= FormatCurrency(oRs.fields("BetAmount").value, 2) %>   to Win   <%= FormatCurrency(oRs.fields("PayAmount").value, 2) %> USD Result: Pending