---
title: "fel..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13487-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "tronez"
published: "2001-12-31T15:10:00.000Z"
updated: "2002-01-02T10:54:00.000Z"
replies: 16
views: 171
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/13487-fel"
---

# fel...

## #1 — tronez, 2001-12-31T15:10Z

vad e det som e fel?

```
<!-- #include file="adovbs.inc" -->
	 <% Response.Buffer = true %>
	 
	 <%	
	 Set Connect = Server.CreateObject("ADODB.Connection") 
	 Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("data/db.mdb")&";"
	 Set RecSet = Server.CreateObject("ADODB.Recordset")
	 %>
	 <%
	 
	 
     SQL = "SELECT * FROM players WHERE playerID = " & Request.QueryString("playerID") & ""
	 RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
	 
	 RecSet("ownID") = session("teamID")
	 RecSet.Update
	 RecSet.Close
	 
	 %>
	 	
	 <%
	 
	 SQL ="UPDATE users Set eko='"&tot&"' Where id="&session("teamID")&" "
	 RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
	 pris = Request.Form("pris")
	 eko = RecSet("ekonomi") 
	 tot = eko - pris 
	
	 RecSet.Update
	 RecSet.Close
	 Response.Redirect "team.asp?teamID="& session("teamID")&""
	 %>
```

Får felmeddelandet:

```
Microsoft OLE DB Provider for ODBC Drivers fel '80040e10' 

[Microsoft][Drivrutin för ODBC Microsoft Access] För få parametrar angavs. 2 förväntades. 

/soccer/do_buy.asp, rad 24
```

Tack på förhand...

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

## #2 — Rinaldo, 2001-12-31T16:31Z

Vilken rad är 24?

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

## #3 — tronez, 2001-12-31T16:49Z

```
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
```

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

## #4 — webzonen, 2001-12-31T17:55Z

```
SQL = "SELECT * FROM players WHERE playerID = " & Request.QueryString("playerID") & ""
```

skall vara:

```
SQL = "SELECT * FROM players WHERE playerID = " & Request.QueryString("playerID")
```

och

```
SQL ="UPDATE users Set eko='"&tot&"' Where id="&session("teamID")&" "
```

skll vara

```
SQL ="UPDATE users Set eko='"&tot&"' Where id='"&session("teamID")&"' "
```

eller
WHERE id=" & Session("TeamID")

testa dessa!

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

## #5 — tronez, 2002-01-01T01:33Z

nu får jag ett annat fel på rad 24

```
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
```

```
Microsoft OLE DB Provider for ODBC Drivers fel '80040e07' 

[Microsoft][Drivrutin för ODBC Microsoft Access] Typblandningsfel i villkorsuttryck. 

/soccer/do_buy.asp, rad 24
```

vad är det som är fel?

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

## #6 — PatrikB, 2002-01-01T13:20Z

På rad 23, skriv:

```
Response.Write SQL
```

så får vi se hur sql-frågan ser ut innan den exekveras.

cya,
PatrikB

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

## #7 — tronez, 2002-01-01T16:45Z

så här såg det ut då

```
UPDATE users Set ekonomi='' WHERE teamID=-1380859573
```

koden ser ut så här

```
 <%
	 
	 strSQL ="UPDATE users Set ekonomi='"&pris&"' WHERE teamID=" & session("teamID")
	 Response.Write strSQL

	 RecSet.Open strSQL, Connect, adOpenStatic, adLockOptimistic
	 pris  = money - price
	 money = RecSet("ekonomi")
	 price = Request.Form("pris")
	
	 RecSet.Update
	 RecSet.Close
	 Response.Redirect "team.asp"
	 %>
```

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

## #8 — jorgen, 2002-01-01T16:59Z

Hej, variabeln **pris** är tom. 

Var får du det värdet ifrån? 
Är det den uträkningen som kommer efter?
I så fall får du göra uträkningen innan du använder **pris**.

mvh Jörgen :)

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

## #9 — tronez, 2002-01-01T17:08Z

menar du så här?

```
money = RecSet("ekonomi")
	 price = Request.Form("pris")
	 bank  = money - price
	 pris  = bank
```

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

## #10 — jorgen, 2002-01-01T17:09Z

