[ASP] type mismatch maar niet consequent

[Dr.Dokter]

Ik loop door een table met datums om die in een andere table in te voegen met datumvelden. Hieronder zie je eerst een response.write van datum1 == datum2 == == isdate(datum1) isdate(datum2)
Hij kapt er mee bij de 1 januari en 8 februari terwijl de isdate een true oplevert. Ik ben ten einde raad. Waar kan dit aan liggen? De LCID staat op 1043 en ik heb ook al longformat dates geprobeert, maar niks...

code:

14-12-2002 == 21-12-2002 == == TrueTrue
21-12-2002 == 28-12-2002 == == TrueTrue
28-12-2002 == 4-1-2003 == == TrueTrue
4-1-2003 == 11-1-2003 == == TrueTrue
11-1-2003 == 18-1-2003 == == TrueTrue
18-1-2003 == 25-1-2003 == == TrueTrue
25-1-2003 == 1-2-2003 == == TrueTrue
1-2-2003 == 8-2-2003 == == TrueTrue

Provider error '80020005' 

Type mismatch. 

blahblah.asp, line 78

[gorgi_19]

Heb je een stukje code anders? En ASP werkt dacht ik niet met ==, maar alleen met =

[Capa]

schrijf die data eerst eens uit, zonder isdate, dus wat er direct in tabel staat.

Do While not RS.EOF
Response.Write Rs("Datumveld") & ("<BR>")
Rs.MoveNext
loop

[ Voor 49% gewijzigd door Capa op 18-12-2002 14:16 ]

[Dr.Dokter]

code:

14-12-2002 /// 21-12-2002 /// TrueTrue
21-12-2002 /// 28-12-2002 /// TrueTrue
28-12-2002 /// 4-1-2003 /// TrueTrue
4-1-2003 /// 11-1-2003 /// TrueTrue
11-1-2003 /// 18-1-2003 /// TrueTrue
18-1-2003 /// 25-1-2003 /// TrueTrue
25-1-2003 /// 1-2-2003 /// TrueTrue
1-2-2003 /// 8-2-2003 /// TrueTrue
8-2-2003 /// 15-2-2003 /// TrueTrue
15-2-2003 /// 22-2-2003 /// TrueTrue
22-2-2003 /// 1-3-2003 /// TrueTrue
1-3-2003 /// 8-3-2003 /// TrueTrue
8-3-2003 /// 15-3-2003 /// TrueTrue
15-3-2003 /// 22-3-2003 /// TrueTrue
22-3-2003 /// 29-3-2003 /// TrueTrue
29-3-2003 /// 5-4-2003 /// TrueTrue
5-4-2003 /// 12-4-2003 /// TrueTrue
12-4-2003 /// 19-4-2003 /// TrueTrue
19-4-2003 /// 26-4-2003 /// TrueTrue
26-4-2003 /// 3-5-2003 /// TrueTrue

[Capa]

hmmm, ik zie idd nix fout's
zet voor de variabelen die je uit schrijft eens CDate,
voorbeeld:
datum1 = CDate(datum1)

[ Voor 9% gewijzigd door Capa op 18-12-2002 14:22 ]

[Dr.Dokter]

code:

Set winter = Server.CreateObject("ADODB.Recordset")
winter.ActiveConnection = MM_blahblah_STRING
winter.Source = "SELECT * FROM t_data WHERE datanaamid = " + request("datanaamid")
winter.CursorType = 0
winter.CursorLocation = 2
winter.LockType = 1
winter.Open()
winter_numRows = 0
while not winter.EOF
van = CDate(winter.fields.item("van").value)
tot = CDate(winter.fields.item("tot").value)
van = formatdatetime(van,2)
tot = formatdatetime(tot,2)
prijs = winter.fields.item("prijs").value
response.Write(van & " /// " & tot & " /// " & prijs & "" & isdate(van) & isdate(tot) & "<br>")
MM_editQuery = "INSERT INTO t_prijsgegevens (accid,van,tot,prijs) VALUES (" + replace(trim(request("accid")),"'","''") + ",#" + van + "#,#" + tot + "#,'" + prijs + "')"
MM_editConnection = MM_blahblah_STRING
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
winter.movenext()
wend
winter.Close()
Set winter = Nothing

[Dr.Dokter]

blijkbaar lag het aan de prijs. Maar waarom snap ik nog niet helemaal...

[Capa]

ik gebruik bij het open/lezen van data:

Rs.CursorLocation = 3
Rs.LockType = 3

geen cursor type dus.

bij het opslaan

objAdd.CursorType = 2
objAdd.LockType = 3

geen location dus.

beter gewoon mijn hele add code erin dumpen

ASP:

Maak een object objAdd aan. Open dit record met bepaalde waarden
set objAdd = Server.CreateObject("ADODB.Recordset")
'Dit zorgt ervoor dat de database op de juiste manier wordt geopend. '
objAdd.CursorType = 2
objAdd.LockType = 3

'De Sessie connectie gebruik je zo 
objAdd.Open "T_Memo", Session("DbConn") 
Objadd.AddNew 

'Zet de waarde van de variabelen in het nieuwe record.

objAdd.Fields("Onderwerp") = vonderw
objAdd.Fields("Inhoud") = vbody
objadd.Fields("DatumPlaatsing")= Date()
objadd.Fields("GebruikersId") = session("UserId")
objAdd.Fields("Datumtot") =  Cdate(vmemotot)
objAdd.Fields("Actiefvanaf") = cDate(vmemova)

'Update de database met de nieuwe gegevens
objAdd.Update

' Sluit de recordset en de verbinding af omdat we die niet meer gebruiken.
objAdd.Close
Set objAdd = Nothing

edit:

je bent er blijkbaar al uit, het duurde ff voordat ik alles op orde had, vandaar late reply

[ Voor 12% gewijzigd door Capa op 18-12-2002 14:34 ]

[shades]

Je hebt een Provide fout. Misschien is je connectiestring wel niet goed geformuleerd:

MM_blahblah_STRING <-- hoe ziet die eruit ?