Konvertering af priser med komma

Så siger du blot

Replace(variabel, ",",".")

Så erstatter du komma med et punktum!

//>Rune

ok - men det virker vel ikke når jeg skal skrive til databasen ?

har du nogen ide om hvorfor databasen ikke vil modtage 59,95 som datatype  decimal(10,2)

jeg vil gerne kunne skrive 59,95 i mit input felt og så konvertere det til 59.95 inden det skrives til databasen. det må vel være det letteste

Det er fordi det er en engelsk database!

Der hvor du skriver til databasen replacer du det, og ik' før!

//>Rune

Fx.

strSQL = "INSERT INTO tabelnavn (feltnavn1, feltnavn2) VALUES ('" & Replace(Request.Form("pris"), ",",".") & "', 'noget andet')"

Sådan fx.!

//>Rune

hehe okay tak :) - kan du se hvor det skal ind her:

' *** Update Record: set variables

If (CStr(Request("MM_update")) = "fHtmlEditor" And CStr(Request("MM_recordId")) <> "") Then

  MM_editConnection = MM_scandlines_STRING
  MM_editTable = "Vin"
  MM_editColumn = "IDvin"
  MM_recordId = "" + Request.Form("MM_recordId") + ""
  MM_editRedirectUrl = "oversigt_vin.asp"
  MM_fieldsStr  = "EditorValue|value|Land|value|Distrikt|value|Producent|value|Aargang|value|Drue|value|DrueProcent|value|Smagstype|value|Type|value|Stoerrelse|value|Alkoholprocent|value|Salgstype|value|Pris_DKK|value|Pris_DKK_v6|value|Aktiv_Dansk|value|Aktiv_Svensk|value|Overskrift|value|Broedtekst|value|Rating|value|Billede|value"
  MM_columnsStr = "Beskrivelse|',none,''|Land|',none,''|Distrikt|',none,''|Producent|',none,''|Aargang|',none,''|Druen|',none,''|DrueProcent|',none,''|Smagstype|',none,''|Type|',none,''|Stoerrelse|',none,''|Alkoholprocent|none,none,NULL|Salgstype|',none,''|Pris_DKK|none,none,NULL|Pris_DKK_v6|none,none,NULL|Aktiv_Dansk|none,'Y','N'|Aktiv_Svensk|none,'Y','N'|Overskrift|',none,''|Broedtekst|',none,''|Rating|',none,''|Billede|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
 
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Update Record: construct a sql update statement and execute it

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

  ' create the sql update statement
  MM_editQuery = "update " & MM_editTable & " set "
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_editQuery = MM_editQuery & ","
    End If
    MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal
  Next
  MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId

  If (Not MM_abortEdit) Then
    ' execute the update
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>

Så skal jeg jo lige vide hvad din variabel / dit felt som indeholder de data som skal konveteres om hedder!

//>Rune

mit inputfelt hedder: Pris_DKK

Agh, fordi DW er så latterlig har den kodet koden sådan at man ikke kan gøre det!

Du er nødt til at kode koden i hånden!

//>Rune

ok - then im lost :)
æv

hvad fan er det DW laver som bevirker at man ikke kan gøre det ?

Den ligger det i et Array, og splitter det så man skal ind og sige, er arrayet nået DEN post Så skal den replace , med ., og det er ik' værd at bruge tid på.

Jeg har kun et godt råd, skriv selv din kode!

//>Rune

okay- tak
så er gode råde dyre... jeg kan ikke begynde at kode det i hånden, det er jeg slet ikke god nok til endnu

www.html.dk/tutorials/asp <- det vil guide dig 100% igennem det du skal bruge!

//>Rune

kan det overhovedet lade sig gøre ?
for hvis jeg så ikke kan nå det, kan jeg jo smide den i opgaver sektionen

æv - can not get it working.