Søg
Avatar billede no_doubt Nybegynder
30. marts 2003 - 21:28 Der er 50 kommentarer og
1 løsning

decimaler

En der har tid til at gå igennem min side og gøre sådan at der altid er 2 tal efter kommaet og de skal indgå i beregningerne osv.
Det er nok meget nemt for kendere sååå
Avatar billede medions Nybegynder
30. marts 2003 - 21:37 #1
FormatNumber(streng,2)

//>Rune
Avatar billede medions Nybegynder
30. marts 2003 - 21:38 #2
fx.:

intTal = 125
intTal = FormatNumber(intTal, 2)

-her vil resultatet så blive 125,00

//>Rune
Avatar billede no_doubt Nybegynder
30. marts 2003 - 21:39 #3
kan jeg få dig til at se på de to sider, og database, hvor den vil ikke gøre noget med decimaler ?
Avatar billede no_doubt Nybegynder
30. marts 2003 - 21:58 #4
Må hellere hæve pointsne
Avatar billede medions Nybegynder
30. marts 2003 - 22:59 #5
Hmm jeg kan da prøve... -fortæl lidt om hvad det er og send mig filerne til rune@medions.dk

//>Rune
Avatar billede no_doubt Nybegynder
30. marts 2003 - 23:04 #6
sendt med beskrivelse, håber du kan holde mig up to date imens.
Avatar billede medions Nybegynder
30. marts 2003 - 23:06 #7
Prøv at fortæl lidt om hvad det er du vil ha' den til, og hvor, den skal vise decimalerne osv.!

//>Rune
Avatar billede medions Nybegynder
30. marts 2003 - 23:07 #8
Ahh ok, det fulgte med ;o)

//>Rune
Avatar billede medions Nybegynder
30. marts 2003 - 23:11 #9
Øhh ok, i hvilken af filerne skal det ske?

//>Rune
Avatar billede no_doubt Nybegynder
30. marts 2003 - 23:14 #10
default skal vise dem og gemodds skal kunne bearbejde kommatallene. det skal default egentlig også
Avatar billede medions Nybegynder
30. marts 2003 - 23:14 #11
Altså er det sådan her du mener?

<html>

<head>
<title></title>
</head>

<body>

<form method="POST" action="gemodds.asp" onsubmit="return check_Form(this)" name="form">
  <p><strong><small><font face="Arial"><%set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from brugere"
Set Rs = Conn.Execute(strSQL)%>Spiller: <%=rs("bruger")%></font></small></strong><br>
  <script language="JavaScript"><!--
max = <%=rs("points")%>;
enheder = "points";
function check_Form(frm) {
  tal = parseFloat(frm.indskud.value.replace(/,/, "."), 10);
  if (isNaN(tal)) {
    alert("Det indtastede er ikke et tal.");
    return false;
  }
  tal = Math.round(tal * 100) / 100;
  if (tal > max) {
    alert("Du forsøgte med " + tal.toString().replace(/\./, ",") + "\nDu har kun " + max + " points at gøre godt med.");
    return false;
  }
  return true;
}
// --></script><%set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "SELECT * FROM spil where SpilID = 4"
Set rs = Conn.Execute(strSQL)
if rs.eof then
Response.Write ("Der er ingen ukendte ord")
else%></p>
  <p><font face="Arial"><strong><%=rs("SpilEmne")%></strong><small><br>
  <strong><%=rs("SpilNavn")%></strong><br>
<%=rs("Spilbeskrivelse")%>  </small></font></p>
  <table border="1" cellpadding="0" width="357" bordercolor="#000000" height="41">
    <tr>
      <td width="256" align="left" height="18"><div align="left"><p><small><font face="Arial">Emner</font></small></td>
      <td width="100" align="right" height="18"><div align="center"><center><p><font
      face="Arial"><small>Odds</small></font></td>
    </tr>
<%do while not rs.EOF%>
    <tr align="center">
      <td width="256" align="left" height="15"><a
      href="default.asp?ID=<%=rs("ID")%>&amp;SpilNavn=<%=rs("SpilNavn")%>"
      style="color: rgb(0,0,0)"><small><font face="Arial"><%=rs("emne")%></font></small></a></td>
      <td width="100" align="right" height="15"><small><font face="Arial"><%=rs("odds")%></font></small></td>
    </tr>
<%rs.movenext
loop
end if
%>
  </table>
  <div align="center"><center><p><%If request.querystring("ID") <> "" Then
