---
title: "Största vinst i ASP?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/76290-största-vinst-i-asp/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "asp"
published: "2003-05-08T05:22:26.000Z"
updated: "2003-05-09T15:46:52.000Z"
replies: 26
views: 669
page: 2
pages: 2
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/76290-största-vinst-i-asp"
---

# Största vinst i ASP?

_Sida 2 av 2._

## #21 — asp, 2003-05-09T15:29Z

nej..

Error Type:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: 'Connection'
/Matchresultat/resultat.asp, line 27

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

## #22 — Jesper T, 2003-05-09T15:33Z

Har du öppnat någon databas då?

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

## #23 — Jesper T, 2003-05-09T15:34Z

Alltså du har: Set objRSK = Connection.Execute(strSQL) 
eller?

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

## #24 — cyprys, 2003-05-09T15:35Z

conn istället för connection?

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

## #25 — asp, 2003-05-09T15:40Z

Här är min kod för lite statistik:

```
<%
Session.lcid = 1053
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("db/amica.mdb")
SQL ="SELECT sum(Gjorda) FROM Post"
Set objRS = Conn.Execute(SQL)
goalSum = objRS(0)
SQL ="SELECT sum(Inslappta) FROM Post"
Set objRS = Conn.Execute(SQL)
ungoalSum = objRS(0)
strSQL = "SELECT COUNT(*) FROM Post WHERE Id"
Set objRSM = Conn.Execute(strSQL)
strSQL = "SELECT COUNT(*) FROM Post WHERE Gjorda > Inslappta"
Set objRSV = Conn.Execute(strSQL)
strSQL = "SELECT COUNT(*) FROM Post WHERE Gjorda = Inslappta"
Set objRSO = Conn.Execute(strSQL)
strSQL = "SELECT COUNT(*) FROM Post WHERE Gjorda < Inslappta"
Set objRSF = Conn.Execute(strSQL)
strSQL = "SELECT TOP 1 Gjorda, Inslappta, (Gjorda - Inslappta) ORDER BY 3 DESC"
Set objRSK = Connection-objekt.Execute(strSQL)
%>
```

Hur skriver jag nu ut den största vinsten, tex 7-1.

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

## #26 — Sebbe, 2003-05-09T15:42Z

```
<%
Session.lcid = 1053
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("db/amica.mdb")

SQL ="SELECT sum(Gjorda) FROM Post"
Set objRS = Conn.Execute(SQL)
goalSum = objRS(0)

SQL ="SELECT sum(Inslappta) FROM Post"
Set objRS = Conn.Execute(SQL)
ungoalSum = objRS(0)

strSQL = "SELECT COUNT(*) FROM Post WHERE Id"
Set objRSM = Conn.Execute(strSQL)

strSQL = "SELECT COUNT(*) FROM Post WHERE Gjorda > Inslappta"
Set objRSV = Conn.Execute(strSQL)

strSQL = "SELECT COUNT(*) FROM Post WHERE Gjorda = Inslappta"
Set objRSO = Conn.Execute(strSQL)

strSQL = "SELECT COUNT(*) FROM Post WHERE Gjorda < Inslappta"
Set objRSF = Conn.Execute(strSQL)

strSQL = "SELECT TOP 1 Gjorda, Inslappta, (Gjorda - Inslappta) ORDER BY 3 DESC"
Set objRSK = Conn.Execute(strSQL)
Response.Write(objRSK("Gjorda") & "-" & objRSK("Inslappta"))
Set objRSK = Nothing
%>
```

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

## #27 — cyprys, 2003-05-09T15:46Z

```
byt
strSQL = "SELECT TOP 1 Gjorda, Inslappta, (Gjorda - Inslappta) ORDER BY 3 DESC"
Set objRSK = Connection-objekt.Execute(strSQL)

till

strSQL = "SELECT TOP 1 Gjorda, Inslappta, (Gjorda - Inslappta) as diff ORDER BY 3 DESC"
Set objRSK = Conn(strSQL)

Och skriv sedan objRSK("Gjorda") & " - " & objRSK("inslappta")
för resultatet
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/76290-största-vinst-i-asp/page2  
Föregående sida: https://www.webforum.nu/amne/asp/76290-största-vinst-i-asp.md