regnestykker i asp

hvis du prøver at uddybe lidt bedre, med en forklaring på hvordan regnestykket skal opstilles, ville det være en hel del nemmere :o)

jamen det er sådan set det jeg har gjort...

jeg ved ikke rigtig hvordan jeg skal gøre for at gøre det mere tydligt...

ja..  men en tekstlignende forklaring ?  :o)

hvad jeg kan se så skal du regne følgende ud..

rabat divideret med 100 (hvor det efterfølgende skal trækkes fra 1 )

gange pris ?

/Mads

hvis det er som jeg har beskrevet ovenfor, ville jeg nok gøre det på denne måde..


rabat = rs("rabat")
pris  = rs("pris")

tempRabat = rabat / 100
finalRabat = 1 - tempRabat

finalSum = finalRabat * pris


Det eneste du skal være 100% sikker på , er at i din database er felterne rabat & pris talfelter. hvis det ikke er tilfældet er jeg ikke sikker på det kan laves så nemt. :o)

/Mads

Ja... det ligner noget af det jeg har forsøgt...

Jeg gør sådan:
<%

    Set rs = Server.CreateObject("ADODB.RecordSet")
    set conn = Server.CreateObject("Adodb.Connection")
    strSQL = "SELECT * FROM pf WHERE kategori='bog' ORDER by dato"
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
    conn.open strDSN
    rs.Open strSQL, strDSN, 1
    Do While Not rs.EOF

rabat = rs("rabat")
pris  = rs("pris")

tempRabat = rabat / 100
finalRabat = 1 - tempRabat

finalSum = finalRabat * pris <-- Så snart denne linie er med siger den: Type mismatch

  %>
  <tr>
    <td><%=rs("tekst")%> - <i><%=pris%>kr</i></td>
    <td>rabat: <%=rabat%>%</td>
    <TD><%=rs("dato")%></td>
    <td align="right"><%=finalsum%> kr</td>
    </td>
  </tr>
  <%
    rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    conn.Close
    set conn = Nothing
%>

I feltet 'rabat' kan der stå 0, men der vil altid stå noget!

Men det virker i hvert fald ikke :(

ok ..   

i feltet rs("pris")    er det også af typen Tal ?

/Mads

ja...

når du skriver denne ud

<i><%=pris%>kr</i>

Hvad får du så vist ?

173kr

hmm..    lyder godt nok sært...

prøv engang..

rabat = rs("rabat")
pris  = rs("pris")

If rabat <> 0 Then
  tempRabat = rabat / 100
  finalRabat = 1 - tempRabat
  finalSum = finalRabat * pris
Else
  finalSum = pris
End If

det udelukker i hvert tilfælde rabat regnestykket hvis rabat er lig nul.

/Mads

nope... der virker heller ikke :(

prøv at skrive CDbl(pris) i stedet for pris...

Type mismatch: 'CDbl'

rabat = rs("rabat")
CDbl(pris)  = rs("pris")

'tempRabat = rabat / 100
'finalRabat = 1 - tempRabat

If rabat <> 0 Then
  tempRabat = rabat / 100
  finalRabat = 1 - tempRabat
  finalSum = finalRabat * CDbl(pris)
Else
  finalSum = CDbl(pris)
End If



  %>
  <tr>
    <td><%=rs("tekst")%> - <i><%=pris%>kr</i></td>
    <td>rabat: <%=rabat%>%</td>
    <TD><%=rs("dato")%></td>
    <td align="right"><%=finalSum%> kr</td>
    </td>
  </tr>
  <%

rabat = rs("rabat")
pris  = rs("pris")

'tempRabat = rabat / 100
'finalRabat = 1 - tempRabat

If rabat <> 0 Then
  tempRabat = rabat / 100
  finalRabat = 1 - tempRabat
  finalSum = finalRabat * CDbl(pris)
Else
  finalSum = CDbl(pris)
End If

Sådan her...

Det virkede :D

nice :D

ellebaek ..
ku man snige sig til en hurtig beskrivelse af CDbl() funktionen ? :o)

/MAds

CDbl konvertere et tal til double, der kan indeholde flere informationer end en almindelig integer.

Men hvorfor tager du points selv ?

jeg har ikke taget points selv :o)

det er ikke mit spørgsmål *G*

/Mads

arh smart... Men synes stadig det var mærkeligt at du fik pointsene ;-)

Ja..  de skulle have været delt, da løsningen jo blev afgivet af os begge to :o)

Ja, det kan du godt have ret i..
Men skidt med det. Behold du dem bare.