Type mismatch.

CDate(RecSet("alder"))=CDate(request.form("ar") &"-"& request.form("manad") &"-"& request.form("dag"))

LR^evil.sid skrev:

CDate(RecSet("alder"))=CDate(request.form("ar") &"-"& request.form("manad") &"-"& request.form("dag"))

Hmm, den säger såhär:

Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'CDate' 

/2/installningar_medlem.asp, line 38

Varför?

CInt(RecSet("alder")) = CInt(request.form("ar")) + CInt(request.form("manad")) + CInt(request.form("dag"))

Antar jag i alla fall att du vill ha.

Type mismatch: 'CDate'

då är inte recset("alder") av datumtyp?

Vill du lagra det som ett datum (yyyy-mm-dd), så kan du göra såhär

RecSet("alder") = DateSerial(Request.Form("ar"), Request.Form("manad"), Request.Form("dag"))

Engine^ skrev:

Vill du lagra det som ett datum (yyyy-mm-dd), så kan du göra såhär

RecSet("alder") = DateSerial(Request.Form("ar"), Request.Form("manad"), Request.Form("dag"))

Okej...
men så här säger den då..
Microsoft VBScript runtime error '800a000d'

Type mismatch: '[string: "Maj"]'

/2/installningar_medlem.asp, line 38

Och jo, RecSet("alder") är Datum/tid format... :/

Jasså, du har gjort det så. Då får du nog göra en funktion av det:

Function ChangeNameToNumber(strName)
  Select Case LCase(Trim(strName))
    Case "januari" : intNum = 1
    Case "februari" : intNum = 2
    Case "mars" : intNum = 3
    Case "april" : intNum = 4
    Case "maj" : intNum = 5
    Case "juni" : intNum = 6
    Case "juli" : intNum = 7
    Case "augusti" : intNum = 8
    Case "september" : intNum = 9
    Case "oktober" : intNum = 10
    Case "november" : intNum = 11
    Case "december" : intNum = 12
  End Select

  ChangeNameToNumber = intNum
End Function

RecSet("alder") = DateSerial(Request.Form("ar"), ChangeNameToNumber(Request.Form("manad")), Request.Form("dag"))

Type mismatch: '[string: "Maj"]'

Det är ju inte på formen mm... men det går ju förstås att fula sig runt

Dim objMonths

Set objMonths = Server.CreateObject("Scripting.Dictionary")
objMonths.Add "Januari", 1
objMonths.Add "Febuari", 2
.
.
.
objMonths.Add "December", 12

RecSet("alder") = DateSerial(Request.Form("ar"), objMonths(Request.Form("manad")), Request.Form("dag"))

red.
Eller så gör man som Sebbe föreslår och skippar att skapa ett dict-objekt... även om det kan vara kul :OO :bire

Man kanske ska använda sig utav Förhandsgranska lite oftare :)

Sebbe skrev:

Jasså, du har gjort det så. Då får du nog göra en funktion av det:

Function ChangeNameToNumber(strName)
  Select Case LCase(Trim(strName))
    Case "januari" : intNum = 1
    Case "februari" : intNum = 2
    Case "mars" : intNum = 3
    Case "april" : intNum = 4
    Case "maj" : intNum = 5
    Case "juni" : intNum = 6
    Case "juli" : intNum = 7
    Case "augusti" : intNum = 8
    Case "september" : intNum = 9
    Case "oktober" : intNum = 10
    Case "november" : intNum = 11
    Case "december" : intNum = 12
  End Select

  ChangeNameToNumber = intNum
End Function


RecSet("alder") = DateSerial(Request.Form("ar"), ChangeNameToNumber(Request.Form("manad")), Request.Form("dag"))

Tack det löste mitt problem! tack!

Engine^ skrev:

Type mismatch: '[string: "Maj"]'

Det är ju inte på formen mm... men det går ju förstås att fula sig runt

Dim objMonths

Set objMonths = Server.CreateObject("Scripting.Dictionary")
objMonths.Add "Januari", 1
objMonths.Add "Febuari", 2
.
.
.
objMonths.Add "December", 12

RecSet("alder") = DateSerial(Request.Form("ar"), objMonths(Request.Form("manad")), Request.Form("dag"))

red.
Eller så gör man som Sebbe föreslår och skippar att skapa ett dict-objekt... även om det kan vara kul :OO :bire

Man kanske ska använda sig utav Förhandsgranska lite oftare :)

Hehe okej, tack ändå :)