db-udtræk formatering

lidt sprog spasser r man vel altid.......... :-)

Her et komma tal i min db........

hmm prøv med formatnumber(rs("tal"),2) når du skriver ud

setLocale(1030)
FormatNumber(tal,2)

Returnerer f.eks. 1100.50 som 1.100,50

Problemet er ikke helt løst endnu, nu udskriver
<%= formatnumber(rs("Varepris"),2)  %> godt nok med komma, men hvis jeg sortere dataen forsvinder kommaerne igen :-)

Med sortering mener jeg:

Method= Request.QueryString("method")
                If Request.QueryString("method")="" Then
                Method="ProjektID"
                End If
               
                FNV = Session("Navn")                
           
                Select Case Method
                Case "ProjektID"
                    strSQL = "Select * From Projekt Where FirmanavnVare = '" & FNV & "' order by ProjektID asc"
                Case "VareBeskrivelse"
                    strSQL = "select * from PROJEKT Where FirmanavnVare = '" & FNV & "' order by VareBeskrivelse asc"
                Case "VareBeholdning"
                    strSQL = "select * from PROJEKT Where FirmanavnVare = '" & FNV & "' order by VareBeholdning asc"
                Case "VarePris"
                    strSQL = "select * from PROJEKT Where FirmanavnVare = '" & FNV & "' order by VarePris asc"
                End Select

                set rs = Conn.Execute(strSQL)

gå ind i databasen og ændre feltegensakber til tal ..jeg snakker IKKE om feltype.

doh feltegensakber = feltegenskaber

jeg tror ikke helt at I forstår hvad jeg mener !

Jeg har i min database en tal med to decimaler f.eks. 25.00

Når jeg så laver et udtræk får jeg som speedy2000 foreslår får jeg godt nok udskrevet 25.00 - men

Hvis jeg så vælger at "sortere" se overfor - så får jeg kun tallet
25 ud - hvorfor og hvad gør jeg !

Du mangler følgende i bunden af din kode:

While Not rs.EOF
  Response.Write FormatNumber(rs("Varepris"),2) & "<br>"
rs.MoveNext
Wend

Og følgende i toppen af koden:

setLocale(1030)

--> speedy2000

Her jeg prøvet , virker kun første gang jeg lavet et udtræk - derefter udskrives talle uden komma

Her er hele koden, hvis det er til nogen hjælp:

<%@ LANGUAGE="VBScript" %>
<% setLocale(1030) %>
<% Response.Expires = 0 %>
<%
If Session("BrugerID") = "" Then
    Response.Redirect("../../../kunde_login.asp")
End If
%>

<%                
                Set Conn = Server.CreateObject("ADODB.Connection")
                DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../daba/11072002.mdb")
                Conn.Open DSN

                Method= Request.QueryString("method")
                If Request.QueryString("method")="" Then
                Method="ProjektID"
                End If
               
                FNV = Session("Navn")                
           
                Select Case Method
                Case "ProjektID"
                    strSQL = "Select * From Projekt Where FirmanavnVare = '" & FNV & "' order by ProjektID asc"
                Case "VareBeskrivelse"
                    strSQL = "select * from PROJEKT Where FirmanavnVare = '" & FNV & "' order by VareBeskrivelse asc"
                Case "VareBeholdning"
                    strSQL = "select * from PROJEKT Where FirmanavnVare = '" & FNV & "' order by VareBeholdning asc"
                Case "VarePris"
                    strSQL = "select * from PROJEKT Where FirmanavnVare = '" & FNV & "' order by VarePris asc"
                End Select

                set rs = Conn.Execute(strSQL)

%>


<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr align="center" valign="top">
    <td width="15" height="15">&nbsp;</td>
    <td width="110" height="15">&nbsp;</td>
    <td height="15">&nbsp;</td>
    <td width="120" height="15">&nbsp;</td>
    <td width="75" height="15">&nbsp;</td>
    <td width="15" height="15">&nbsp;</td>
  </tr>
  <tr align="left" valign="top">
    <td width="15" height="20">&nbsp; </td>
    <td width="110"><strong><a href=../nesdam/index.asp?PageID=Projekter&method=ProjektID class="menu" title="Sorter efter projekt nr.">Projekt
      nr.</a></strong> </td>
    <td height="20"> <strong><a href=../nesdam/index.asp?PageID=Projekter&method=VareBeskrivelse class="menu" title="Sorter efter beskrivelse">Beskrivelse</a></strong>
    </td>
    <td width="120" height="20" align="right"> <strong><a href=../nesdam/index.asp?PageID=Projekter&method=VareBeholdning class="menu" title="Sorter efter antal på lager">Lager</a></strong>
    </td>
    <td width="75" height="20" align="right"> <strong><a href=../nesdam/index.asp?PageID=Projekter&method=VarePris class="menu" title="Sorter efter pris">Pris</a></strong>
    </td>
    <td width="15">&nbsp;</td>
  </tr>
  <%
                if rs.EOF then
                Response.write "De har ingen projekter oprettet hos LBJ electornic"
