---
title: "Fel på spara kod"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/106568-fel-på-spara-kod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Meng"
published: "2004-07-02T09:16:26.000Z"
updated: "2004-07-05T09:41:48.000Z"
replies: 7
views: 320
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/106568-fel-på-spara-kod"
---

# Fel på spara kod

## #1 — Meng, 2004-07-02T09:16Z

Vad är felet i denna "spara" koden? Först fick jag Critera expression något.. fel och sen la jag in samlings koden för modtagelsedato också klagar den på "CDate" (Type mismatch: 'CDate' ). Nån som ser felet jag inte ser?

```
If Request.Querystring("action")= "spara" Then

Produkt = Fixa(Request.Form("produkt1") & "-" & Request.Form("produkt2"))
Lokation = Fixa(Request.Form("lokation1") & "-" & Request.Form("lokation2"))
Modtagelsesdato = CDate(Request.Form("ar") & "-" & Request.Form("man") & "-" &Request.Form("dag"))

   Kategori        = Fixa(Request.Form("kategori"))
   Produkt         = produkt
   Lokation        = lokation
   Serienummer     = Fixa(Request.Form("serienummer"))
   Modtagelsesdato = modtagelsesdato
   Specifikation   = Fixa(Request.Form("specifikation"))
   Af              = Fixa(Request.Form("af"))
   Tilstand        = Fixa(Request.Form("tilstand"))

   Conn.Execute("INSERT INTO edblager(Kategori,Produkt,Lokation,Serienummer,Modtagelsesdato,Specifikation,Af,Tilstand) VALUES('" & Kategori & "','" & Produkt & "','" & Lokation & "','" & Serienummer & "','" & Modtagelsesdato & "','" & Specifikation & "','" & Af & "','" & Tilstand & "')")
   Response.Redirect "edbinlagt.asp?do=ny"
End If
```

Permalänk: https://www.webforum.nu/p/106568

## #2 — Jesper T, 2004-07-02T09:27Z

Du kan ju kolla om det är ett datumformat först.

```
If Request.Querystring("action")= "spara" Then

Produkt = Fixa(Request.Form("produkt1") & "-" & Request.Form("produkt2"))
Lokation = Fixa(Request.Form("lokation1") & "-" & Request.Form("lokation2"))
indate=Request.Form("ar") & "-" & Request.Form("man") & "-" &Request.Form("dag")
if isdate(indate)=false then
Response.write "Du har inte angätt rätt datum, gör det!"
Response.end
end if
Modtagelsesdato = CDate(indate) 
...
```

Permalänk: https://www.webforum.nu/p/1378333

## #3 — Jesper T, 2004-07-02T09:29Z

Det är alltid bra att ha något for av validering på alla formulärfält innan man skickar till db.

Permalänk: https://www.webforum.nu/p/1378334

## #4 — Meng, 2004-07-02T09:47Z

Självklart funkade det ju =/ fattar inte alls varför dock, jag menar man kan inte skriva fel datum eftersom det är select boxar med 1999 - 2060 på ar och 1 - 12 på manad och 1-31 på dag. Men det funkar nu direkt! Tackar :birp  förklara varför den klagade på CDate innan?

Permalänk: https://www.webforum.nu/p/1378337

## #5 — Meng, 2004-07-02T09:53Z

Tänkte på när jag väljer tomt i ar, manad och dag så kommer din kod upp och säger att det är fel datum, jag måste kunna välja låta bli att använda modtagelsedato så om du kan göra om på koden?

Permalänk: https://www.webforum.nu/p/1378341

## #6 — Meng, 2004-07-02T10:02Z

En bild kanske visar bättre hur jag menar. (Beta)

Bilagor:

- [test.gif](https://www.webforum.nu/a/3851.gif)

Permalänk: https://www.webforum.nu/p/1378344

## #7 — Meng, 2004-07-02T12:21Z

Nehe inget svar men Erik har gett mig lösningen innan hittade jag i en asp fil:

```
Function MakeNull(ByVal str)
	if not isdate(str) then str="null" else str="'"& str &"'"
	MakeNull=str
End function
```

Tack E  :birp

Permalänk: https://www.webforum.nu/p/1378410

## #8 — Meng, 2004-07-05T09:41Z

.

:q

Permalänk: https://www.webforum.nu/p/1379311

---

Tråden på webben: https://www.webforum.nu/amne/asp/106568-fel-på-spara-kod