---
title: "Subb-problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/130554-subb-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "saw"
published: "2005-06-25T19:18:26.000Z"
updated: "2005-06-25T20:29:34.000Z"
replies: 4
views: 331
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/130554-subb-problem"
---

# Subb-problem

## #1 — saw, 2005-06-25T19:18Z

Jag kom på mig själv att jag skrev för mycket upprepande kod:

```
if Session("E") > 2 then
     CALL MakeResRecordSet(connection,1)
end if
```

Det ser inte mycket ut här, men det rör sig om 14 upprepningar
på en sida.
Jag försöker då att skapa en sub-rutin, för att bli lite effektivare:

```
Sub MakeCheck(sCheck,sOperator,sNumb)

if CInt(sCheck) & sOperator & CInt(sNumb) then
	CALL MakeResRecordSet(connection,1)
end if
'response.write CInt(sCheck) & " " & sOperator & " " & CInt(sNumb)
End SUb
```

Jag får ett error här:

```
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: '[string: "8>2"]'
```

...men om jag skriver ut det med response.write ( den bort-
markerade raden) då är allt med.

Några tips om hur jag kan fixa detta?
 :stud

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

## #2 — SannyW, 2005-06-25T19:31Z

Vad vill du göra med detta:

CInt(sCheck) & sOperator & CInt(sNumb)

Måste du inte ha detta mot någon typ av värde? Typ if not CInt(sCheck) = "" osv...

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

## #3 — K@llen, 2005-06-25T19:37Z

Nu går jag bara på ditt felmeddelande som fellösning. Ny kod:

```
if cInt(Session("E")) > 2 then
     CALL MakeResRecordSet(connection,1)
end if
```

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

## #4 — cyprys, 2005-06-25T20:15Z

Vad du gör är att försöka sätta strängen "\<" till operanden \< vilket inte är möjligt. Det du får göra är t.ex. en select case i subben.

```
Sub MakeCheck(sCheck,sOperator,sNumb)
 select case sOperator
  case "=" : if sCheck = sNumb then call MakeResRecordSet(connection,1)
  case ">" : if sCheck > sNumb then call MakeResRecordSet(connection,1)
  case "<" : if sCheck < sNumb then call MakeResRecordSet(connection,1)
 end select
end sub
```

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

## #5 — saw, 2005-06-25T20:29Z

Helt underbart, tack för all hjälp

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/130554-subb-problem