---
title: "Felsökning av kod"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/93191-felsökning-av-kod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "plelkes"
published: "2003-12-21T18:19:02.000Z"
updated: "2003-12-21T18:29:05.000Z"
replies: 3
views: 200
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/93191-felsökning-av-kod"
---

# Felsökning av kod

## #1 — plelkes, 2003-12-21T18:19Z

Hej,
 till skrivning till databas med nedanstående kod

```
<%@LANGUAGE="VBSCRIPT" "%>
<%

Session.LCID = 1053
Set vatskeb = Server.CreateObject( "Adodb.Connection" )
vatskeb.Provider = "Microsoft.Jet.OLEDB.4.0"
MdbFilePath = Server.MapPath("\vatskebalans\db\vbalans.mdb")
vatskeb.ConnectionString = "Data Source='" & MdbFilePath & "'"
vatskeb.open

pnr= Request.Form("personnr")
d = FormatDateTime(Date, 2)
sngVolym = CSng(Request.Form("volym" & lngVolym))

If left(formObj,9) = "leggatill" Then
    lngFluidID = Replace(Request.Form(formObj), "leggatill", "")

strSQL = "SELECT * FROM tblFluids WHERE FluidID = " & lngFluidID

  Set tblFluids = vatskeb.Execute(strSQL)

najoner = sngVolym * tblFluids("Naperml")
kaliumjoner = sngVolym * tblFluids("Kperml")
kloridjoner = sngVolym * tblFluids("Clperml")
fosfatjoner = sngVolym * tblFluids("Pperml")
magnesiumjoner = sngVolym * tblFluids("Mgperml")
energi = sngVolym * tblFluids("Eperml")

  Set tblFluids = Nothing

  
strSQL = "INSERT INTO tblVetskebalans(Dag, FluidID, Volym, PatID, Na, K, Clorid, Fosfat,  Magnesium, Energi ) VALUES(#" & d & "#,'" & lngFluidID & "'," & Request.Form("volym" & lngFluidID) & ", '" & pnr & "', " & najoner & ", " & kaliumjoner & ", " & kloridjoner & ", " & fosfatjoner & ", " & magnesiumjoner &", " & energi &")"
    
	Response.Write strSQL : Response.End

	vatskeb.Execute strSQL, , 128
  End if

            
vatskeb.close
Set vatskeb = Nothing

%>
```

 Händer inget...
Därför försöker jag ägna mig åt felsökning.
Men när [formuläret fylls i](http://www12.brinkster.com/vatskebalans/102.asp)  så kommer man bara till en blank sida.

Jag hade förväntat mig att strSQL skall skrivas ut

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

## #2 — tydal, 2003-12-21T18:23Z

Om strSQL inte skrivs ut så borde det ju vara if-satsen som inte blir sann:

If left(formObj,9) = "leggatill" Then

Vad är formObj och var får den sitt värde? Du kanske menar Request.Form-nånting?

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

## #3 — plelkes, 2003-12-21T18:28Z

det här är samma konstruktion

```
Session.LCID = 1053
Set vatskeb = Server.CreateObject( "Adodb.Connection" )
vatskeb.Provider = "Microsoft.Jet.OLEDB.4.0"
MdbFilePath = Server.MapPath("\vatskebalans\db\vbalans.mdb")
vatskeb.ConnectionString = "Data Source='" & MdbFilePath & "'"
vatskeb.open

pnr= Request.Form("personnr")
d = FormatDateTime(Date, 2)
For each formObj in Request.Form
     If left(formObj,9) = "leggatill" Then
            lngFluidID = Replace(Request.Form(formObj), "leggatill", "")
            strSQL = "INSERT INTO tblVetskebalans(Dag, FluidID, Volym, PatID) VALUES(#" & d & "#,'" & lngFluidID & "'," & Request.Form("volym" & lngFluidID) & ", '" & pnr & "')"

 Response.Write strSQL
vatskeb.Execute strSQL, , 128
   
     End if
Next
            
vatskeb.close
Set vatskeb = Nothing
```

 men funkar

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

## #4 — tydal, 2003-12-21T18:29Z

Den här raden är inte med i din första kod:
For each formObj in Request.Form

(och så Next då förstås som avslutar loopen.)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/93191-felsökning-av-kod