---
title: "Dynamiskt orderformulär ?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/84548-dynamiskt-orderformulär"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Pellefant"
published: "2003-08-27T05:03:16.000Z"
updated: "2003-08-27T19:39:49.000Z"
replies: 5
views: 420
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/84548-dynamiskt-orderformulär"
---

# Dynamiskt orderformulär ?

## #1 — Pellefant, 2003-08-27T05:03Z

Hej!

Jag försöker köra denna: <http://builder.cnet.com/webbuilding/pages/Programming/VBScript/ss02b.html>

Men får error, detta: "Inkompatibla typer:shipcost" line 9

(Inget pris ges)

Tacksam för hjälp.

```php
<HTML>
<HEAD>
<SCRIPT language="vbscript">
  option explicit
  Dim prices(1)
  Dim shipcost(1) 

  prices(0) = 10.50
  prices(1) = 15.75
  shipcost(0) = 10.00
  shipcost(1) = 5.00 

  Function calcit()
    Dim Lineval
    Dim oFrm
    Set oFrm = document.order
    If oFrm.quantity.value = 0 Then
    exit function
  Else
    Lineval = prices(Cint(oFrm.ProductSize.value)) * _
      cint(oFrm.quantity.value)
        shipcost(Cint(oFrm.shipping.value))
    End if
  End Function
</SCRIPT>
</HEAD>
<BODY> 

<H3>Order form</H3>
<TABLE>
<FORM name="order">
<CENTER>
<TR>
  <TD>Choose size</TD>
  <TD>
    <SELECT name="ProductSize" onBlur="calcit()">
      <OPTION value="0">Small</OPTION>
      <OPTION value="1">Large</OPTION>
    </SELECT>
  </TD>
</TR><TR>
  <TD>Enter quantity</TD>
  <TD><INPUT type="text" name="quantity" onBlur="calcit()" value=0></TD>
</TR><TR>
<TD>Choose shipping</TD>
  <TD>
    <SELECT name="shipping" onBlur="calcit()">
      <OPTION value="0">Next day</OPTION>
      <OPTION value="1">Three days</OPTION>
    </SELECT>
  </TD>
</TR><TR>
<TD>Order value</TD>
<TD><INPUT type="text" name="totval"></TD>
</TR>
</FORM>
</TABLE>
</BODY>
</HTML>
```

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

## #2 — Jojoxx, 2003-08-27T05:32Z

Flyttar tråden till VBscript.

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

## #3 — Vide, 2003-08-27T06:33Z

Det är klart att om du inte anger något värde för shipping så kommer det inte att fungera.

Gör en kontroll av värdet innan du försöker använda det, t.ex:

```
if not ( oFrm.shipping.value = "" ) then
'gör uträkningen
else
'felmeddelande till klienten
end if
```

Mvh, Vide

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

## #4 — Pellefant, 2003-08-27T14:51Z

Sorry för felpostningen. Detta exempel ar nog lite för svårt för mig att börja med. Tack för hjälpen.

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

## #5 — @nders, 2003-08-27T16:12Z

> **Vide skrev:**
>
> Det är klart att om du inte anger något värde för shipping så kommer det inte att fungera.

Stämmer. Men, i detta fall är *shipping* en \<select\>, som ser ut att alltid ha ett värde, så i min enfald tycker jag att det ska fungera, men det gör det ju tydligen inte.

Men jag har å andra sidan aldrig använt VBScript på klienten.

Mvh

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

## #6 — solbulle, 2003-08-27T19:39Z

Det saknas väl kod där?

```
oFrm.totval.value = Lineval + shipcost(Cint(oFrm.shipping.value))
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/84548-dynamiskt-orderformulär