ID = request.querystring("ID")
SpilNavn = ID = request.querystring("SpilNavn")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from spil where ID = "& ID &""
Set Rs = Conn.Execute(strSQL)
do while not rs.EOF%><%response.write "<input type=""hidden"" name=""emne"" value=""" & rs("emne") & """>"
response.write "<input type=""hidden"" name=""SpilID"" value=""" & rs("SpilNavn") & """>"
response.write "<input type=""hidden"" name=""odds"" value=""" & rs("odds") & """>"%></p>
  </center></div><div align="left"><table border="1" cellpadding="0" width="357"
  bordercolor="#000000" height="43">
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Indsats</strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Indskud:</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><input
      type="text" name="indskud" size="5" style="text-align: right"></font></small></td>
    </tr>
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Spil: <%=rs("SpilNavn")%></strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial"><%=rs("emne")%></font></small></td>
      <td width="102" align="right" height="28" valign="middle"><div align="right"><p><small><font
      face="Arial">Odds:<%=rs("odds")%></font></small></td>
    </tr>
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Status</strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Til rådighed:</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><script
      language="JavaScript"><!--
document.write(max);
// --></script> <script language="JavaScript"><!--
document.write(enheder);
// --></script></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Udfør</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><input
      type="submit" value="Udfør" name="B1"></font></small></td>
    </tr>
<%rs.movenext
loop
%>
<%end if%>
  </table>
  </div>
</form>

<p align="left"><font face="Arial"><a href="default.asp?Navn=Mark"
style="color: rgb(0,0,0)"><small><u>Dine spil</u></small></a><br>
</font><%If request.querystring("Navn") <> "" Then
Navn = request.querystring("Navn")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from dinespil where bruger = '"& Navn &"'"
Set Rs = Conn.Execute(strSQL)
if rs.eof then
Response.Write ("Du har ingen spil")
else%></p>
<div align="left">

<table border="1" bordercolor="#000000" width="558" cellpadding="0" height="38">
  <tr>
    <td width="131" height="16"><small><font face="Arial">Spil</font></small></td>
    <td width="122" height="16"><small><font face="Arial">Vinder</font></small></td>
    <td width="101" height="16"><small><font face="Arial">Indsats</font></small></td>
    <td width="101" height="16"><small><font face="Arial">Odds</font></small></td>
    <td width="103" height="16"><small><font face="Arial">Mulig gevindst</font></small></td>
  </tr>
<%do while not rs.EOF%>
  <tr>
    <td width="131" height="14"><small><font face="Arial"><%=rs("Spil")%></font></small></td>
    <td width="122" height="14"><small><font face="Arial"><%=rs("vinder")%></font></small></td>
    <td width="101" height="14"><p align="right"><font face="Arial"><small><%=rs("indsats")%> <script
    language="JavaScript"><!--
document.write(enheder);
// --></script></small></font></td>
<%
    If Not InStr(rs("indsats"),",") Then
        intAmount = FormatNumber(rs("indsats"),2)
    End If
%>
    <td width="101" height="14"><p align="right"><small><font face="Arial"><%=rs("odds")%></font></small></td>
    <td width="103" height="14"><p align="right"><font face="Arial"><%resultat = intAmount * intAmount
response.write resultat%><small> <script
    language="JavaScript"><!--
document.write(enheder);
// --></script></small></font></td>
  </tr>
<%rs.movenext
loop
end if%>
</table>
</div>

<p align="center">Mulig gevindst er udregnet med:</p>

<p align="center">resultat = rs(&quot;indsats&quot;) * rs(&quot;odds&quot;)<br>
response.write resultat<br>
<%end if%></p>
</body>
</html>

//>Rune
Avatar billede medions Nybegynder
30. marts 2003 - 23:17 #12
Og i gemodds.asp skal det så være sådan her:

<%
    If Not InStr(Request.Form("Indskud"),",") Then
        intAmount = FormatNumber(Request.Form("Indskud"),2)
    End If
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
sql = "INSERT INTO dinespil (bruger, spil, vinder, indsats, odds) VALUES ('Mark', '" & Request.Form("SpilID")& "', '" & Request.Form("emne") & "', '" & intAmount & "', '" & Request.Form("odds") & "')"
response.write sql
Conn.execute(sql)
%>
<%
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
indsatspoints = "update brugere set points=points-'" & Request.Form("indskud") & "' where bruger='Mark'"
Conn.execute(indsatspoints)
response.redirect "default.asp"
%>
<html>

<head>
<title></title>
</head>

<body>
</body>
</html>

//>Rune
Avatar billede no_doubt Nybegynder
30. marts 2003 - 23:17 #13
prøv at se:
http://1q.frip.dk/odds/default.asp?Navn=Mark

Mulig gevindst kan jo ikke pass er så meget
desuden skal der komme et 0 på oddset så det er 1,50
Avatar billede medions Nybegynder
30. marts 2003 - 23:18 #14
Et nul hvor henne? -i starten af resultatet eller i slutningen? <- forklar det lidt bedere!

//>Rune
Avatar billede no_doubt Nybegynder
30. marts 2003 - 23:21 #15
prøv lige at se mulig gevindst.. og gang så 1,65 med 1,5 det er vidst ikke det tal *g*
øhh et ekstra 0 så 1,5 bliver til 1,50
Hvis det havde været 1 skulle der have stået 1,00
osv.
Avatar billede medions Nybegynder
30. marts 2003 - 23:23 #16
Det gør funktionen oxo nu!
-men jeg forstår ik' rigtig hvad du mener med den mulige gevindst! -hvad er det du vil ha' lavet der... (tag højde for jeg her tømmermænd i dag)

//>Rune
Avatar billede medions Nybegynder
30. marts 2003 - 23:27 #17
Prøv lige sådan her:

<%
    Function ConvertAmount (intAmount)
        ConvertAmount = FormatNumber(intAmount,2)
        End If
    End Function
%>
<html>

<head>
<title></title>
</head>

<body>

<form method="POST" action="gemodds.asp" onsubmit="return check_Form(this)" name="form">
  <p><strong><small><font face="Arial"><%set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from brugere"
Set Rs = Conn.Execute(strSQL)%>Spiller: <%=rs("bruger")%></font></small></strong><br>
  <script language="JavaScript"><!--
max = <%=rs("points")%>;
enheder = "points";
function check_Form(frm) {
  tal = parseFloat(frm.indskud.value.replace(/,/, "."), 10);
  if (isNaN(tal)) {
    alert("Det indtastede er ikke et tal.");
    return false;
  }
  tal = Math.round(tal * 100) / 100;
  if (tal > max) {
    alert("Du forsøgte med " + tal.toString().replace(/\./, ",") + "\nDu har kun " + max + " points at gøre godt med.");
    return false;
  }
  return true;
}
// --></script><%set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "SELECT * FROM spil where SpilID = 4"
Set rs = Conn.Execute(strSQL)
if rs.eof then
Response.Write ("Der er ingen ukendte ord")
else%></p>
  <p><font face="Arial"><strong><%=rs("SpilEmne")%></strong><small><br>
  <strong><%=rs("SpilNavn")%></strong><br>
<%=rs("Spilbeskrivelse")%>  </small></font></p>
  <table border="1" cellpadding="0" width="357" bordercolor="#000000" height="41">
    <tr>
      <td width="256" align="left" height="18"><div align="left"><p><small><font face="Arial">Emner</font></small></td>
      <td width="100" align="right" height="18"><div align="center"><center><p><font
      face="Arial"><small>Odds</small></font></td>
    </tr>
<%do while not rs.EOF%>
    <tr align="center">
      <td width="256" align="left" height="15"><a
      href="default.asp?ID=<%=rs("ID")%>&amp;SpilNavn=<%=rs("SpilNavn")%>"
      style="color: rgb(0,0,0)"><small><font face="Arial"><%=rs("emne")%></font></small></a></td>
      <td width="100" align="right" height="15"><small><font face="Arial"><%=ConvertAmount(rs("odds"))%></font></small></td>
    </tr>
<%rs.movenext
loop
end if
%>
  </table>
  <div align="center"><center><p><%If request.querystring("ID") <> "" Then
ID = request.querystring("ID")
SpilNavn = ID = request.querystring("SpilNavn")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from spil where ID = "& ID &""
Set Rs = Conn.Execute(strSQL)
do while not rs.EOF%><%response.write "<input type=""hidden"" name=""emne"" value=""" & rs("emne") & """>"
response.write "<input type=""hidden"" name=""SpilID"" value=""" & rs("SpilNavn") & """>"
response.write "<input type=""hidden"" name=""odds"" value=""" & rs("odds") & """>"%></p>
  </center></div><div align="left"><table border="1" cellpadding="0" width="357"
  bordercolor="#000000" height="43">
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Indsats</strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Indskud:</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><input
      type="text" name="indskud" size="5" style="text-align: right"></font></small></td>
    </tr>
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Spil: <%=rs("SpilNavn")%></strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial"><%=ConvertAmount(rs("emne"))%></font></small></td>
      <td width="102" align="right" height="28" valign="middle"><div align="right"><p><small><font
      face="Arial">Odds:<%=rs("odds")%></font></small></td>
    </tr>
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Status</strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Til rådighed:</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><script
      language="JavaScript"><!--
document.write(max);
// --></script> <script language="JavaScript"><!--
document.write(enheder);
// --></script></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Udfør</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><input
      type="submit" value="Udfør" name="B1"></font></small></td>
    </tr>
<%rs.movenext
loop
%>
<%end if%>
  </table>
  </div>
</form>

<p align="left"><font face="Arial"><a href="default.asp?Navn=Mark"
style="color: rgb(0,0,0)"><small><u>Dine spil</u></small></a><br>
</font><%If request.querystring("Navn") <> "" Then
Navn = request.querystring("Navn")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from dinespil where bruger = '"& Navn &"'"
Set Rs = Conn.Execute(strSQL)
if rs.eof then
Response.Write ("Du har ingen spil")
else%></p>
<div align="left">

<table border="1" bordercolor="#000000" width="558" cellpadding="0" height="38">
  <tr>
    <td width="131" height="16"><small><font face="Arial">Spil</font></small></td>
    <td width="122" height="16"><small><font face="Arial">Vinder</font></small></td>
    <td width="101" height="16"><small><font face="Arial">Indsats</font></small></td>
    <td width="101" height="16"><small><font face="Arial">Odds</font></small></td>
    <td width="103" height="16"><small><font face="Arial">Mulig gevindst</font></small></td>
  </tr>
<%do while not rs.EOF%>
  <tr>
    <td width="131" height="14"><small><font face="Arial"><%=rs("Spil")%></font></small></td>
    <td width="122" height="14"><small><font face="Arial"><%=rs("vinder")%></font></small></td>
    <td width="101" height="14"><p align="right"><font face="Arial"><small><%=ConvertAmount(rs("indsats"))%> <script
    language="JavaScript"><!--
document.write(enheder);
// --></script></small></font></td>

    <td width="101" height="14"><p align="right"><small><font face="Arial"><%=rs("odds")%></font></small></td>
    <td width="103" height="14"><p align="right"><font face="Arial"><%resultat = intAmount * intAmount
response.write resultat%><small> <script
    language="JavaScript"><!--
document.write(enheder);
// --></script></small></font></td>
  </tr>
<%rs.movenext
loop
end if%>
</table>
</div>

<p align="center">Mulig gevindst er udregnet med:</p>

<p align="center">resultat = rs(&quot;indsats&quot;) * rs(&quot;odds&quot;)<br>
response.write resultat<br>
<%end if%></p>
</body>
</html>

//>Rune
Avatar billede no_doubt Nybegynder
30. marts 2003 - 23:29 #18
okay...
1: I odd feltet på default.asp når man har valgt en vinder skriver den nu, hvis du vælger Nummer 2, 2,7 der skal den skrive 2,7 alså selv finde ud af at der kun er et tal efter kommaet og selv sætte et ekstra nul på.

2: Mht. Mulig gevindst skriver den nu et helt vildt tal, jeg har satset 1,65 points, jeg kan hvis jeg vinder få pointsne 1,5(0) gange tilbage det giver ikke 27225 points men : 2,47
Avatar billede no_doubt Nybegynder
30. marts 2003 - 23:40 #19
er du der ?
Avatar billede medions Nybegynder
30. marts 2003 - 23:42 #20
Jaja, men jeg har oxo et liv ved siden af skærmen... :o)
Går igang med at se på det nu...

//>Rune
Avatar billede no_doubt Nybegynder
30. marts 2003 - 23:43 #21
*g* det er helt ok
Avatar billede medions Nybegynder
30. marts 2003 - 23:59 #22
<%
Session.LCID = 1030
    Function ConvertAmount (intAmount)
        'If Not Int(intAmount) = intAmount Then
        '    intAmount = intAmount & ",00"
        'End If
        intAmount = FormatNumber(intAmount, 2)
       
        ConvertAmount = intAmount
    End Function
%>
<html>

<head>
<title></title>
</head>

<body>

<form method="POST" action="gemodds.asp" onsubmit="return check_Form(this)" name="form">
  <p><strong><small><font face="Arial"><%set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from brugere"
Set Rs = Conn.Execute(strSQL)%>Spiller: <%=rs("bruger")%></font></small></strong><br>
  <script language="JavaScript"><!--
max = <%=rs("points")%>;
enheder = "points";
function check_Form(frm) {
  tal = parseFloat(frm.indskud.value.replace(/,/, "."), 10);
  if (isNaN(tal)) {
    alert("Det indtastede er ikke et tal.");
    return false;
  }
  tal = Math.round(tal * 100) / 100;
  if (tal > max) {
    alert("Du forsøgte med " + tal.toString().replace(/\./, ",") + "\nDu har kun " + max + " points at gøre godt med.");
    return false;
  }
  return true;
}
// --></script><%set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "SELECT * FROM spil where SpilID = 4"
Set rs = Conn.Execute(strSQL)
if rs.eof then
Response.Write ("Der er ingen ukendte ord")
else%></p>
  <p><font face="Arial"><strong><%=rs("SpilEmne")%></strong><small><br>
  <strong><%=rs("SpilNavn")%></strong><br>
<%=rs("Spilbeskrivelse")%>  </small></font></p>
  <table border="1" cellpadding="0" width="357" bordercolor="#000000" height="41">
    <tr>
      <td width="256" align="left" height="18"><div align="left"><p><small><font face="Arial">Emner</font></small></td>
      <td width="100" align="right" height="18"><div align="center"><center><p><font
      face="Arial"><small>Odds</small></font></td>
    </tr>
<%do while not rs.EOF%>
    <tr align="center">
      <td width="256" align="left" height="15"><a
      href="default.asp?ID=<%=rs("ID")%>&amp;SpilNavn=<%=rs("SpilNavn")%>"
      style="color: rgb(0,0,0)"><small><font face="Arial"><%=rs("emne")%></font></small></a></td>
      <td width="100" align="right" height="15"><small><font face="Arial"><%=ConvertAmount(rs("odds"))%></font></small></td>
    </tr>
<%rs.movenext
loop
end if
%>
  </table>
  <div align="center"><center><p><%If request.querystring("ID") <> "" Then
ID = request.querystring("ID")
SpilNavn = ID = request.querystring("SpilNavn")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from spil where ID = "& ID &""
Set Rs = Conn.Execute(strSQL)
do while not rs.EOF%><%response.write "<input type=""hidden"" name=""emne"" value=""" & rs("emne") & """>"
response.write "<input type=""hidden"" name=""SpilID"" value=""" & rs("SpilNavn") & """>"
response.write "<input type=""hidden"" name=""odds"" value=""" & rs("odds") & """>"%></p>
  </center></div><div align="left"><table border="1" cellpadding="0" width="357"
  bordercolor="#000000" height="43">
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Indsats</strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Indskud:</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><input
      type="text" name="indskud" size="5" style="text-align: right"></font></small></td>
    </tr>
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Spil: <%=rs("SpilNavn")%></strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial"><%=ConvertAmount(rs("emne"))%></font></small></td>
      <td width="102" align="right" height="28" valign="middle"><div align="right"><p><small><font
      face="Arial">Odds:<%=rs("odds")%></font></small></td>
    </tr>
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Status</strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Til rådighed:</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><script
      language="JavaScript"><!--
document.write(max);
// --></script> <script language="JavaScript"><!--
document.write(enheder);
// --></script></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Udfør</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><input
      type="submit" value="Udfør" name="B1"></font></small></td>
    </tr>
<%rs.movenext
loop
%>
<%end if%>
  </table>
  </div>
</form>

<p align="left"><font face="Arial"><a href="default.asp?Navn=Mark"
style="color: rgb(0,0,0)"><small><u>Dine spil</u></small></a><br>
</font><%If request.querystring("Navn") <> "" Then
Navn = request.querystring("Navn")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from dinespil where bruger = '"& Navn &"'"
Set Rs = Conn.Execute(strSQL)
if rs.eof then
Response.Write ("Du har ingen spil")
else%></p>
<div align="left">

<table border="1" bordercolor="#000000" width="558" cellpadding="0" height="38">
  <tr>
    <td width="131" height="16"><small><font face="Arial">Spil</font></small></td>
    <td width="122" height="16"><small><font face="Arial">Vinder</font></small></td>
    <td width="101" height="16"><small><font face="Arial">Indsats</font></small></td>
    <td width="101" height="16"><small><font face="Arial">Odds</font></small></td>
    <td width="103" height="16"><small><font face="Arial">Mulig gevindst</font></small></td>
  </tr>
<%do while not rs.EOF%>
  <tr>
    <td width="131" height="14"><small><font face="Arial"><%=rs("Spil")%></font></small></td>
    <td width="122" height="14"><small><font face="Arial"><%=rs("vinder")%></font></small></td>
    <td width="101" height="14"><p align="right"><font face="Arial"><small><%=ConvertAmount(rs("indsats"))%> <script
    language="JavaScript"><!--
document.write(enheder);
// --></script></small></font></td>

    <td width="101" height="14"><p align="right"><small><font face="Arial"><%=rs("odds")%></font></small></td>
    <td width="103" height="14"><p align="right"><font face="Arial"><%resultat = intAmount * intAmount
response.write resultat%><small> <script
    language="JavaScript"><!--
document.write(enheder);
// --></script></small></font></td>
  </tr>
<%rs.movenext
loop
end if%>
</table>
</div>

<p align="center">Mulig gevindst er udregnet med:</p>

<p align="center">resultat = rs(&quot;indsats&quot;) * rs(&quot;odds&quot;)<br>
response.write resultat<br>
<%end if%></p>
</body>
</html>

Virker dette?

//>Rune
Avatar billede no_doubt Nybegynder
31. marts 2003 - 00:02 #23
http://1q.frip.dk/odds/default.asp?ID=4&SpilNavn=Aflevering
Avatar billede medions Nybegynder
31. marts 2003 - 00:08 #24
<%
Session.LCID = 1030
    Function ConvertAmount (intAmount)
        intAmount = FormatNumber(intAmount, 2)
        ConvertAmount = intAmount
    End Function
%>
<html>

<head>
<title></title>
</head>

<body>

<form method="POST" action="gemodds.asp" onsubmit="return check_Form(this)" name="form">
  <p><strong><small><font face="Arial"><%set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from brugere"
Set Rs = Conn.Execute(strSQL)%>Spiller: <%=rs("bruger")%></font></small></strong><br>
  <script language="JavaScript"><!--
max = <%=rs("points")%>;
enheder = "points";
function check_Form(frm) {
  tal = parseFloat(frm.indskud.value.replace(/,/, "."), 10);
  if (isNaN(tal)) {
    alert("Det indtastede er ikke et tal.");
    return false;
  }
  tal = Math.round(tal * 100) / 100;
  if (tal > max) {
    alert("Du forsøgte med " + tal.toString().replace(/\./, ",") + "\nDu har kun " + max + " points at gøre godt med.");
    return false;
  }
  return true;
}
// --></script><%set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "SELECT * FROM spil where SpilID = 4"
Set rs = Conn.Execute(strSQL)
if rs.eof then
Response.Write ("Der er ingen ukendte ord")
else%></p>
  <p><font face="Arial"><strong><%=rs("SpilEmne")%></strong><small><br>
  <strong><%=rs("SpilNavn")%></strong><br>
<%=rs("Spilbeskrivelse")%>  </small></font></p>
  <table border="1" cellpadding="0" width="357" bordercolor="#000000" height="41">
    <tr>
      <td width="256" align="left" height="18"><div align="left"><p><small><font face="Arial">Emner</font></small></td>
      <td width="100" align="right" height="18"><div align="center"><center><p><font
      face="Arial"><small>Odds</small></font></td>
    </tr>
<%do while not rs.EOF%>
    <tr align="center">
      <td width="256" align="left" height="15"><a
      href="default.asp?ID=<%=rs("ID")%>&amp;SpilNavn=<%=rs("SpilNavn")%>"
      style="color: rgb(0,0,0)"><small><font face="Arial"><%=rs("emne")%></font></small></a></td>
      <td width="100" align="right" height="15"><small><font face="Arial"><%=ConvertAmount(rs("odds"))%></font></small></td>
    </tr>
<%rs.movenext
loop
end if
%>
  </table>
  <div align="center"><center><p><%If request.querystring("ID") <> "" Then
ID = request.querystring("ID")
SpilNavn = ID = request.querystring("SpilNavn")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from spil where ID = "& ID &""
Set Rs = Conn.Execute(strSQL)
do while not rs.EOF%><%response.write "<input type=""hidden"" name=""emne"" value=""" & rs("emne") & """>"
response.write "<input type=""hidden"" name=""SpilID"" value=""" & rs("SpilNavn") & """>"
response.write "<input type=""hidden"" name=""odds"" value=""" & rs("odds") & """>"%></p>
  </center></div><div align="left"><table border="1" cellpadding="0" width="357"
  bordercolor="#000000" height="43">
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Indsats</strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Indskud:</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><input
      type="text" name="indskud" size="5" style="text-align: right"></font></small></td>
    </tr>
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Spil: <%=rs("SpilNavn")%></strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial"><%= rs("emne")%></font></small></td>
      <td width="102" align="right" height="28" valign="middle"><div align="right"><p><small><font
      face="Arial">Odds:<%= ConvertAmount(rs("odds"))%></font></small></td>
    </tr>
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Status</strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Til rådighed:</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><script
      language="JavaScript"><!--
document.write(max);
// --></script> <script language="JavaScript"><!--
document.write(enheder);
// --></script></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Udfør</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><input
      type="submit" value="Udfør" name="B1"></font></small></td>
    </tr>
<%rs.movenext
loop
%>
<%end if%>
  </table>
  </div>
</form>

<p align="left"><font face="Arial"><a href="default.asp?Navn=Mark"
style="color: rgb(0,0,0)"><small><u>Dine spil</u></small></a><br>
</font><%If request.querystring("Navn") <> "" Then
Navn = request.querystring("Navn")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from dinespil where bruger = '"& Navn &"'"
Set Rs = Conn.Execute(strSQL)
if rs.eof then
Response.Write ("Du har ingen spil")
else%></p>
<div align="left">

<table border="1" bordercolor="#000000" width="558" cellpadding="0" height="38">
  <tr>
    <td width="131" height="16"><small><font face="Arial">Spil</font></small></td>
    <td width="122" height="16"><small><font face="Arial">Vinder</font></small></td>
    <td width="101" height="16"><small><font face="Arial">Indsats</font></small></td>
    <td width="101" height="16"><small><font face="Arial">Odds</font></small></td>
    <td width="103" height="16"><small><font face="Arial">Mulig gevindst</font></small></td>
  </tr>
<%do while not rs.EOF%>
  <tr>
    <td width="131" height="14"><small><font face="Arial"><%=rs("Spil")%></font></small></td>
    <td width="122" height="14"><small><font face="Arial"><%=rs("vinder")%></font></small></td>
    <td width="101" height="14"><p align="right"><font face="Arial"><small><%=ConvertAmount(rs("indsats"))%> <script
    language="JavaScript"><!--
document.write(enheder);
// --></script></small></font></td>

    <td width="101" height="14"><p align="right"><small><font face="Arial"><%=rs("odds")%></font></small></td>
    <td width="103" height="14"><p align="right"><font face="Arial"><%resultat = ConvertAmount(intAmount) * ConvertAmount(intAmount)
response.write resultat%><small> <script
    language="JavaScript"><!--
document.write(enheder);
// --></script></small></font></td>
  </tr>
<%rs.movenext
loop
end if%>
</table>
</div>

<p align="center">Mulig gevindst er udregnet med:</p>

<p align="center">resultat = rs(&quot;indsats&quot;) * rs(&quot;odds&quot;)<br>
response.write resultat<br>
<%end if%></p>
</body>
</html>

Sådan?

//>Rune
Avatar billede no_doubt Nybegynder
31. marts 2003 - 00:16 #25
Har ikke testet den sidste MEN
http://1q.frip.dk/odds/default2.asp?ID=4&SpilNavn=Aflevering
Hvis jeg satser 10 ikke noget andet, eller 10,0 så sætter den det eller de nuller på den skal.
http://1q.frip.dk/odds/default2.asp?Navn=Mark

MEN
Så er det at mit point beløb ikke passer, for det kan ikke være et helt tal som det fremgår hvis man satser nu.

Derudover skal oddset have det samme nul på.
Avatar billede medions Nybegynder
31. marts 2003 - 00:19 #26
Ok, det er kun dig selv der kan forstår det du skriver der lol!!!
Lige en ting... Nu hvor der er folk der prøver at hjælpe dig, så i stedet for at åbne 100 spm, hvorfor så ikke gøre det ene færdig som du er igang med, så det går hurtigere?

-Prøv nu at test det jeg har lavet... Det skulle gerne virke...!
-og hvad er det så du siger der mangler?

//>Rune
Avatar billede no_doubt Nybegynder
31. marts 2003 - 00:23 #27
Under:
http://1q.frip.dk/odds/default.asp?Navn=Mark
Der hvor der står odds der står nu 1,5 der skal stå 1,50 og hvor er resultatet (mulig gevindst.
Avatar billede no_doubt Nybegynder
31. marts 2003 - 00:25 #28
Min points er nu 369 eller noget i den retning det skal også angives med 2 kommaere, jeg har satset 87,90 altså kan mit rest beløb ikke være et heltal
Avatar billede medions Nybegynder
31. marts 2003 - 00:25 #29
Jamen hallo... prøv dog oxo lidt selv.. ! -det eneste du skal gøre er at smække ConvertAmount() rundt om!

<%
Session.LCID = 1030
    Function ConvertAmount (intAmount)
        intAmount = FormatNumber(intAmount, 2)
        ConvertAmount = intAmount
    End Function
%>
<html>

<head>
<title></title>
</head>

<body>

<form method="POST" action="gemodds.asp" onsubmit="return check_Form(this)" name="form">
  <p><strong><small><font face="Arial"><%set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from brugere"
Set Rs = Conn.Execute(strSQL)%>Spiller: <%=rs("bruger")%></font></small></strong><br>
  <script language="JavaScript"><!--
max = <%=rs("points")%>;
enheder = "points";
function check_Form(frm) {
  tal = parseFloat(frm.indskud.value.replace(/,/, "."), 10);
  if (isNaN(tal)) {
    alert("Det indtastede er ikke et tal.");
    return false;
  }
  tal = Math.round(tal * 100) / 100;
  if (tal > max) {
    alert("Du forsøgte med " + tal.toString().replace(/\./, ",") + "\nDu har kun " + max + " points at gøre godt med.");
    return false;
  }
  return true;
}
// --></script><%set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "SELECT * FROM spil where SpilID = 4"
Set rs = Conn.Execute(strSQL)
if rs.eof then
Response.Write ("Der er ingen ukendte ord")
else%></p>
  <p><font face="Arial"><strong><%=rs("SpilEmne")%></strong><small><br>
  <strong><%=rs("SpilNavn")%></strong><br>
<%=rs("Spilbeskrivelse")%>  </small></font></p>
  <table border="1" cellpadding="0" width="357" bordercolor="#000000" height="41">
    <tr>
      <td width="256" align="left" height="18"><div align="left"><p><small><font face="Arial">Emner</font></small></td>
      <td width="100" align="right" height="18"><div align="center"><center><p><font
      face="Arial"><small>Odds</small></font></td>
    </tr>
<%do while not rs.EOF%>
    <tr align="center">
      <td width="256" align="left" height="15"><a
      href="default.asp?ID=<%=rs("ID")%>&amp;SpilNavn=<%=rs("SpilNavn")%>"
      style="color: rgb(0,0,0)"><small><font face="Arial"><%=rs("emne")%></font></small></a></td>
      <td width="100" align="right" height="15"><small><font face="Arial"><%=ConvertAmount(rs("odds"))%></font></small></td>
    </tr>
<%rs.movenext
loop
end if
%>
  </table>
  <div align="center"><center><p><%If request.querystring("ID") <> "" Then
ID = request.querystring("ID")
SpilNavn = ID = request.querystring("SpilNavn")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from spil where ID = "& ID &""
Set Rs = Conn.Execute(strSQL)
do while not rs.EOF%><%response.write "<input type=""hidden"" name=""emne"" value=""" & rs("emne") & """>"
response.write "<input type=""hidden"" name=""SpilID"" value=""" & rs("SpilNavn") & """>"
response.write "<input type=""hidden"" name=""odds"" value=""" & rs("odds") & """>"%></p>
  </center></div><div align="left"><table border="1" cellpadding="0" width="357"
  bordercolor="#000000" height="43">
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Indsats</strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Indskud:</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><input
      type="text" name="indskud" size="5" style="text-align: right"></font></small></td>
    </tr>
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Spil: <%=rs("SpilNavn")%></strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial"><%= rs("emne")%></font></small></td>
      <td width="102" align="right" height="28" valign="middle"><div align="right"><p><small><font
      face="Arial">Odds:<%= ConvertAmount(rs("odds"))%></font></small></td>
    </tr>
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Status</strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Til rådighed:</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><script
      language="JavaScript"><!--
document.write(max);
// --></script> <script language="JavaScript"><!--
document.write(enheder);
// --></script></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Udfør</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><input
      type="submit" value="Udfør" name="B1"></font></small></td>
    </tr>
<%rs.movenext
loop
%>
<%end if%>
  </table>
  </div>
</form>

<p align="left"><font face="Arial"><a href="default.asp?Navn=Mark"
style="color: rgb(0,0,0)"><small><u>Dine spil</u></small></a><br>
</font><%If request.querystring("Navn") <> "" Then
Navn = request.querystring("Navn")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from dinespil where bruger = '"& Navn &"'"
Set Rs = Conn.Execute(strSQL)
if rs.eof then
Response.Write ("Du har ingen spil")
else%></p>
<div align="left">

<table border="1" bordercolor="#000000" width="558" cellpadding="0" height="38">
  <tr>
    <td width="131" height="16"><small><font face="Arial">Spil</font></small></td>
    <td width="122" height="16"><small><font face="Arial">Vinder</font></small></td>
    <td width="101" height="16"><small><font face="Arial">Indsats</font></small></td>
    <td width="101" height="16"><small><font face="Arial">Odds</font></small></td>
    <td width="103" height="16"><small><font face="Arial">Mulig gevindst</font></small></td>
  </tr>
<%do while not rs.EOF%>
  <tr>
    <td width="131" height="14"><small><font face="Arial"><%=rs("Spil")%></font></small></td>
    <td width="122" height="14"><small><font face="Arial"><%=rs("vinder")%></font></small></td>
    <td width="101" height="14"><p align="right"><font face="Arial"><small><%=ConvertAmount(rs("indsats"))%> <script
    language="JavaScript"><!--
document.write(enheder);
// --></script></small></font></td>

    <td width="101" height="14"><p align="right"><small><font face="Arial"><%= FormatAmount(rs("odds")) %></font></small></td>
    <td width="103" height="14"><p align="right"><font face="Arial"><%resultat = ConvertAmount(intAmount) * ConvertAmount(intAmount)
response.write resultat%><small> <script
    language="JavaScript"><!--
document.write(enheder);
// --></script></small></font></td>
  </tr>
<%rs.movenext
loop
end if%>
</table>
</div>

<p align="center">Mulig gevindst er udregnet med:</p>

<p align="center">resultat = rs(&quot;indsats&quot;) * rs(&quot;odds&quot;)<br>
response.write resultat<br>
<%end if%></p>
</body>
</html>

//>Rune
Avatar billede no_doubt Nybegynder
31. marts 2003 - 00:36 #30
så virker alt pånær
http://1q.frip.dk/odds/default.asp?ID=4&SpilNavn=Aflevering
Hvor mine points er 390, har skrevet:
<script language="JavaScript"><!--
max = <%=ConvertAmount(rs("points"))%>;
enheder = "points";
function check_Form(frm) {
tal = parseFloat(frm.indskud.value.replace(/,/, "."), 10);
if (isNaN(tal)) {
alert("Det indtastede er ikke et tal.");
return false;
}
tal = Math.round(tal * 100) / 100;
if (tal > max) {
alert("Du forsøgte med " + tal.toString().replace(/\./, ",") + "\nDu har kun " + max + " points at gøre godt med.");
return false;
}
return true;
}
// --></script>
sådan i javascriptet og trækker bare pointsne ud med:
document.write(max);

men det vil den ikke
Avatar billede medions Nybegynder
31. marts 2003 - 00:36 #31
Nu skal jeg lige hører... Er det her dig? http://1q.frip.dk/billedegalleri/hyttetur.asp?billede=./hyttetur/A30%20080.jpg
Hvis ikke er det en du kender? -for han går da i skole her i Kolding gør han ik'?

//>Rune
Avatar billede medions Nybegynder
31. marts 2003 - 00:39 #32
Det forstår jeg ikke helt hvad du mener... Hvad er det den ikke gør, og hvornår?

//>Rune
Avatar billede no_doubt Nybegynder
31. marts 2003 - 00:39 #33
Nej en der gik ud af vores klasse, så det kan godt være jeg ved det ikke.
Avatar billede no_doubt Nybegynder
31. marts 2003 - 00:40 #34
Til rådighed: 380 points
skal være
Til rådighed: 380,XX points
Avatar billede medions Nybegynder
31. marts 2003 - 00:42 #35
Ahh, ok.. jamen det er dit JavaScript der runder af! -så det har ikke noget med ASP at gøre! -funktionen gør præcist som den skal...!

-Mener nemlig bare jeg har set ham overe på skolen et par gange...!

//>Rune
Avatar billede no_doubt Nybegynder
31. marts 2003 - 00:43 #36
Egentlig burde
Mulig gevindst ( http://1q.frip.dk/odds/default.asp?Navn=Mark )
se sådan ud
15,00
32,40
131,85
27,00
Avatar billede no_doubt Nybegynder
31. marts 2003 - 00:43 #37
Hvordan går jeg det til ikke at runde af.
Avatar billede medions Nybegynder
31. marts 2003 - 00:46 #38
Ved jeg ikke... -er ikke særlig hård i JavaScript...

Men mener egentlig man kan gøre sådan her:

<script language="JavaScript"><!--
max = <%=ConvertAmount(rs("points"))%>;
enheder = "points";
function check_Form(frm) {
tal = parseFloat(frm.indskud.value.replace(/,/, "."), 10);
if (isNaN(tal)) {
alert("Det indtastede er ikke et tal.");
return false;
}
tal = Math.round(tal * 100, 2) / 100;
if (tal > max) {
alert("Du forsøgte med " + tal.toString().replace(/\./, ",") + "\nDu har kun " + max + " points at gøre godt med.");
return false;
}
return true;
}
// --></script>

-but i'm not sure!

//>Rune
Avatar billede no_doubt Nybegynder
31. marts 2003 - 00:49 #39
Det ville den ikke, den runder af endnu, hvad med Mulig gevindst
Avatar billede medions Nybegynder
31. marts 2003 - 00:51 #40
Hvad med mulig gevindst?

//>Rune
Avatar billede no_doubt Nybegynder
31. marts 2003 - 00:52 #41
den skal se sådan ud.
15,00
32,40
131,85
27,00
Avatar billede medions Nybegynder
31. marts 2003 - 00:55 #42
<%
Session.LCID = 1030
    Function ConvertAmount (intAmount)
        intAmount = FormatNumber(intAmount, 2)
        ConvertAmount = intAmount
    End Function
%>
<html>

<head>
<title></title>
</head>

<body>

<form method="POST" action="gemodds.asp" onsubmit="return check_Form(this)" name="form">
  <p><strong><small><font face="Arial"><%set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from brugere"
Set Rs = Conn.Execute(strSQL)%>Spiller: <%=rs("bruger")%></font></small></strong><br>
  <script language="JavaScript"><!--
max = <%=rs("points")%>;
enheder = "points";
function check_Form(frm) {
  tal = parseFloat(frm.indskud.value.replace(/,/, "."), 10);
  if (isNaN(tal)) {
    alert("Det indtastede er ikke et tal.");
    return false;
  }
  tal = Math.round(tal * 100) / 100;
  if (tal > max) {
    alert("Du forsøgte med " + tal.toString().replace(/\./, ",") + "\nDu har kun " + max + " points at gøre godt med.");
    return false;
  }
  return true;
}
// --></script><%set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "SELECT * FROM spil where SpilID = 4"
Set rs = Conn.Execute(strSQL)
if rs.eof then
Response.Write ("Der er ingen ukendte ord")
else%></p>
  <p><font face="Arial"><strong><%=rs("SpilEmne")%></strong><small><br>
  <strong><%=rs("SpilNavn")%></strong><br>
<%=rs("Spilbeskrivelse")%>  </small></font></p>
  <table border="1" cellpadding="0" width="357" bordercolor="#000000" height="41">
    <tr>
      <td width="256" align="left" height="18"><div align="left"><p><small><font face="Arial">Emner</font></small></td>
      <td width="100" align="right" height="18"><div align="center"><center><p><font
      face="Arial"><small>Odds</small></font></td>
    </tr>
<%do while not rs.EOF%>
    <tr align="center">
      <td width="256" align="left" height="15"><a
      href="default.asp?ID=<%=rs("ID")%>&amp;SpilNavn=<%=rs("SpilNavn")%>"
      style="color: rgb(0,0,0)"><small><font face="Arial"><%=rs("emne")%></font></small></a></td>
      <td width="100" align="right" height="15"><small><font face="Arial"><%=ConvertAmount(rs("odds"))%></font></small></td>
    </tr>
<%rs.movenext
loop
end if
%>
  </table>
  <div align="center"><center><p><%If request.querystring("ID") <> "" Then
ID = request.querystring("ID")
SpilNavn = ID = request.querystring("SpilNavn")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from spil where ID = "& ID &""
Set Rs = Conn.Execute(strSQL)
do while not rs.EOF%><%response.write "<input type=""hidden"" name=""emne"" value=""" & rs("emne") & """>"
response.write "<input type=""hidden"" name=""SpilID"" value=""" & rs("SpilNavn") & """>"
response.write "<input type=""hidden"" name=""odds"" value=""" & rs("odds") & """>"%></p>
  </center></div><div align="left"><table border="1" cellpadding="0" width="357"
  bordercolor="#000000" height="43">
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Indsats</strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Indskud:</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><input
      type="text" name="indskud" size="5" style="text-align: right"></font></small></td>
    </tr>
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Spil: <%=rs("SpilNavn")%></strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial"><%= rs("emne")%></font></small></td>
      <td width="102" align="right" height="28" valign="middle"><div align="right"><p><small><font
      face="Arial">Odds:<%= ConvertAmount(rs("odds"))%></font></small></td>
    </tr>
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Status</strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Til rådighed:</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><script
      language="JavaScript"><!--
document.write(max);
// --></script> <script language="JavaScript"><!--
document.write(enheder);
// --></script></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Udfør</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><input
      type="submit" value="Udfør" name="B1"></font></small></td>
    </tr>
<%rs.movenext
loop
%>
<%end if%>
  </table>
  </div>
</form>

<p align="left"><font face="Arial"><a href="default.asp?Navn=Mark"
style="color: rgb(0,0,0)"><small><u>Dine spil</u></small></a><br>
</font><%If request.querystring("Navn") <> "" Then
Navn = request.querystring("Navn")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from dinespil where bruger = '"& Navn &"'"
Set Rs = Conn.Execute(strSQL)
if rs.eof then
Response.Write ("Du har ingen spil")
else%></p>
<div align="left">

<table border="1" bordercolor="#000000" width="558" cellpadding="0" height="38">
  <tr>
    <td width="131" height="16"><small><font face="Arial">Spil</font></small></td>
    <td width="122" height="16"><small><font face="Arial">Vinder</font></small></td>
    <td width="101" height="16"><small><font face="Arial">Indsats</font></small></td>
    <td width="101" height="16"><small><font face="Arial">Odds</font></small></td>
    <td width="103" height="16"><small><font face="Arial">Mulig gevindst</font></small></td>
  </tr>
<%do while not rs.EOF%>
  <tr>
    <td width="131" height="14"><small><font face="Arial"><%=rs("Spil")%></font></small></td>
    <td width="122" height="14"><small><font face="Arial"><%=rs("vinder")%></font></small></td>
    <td width="101" height="14"><p align="right"><font face="Arial"><small><%=ConvertAmount(rs("indsats"))%> <script
    language="JavaScript"><!--
document.write(enheder);
// --></script></small></font></td>

    <td width="101" height="14"><p align="right"><small><font face="Arial"><%= ConvertAmount(rs("odds")) %></font></small></td>
    <td width="103" height="14"><p align="right"><font face="Arial"><%resultat = ConvertAmount(intAmount) * ConvertAmount(intAmount)
response.write resultat%><small> <script
    language="JavaScript"><!--
document.write(enheder);
// --></script></small></font></td>
  </tr>
<%rs.movenext
loop
end if%>
</table>
</div>

<p align="center">Mulig gevindst er udregnet med:</p>

<p align="center">resultat = rs(&quot;indsats&quot;) * rs(&quot;odds&quot;)<br>
response.write resultat<br>
<%end if%></p>
</body>
</html>

//>Rune
Avatar billede no_doubt Nybegynder
31. marts 2003 - 00:59 #43
nu er mulig gevindst 0
Avatar billede medions Nybegynder
31. marts 2003 - 01:02 #44
Nå ja, i denne linje:
resultat = ConvertAmount(intAmount) * ConvertAmount(intAmount)
skal der stå objRs("feltnavn") i stedet for intAmount!

//>Rune
Avatar billede no_doubt Nybegynder
31. marts 2003 - 01:10 #45
det giver ikke nullerne
Avatar billede medions Nybegynder
31. marts 2003 - 01:11 #46
??? Hvad mener du ???

//>Rune
Avatar billede medions Nybegynder
31. marts 2003 - 01:17 #47
Der hvor du skriver din response.write resultat skal du lige smække ConvertAmount() rundt om! -så virker det!

//>Rune
Avatar billede no_doubt Nybegynder
31. marts 2003 - 01:21 #48
arh hvordan gør jeg det ?
Avatar billede medions Nybegynder
31. marts 2003 - 01:23 #49
???????!!!! Nu må du altså til at styre dig!!

<%
Session.LCID = 1030
    Function ConvertAmount (intAmount)
        intAmount = FormatNumber(intAmount, 2)
        ConvertAmount = intAmount
    End Function
%>
<html>

<head>
<title></title>
</head>

<body>

<form method="POST" action="gemodds.asp" onsubmit="return check_Form(this)" name="form">
  <p><strong><small><font face="Arial"><%set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from brugere"
Set Rs = Conn.Execute(strSQL)%>Spiller: <%=rs("bruger")%></font></small></strong><br>
  <script language="JavaScript"><!--
max = <%=rs("points")%>;
enheder = "points";
function check_Form(frm) {
  tal = parseFloat(frm.indskud.value.replace(/,/, "."), 10);
  if (isNaN(tal)) {
    alert("Det indtastede er ikke et tal.");
    return false;
  }
  tal = Math.round(tal * 100) / 100;
  if (tal > max) {
    alert("Du forsøgte med " + tal.toString().replace(/\./, ",") + "\nDu har kun " + max + " points at gøre godt med.");
    return false;
  }
  return true;
}
// --></script><%set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "SELECT * FROM spil where SpilID = 4"
Set rs = Conn.Execute(strSQL)
if rs.eof then
Response.Write ("Der er ingen ukendte ord")
else%></p>
  <p><font face="Arial"><strong><%=rs("SpilEmne")%></strong><small><br>
  <strong><%=rs("SpilNavn")%></strong><br>
<%=rs("Spilbeskrivelse")%>  </small></font></p>
  <table border="1" cellpadding="0" width="357" bordercolor="#000000" height="41">
    <tr>
      <td width="256" align="left" height="18"><div align="left"><p><small><font face="Arial">Emner</font></small></td>
      <td width="100" align="right" height="18"><div align="center"><center><p><font
      face="Arial"><small>Odds</small></font></td>
    </tr>
<%do while not rs.EOF%>
    <tr align="center">
      <td width="256" align="left" height="15"><a
      href="default.asp?ID=<%=rs("ID")%>&amp;SpilNavn=<%=rs("SpilNavn")%>"
      style="color: rgb(0,0,0)"><small><font face="Arial"><%=rs("emne")%></font></small></a></td>
      <td width="100" align="right" height="15"><small><font face="Arial"><%=ConvertAmount(rs("odds"))%></font></small></td>
    </tr>
<%rs.movenext
loop
end if
%>
  </table>
  <div align="center"><center><p><%If request.querystring("ID") <> "" Then
ID = request.querystring("ID")
SpilNavn = ID = request.querystring("SpilNavn")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from spil where ID = "& ID &""
Set Rs = Conn.Execute(strSQL)
do while not rs.EOF%><%response.write "<input type=""hidden"" name=""emne"" value=""" & rs("emne") & """>"
response.write "<input type=""hidden"" name=""SpilID"" value=""" & rs("SpilNavn") & """>"
response.write "<input type=""hidden"" name=""odds"" value=""" & rs("odds") & """>"%></p>
  </center></div><div align="left"><table border="1" cellpadding="0" width="357"
  bordercolor="#000000" height="43">
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Indsats</strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Indskud:</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><input
      type="text" name="indskud" size="5" style="text-align: right"></font></small></td>
    </tr>
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Spil: <%=rs("SpilNavn")%></strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial"><%= rs("emne")%></font></small></td>
      <td width="102" align="right" height="28" valign="middle"><div align="right"><p><small><font
      face="Arial">Odds:<%= ConvertAmount(rs("odds"))%></font></small></td>
    </tr>
    <tr>
      <td width="356" height="28" colspan="2"><small><font face="Arial"><strong>Status</strong></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Til rådighed:</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><script
      language="JavaScript"><!--
document.write(max);
// --></script> <script language="JavaScript"><!--
document.write(enheder);
// --></script></font></small></td>
    </tr>
    <tr>
      <td width="254" height="28"><small><font face="Arial">Udfør</font></small></td>
      <td width="102" align="right" height="28" valign="middle"><small><font face="Arial"><input
      type="submit" value="Udfør" name="B1"></font></small></td>
    </tr>
<%rs.movenext
loop
%>
<%end if%>
  </table>
  </div>
</form>

<p align="left"><font face="Arial"><a href="default.asp?Navn=Mark"
style="color: rgb(0,0,0)"><small><u>Dine spil</u></small></a><br>
</font><%If request.querystring("Navn") <> "" Then
Navn = request.querystring("Navn")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("spildatabase.mdb")
strSQL = "select * from dinespil where bruger = '"& Navn &"'"
Set Rs = Conn.Execute(strSQL)
if rs.eof then
Response.Write ("Du har ingen spil")
else%></p>
<div align="left">

<table border="1" bordercolor="#000000" width="558" cellpadding="0" height="38">
  <tr>
    <td width="131" height="16"><small><font face="Arial">Spil</font></small></td>
    <td width="122" height="16"><small><font face="Arial">Vinder</font></small></td>
    <td width="101" height="16"><small><font face="Arial">Indsats</font></small></td>
    <td width="101" height="16"><small><font face="Arial">Odds</font></small></td>
    <td width="103" height="16"><small><font face="Arial">Mulig gevindst</font></small></td>
  </tr>
<%do while not rs.EOF%>
  <tr>
    <td width="131" height="14"><small><font face="Arial"><%=rs("Spil")%></font></small></td>
    <td width="122" height="14"><small><font face="Arial"><%=rs("vinder")%></font></small></td>
    <td width="101" height="14"><p align="right"><font face="Arial"><small><%=ConvertAmount(rs("indsats"))%> <script
    language="JavaScript"><!--
document.write(enheder);
// --></script></small></font></td>

    <td width="101" height="14"><p align="right"><small><font face="Arial"><%= ConvertAmount(rs("odds")) %></font></small></td>
    <td width="103" height="14"><p align="right"><font face="Arial"><%resultat = intAmount * intAmount
response.write ConvertAmount(resultat) %><small> <script
    language="JavaScript"><!--
document.write(enheder);
// --></script></small></font></td>
  </tr>
<%rs.movenext
loop
end if%>
</table>
</div>

<p align="center">Mulig gevindst er udregnet med:</p>

<p align="center">resultat = rs(&quot;indsats&quot;) * rs(&quot;odds&quot;)<br>
response.write resultat<br>
<%end if%></p>
</body>
</html>

-jeg vil hoppe i seng nu...

//>Rune
Avatar billede no_doubt Nybegynder
31. marts 2003 - 01:29 #50
Ok tak
Avatar billede medions Nybegynder
31. marts 2003 - 08:56 #51
Thx 4 Poinz

//>Rune
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 I går 15:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 10:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
17/0914:55 Hente WordPad til Windows 11 Af Strawberry i Andet software
17/0911:37 Persits.Upload Af bsn i ASP
16/0918:13 oprette et installationsmedie Af Malm i Windows
White papers
Flere white papers »