%>
  <% else %>
  <% session("farve") = "#cccccc" %>
  <%
            Do Until rs.EOF
            VareBeskrivelse = replace(rs("VareBeskrivelse"), vbCrLf, "<BR>")
            Pris = FormatNumber(rs("Varepris"),2) & "<br>"

           
            if session("farve") = "#999999" then
                session("farve") = "#cccccc"
            elseif session("farve") = "#cccccc" then
                session("farve") = "#999999"
            end if
%>
  <tr align="left" valign="top">
    <td width="15" height="15" bgcolor="<%=session("farve")%>">&nbsp;</td>
    <td width="110" height="15" bgcolor="<%=session("farve")%>"><%= rs("ProjektID") %></td>
    <td height="15" bgcolor="<%=session("farve")%>"><%= VareBeskrivelse %> </td>
    <td width="120" height="15" align="right" bgcolor="<%=session("farve")%>"><%= rs("VareBeholdning") %></td>
    <td width="75" height="15" align="right" bgcolor="<%=session("farve")%>"><%= Pris  %></td>
    <td width="15" height="15" bgcolor="<%=session("farve")%>">&nbsp;</td>
  </tr>
 
<%
            RS.MoveNext
            Loop
%>
 
</table>


<%
            Conn.Close
            Set Conn = Nothing
%>

<% End If %>

Prøv at flytte setLocale(1030) ned under Response.Expires
Jeg ved ikke om det har noget betydning, men det er da et forsøg værd.

Ellers så prøv at flytte setLocale(1030) helt ned lige over dit SQL udtræk.

--> speedy2000

Desvære, de hjalp ikke det er stadigvæk kun "første" gang at kommaet udskrives..... ( se sql sætningen)  :-(

Prøv at sætte setLocale(1030) lige efter
Do Until rs.EOF

Det skal virke... setLocale(1030) betyder at man sætter til dansk format
Hvis du f.eks. skriver setLocale(2057) så får du engelsk format både talmæssigt og datomæssigt. Men prøv ovenstående

--> speedy2000

Det virker stadigvæk ikke , det må sku være opsættelsen af db'en  der fucker det op ?

--> Alle

Hvordan vil I foreslå at jeg sætter mit db' felt VarePris op, jer bruger en acces db. - her tænker på instillinger.......

Du skal angive feltet som tal/number og så som reelt/single og automatisk antal decimaler.

-- > speedy2000 , det prøver jeg lige

:-( :-( , virker stadigvæk ikke...............

smider lige et link så du kan se , hvor underligt det er ;-(

http://www.nesdam.dk/test/kunde_login.asp
login: ft
pass: test

Når jeg logger ind, ser det ud til at virke helt fint, du har måske klaret det ?

--> speddy2000, prøv lige at log ind igen og tryk så på følgende links
- Projekt nr. 
- Beskrivelse 
- Lager 
- Pris

så vil du kunne se hvad mit probelm er, talformateringen bliver ikke ved
med at være som den skal være....  :-)

Ok, jeg kan godt se at det ikke helt er som det skal være :o)

Prøv med denne her :

    <td width="75" height="15" align="right" bgcolor="<%=session("farve")%>"><%=FormatNumber(rs("VarePris"),2)%></td>

-- > speedy2000
:-( det virker sku stadigvæk ikke...... mon det nogen sinde kommer til det ?

Underligt...

Prøv evt. at sætte setLocale(1030) ind i din Loop lige over den første <tr>

Umiddelbart skulle den da formate dit tal korrekt, men det ser ud til at den springer format over af en eller anden grund ???

Prøv at teste det, ved f.eks. at skrive et tegn efter prisen (altså uden for ASP taggen, så der ikke kommer fejl :o) ...

Det virker underligt, men prøv lige ovenstående.

--> speddy2000
Tusinde tak for hjælp - godt nok kan jeg ikke få det til at virke :-( men du skal have points alligevel for alt den hjælp du har prøvet at give