Du måste definiera pris och se till så att variabeln har ett värde innan du gör din UPDATE.

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

## #11 — tronez, 2002-01-01T17:43Z

ok... jag fattar att jag måste göra det innan jag gör en UPDATE, men vart ska jag definera dom nånstans, jag måste ju öppna ett nytt RecSet sen stänga den, å då e det ju borta när jag ska UPDATE..
vad ska jag göra?

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

## #12 — jorgen, 2002-01-01T17:47Z

Kan vi få se lite mer kod?

mvh Jörgen :)

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

## #13 — tronez, 2002-01-01T17:48Z

så här ser hela koden ut

```
	 <!-- #include file="adovbs.inc" -->
	 <% Response.Buffer = true %>
	 
	 <%	
	 Set Connect = Server.CreateObject("ADODB.Connection") 
	 Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("data/db.mdb")&";"
	 Set RecSet = Server.CreateObject("ADODB.Recordset")
	 
	 %>
	
	  <%
	 SQL = "SELECT * FROM players WHERE playerID = " & Request.QueryString("playerID")
	 RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
	 
	 RecSet("ownID") = session("teamID")
	 RecSet.Update
	 RecSet.Close
	 %>	
	 
	 
	 'vart?
	 strPris  = strBank
	 strMoney = RecSet("ekonomi")  
 	 strPrice = Request.Form("pris")  
	 strBank  = strMoney - strPrice
	 'vart?
	 
	 <%
	 strSQL ="UPDATE users Set ekonomi='"&strPris&"' WHERE teamID=" & session("teamID")
	 RecSet.Open strSQL, Connect, adOpenStatic, adLockOptimistic 
	 Response.Write strSQL
	 
	 RecSet.Update
	 RecSet.Close
	 Response.Redirect "team.asp"
	 %>
```

just nu får jag felmeddelande

```
Microsoft OLE DB Provider for ODBC Drivers fel '80040e07' 

[Microsoft][Drivrutin för ODBC Microsoft Access] Typblandningsfel i villkorsuttryck. 

/soccer/do_buy.asp, rad 25
```

där rad 25 är:

```
RecSet.Open strSQL, Connect, adOpenStatic, adLockOptimistic
```

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

## #14 — jorgen, 2002-01-01T18:05Z

Mycket otestad kod:

```
<% Response.Buffer = true 

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("data/db.mdb")&";"

SQL = "SELECT ekonomi FROM players WHERE playerID = " & Request.QueryString("playerID")
set rs = Connect.execute(SQL)

strMoney = rs("ekonomi") 
strPrice = Request.Form("pris") 
strBank = strMoney - strPrice

rs.close()
set rs = nothing

strSQL ="UPDATE users Set ekonomi = '"& strBank &"' " & _
" WHERE teamID=" & session("teamID")

Connect.execute strSQL,,128

Response.Write strSQL

Connect.close()
set Connect = nothing

Response.Redirect "team.asp"
%>
```

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

## #15 — tronez, 2002-01-02T00:25Z

ok, nu har jag nästan fått det att funka...
behöver bara hjälp med att se va det e för fel på det här stycket

```
SQL ="UPDATE users Set ekonomi='"&strPris&"' Where teamID='"&session("teamID")&"' "
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
```

det sägs att det är fel på den koden

```
UPDATE users Set ekonomi='315500000' Where teamID='-1380859573' 
Microsoft OLE DB Provider for ODBC Drivers fel '80040e07' 

[Microsoft][Drivrutin för ODBC Microsoft Access] Typblandningsfel i villkorsuttryck. 

/soccer/do_buy.asp, rad 14
```

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

## #16 — juventus1, 2002-01-02T09:47Z

Hej!

teamID är väl ett tal inte en sträng? Då borde detta fungera:

```
SQL ="UPDATE users Set ekonomi='"&strPris&"' Where teamID="&session("teamID")
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
```

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

## #17 — PatrikB, 2002-01-02T10:54Z

och strPris borde väl vara av typen tal och inte text ....

Då borde detta funka:

```
SQL ="UPDATE users Set ekonomi="&strPris&" Where teamID="&session("teamID")
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
```

cya,
PatrikB

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

---

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