Dynamiskt orderformulär ?

Pellefant · 2003-08-27, 06:03

Hej!

Jag försöker köra denna: http://builder.cnet.com/webbuilding/...ipt/ss02b.html

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

(Inget pris ges)

Tacksam för hjälp.

PHP-kod:


			
<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>

Jojoxx · 2003-08-27, 06:32

Flyttar tråden till VBscript.

Vide · 2003-08-27, 07:33

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:

Kod:

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

Mvh, Vide

Pellefant · 2003-08-27, 15:51

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.

@nders · 2003-08-27, 17:12

Citat:

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

solbulle · 2003-08-27, 20:39

Det saknas väl kod där?

Kod:

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

2003-08-27, 06:03	#1
Pellefant Medlem Registrerad: 2002-05-20 Ort: Stockholm Inlägg: 2 614 Lösningar: 10	Dynamiskt orderformulär ? Hej! Jag försöker köra denna: http://builder.cnet.com/webbuilding/...ipt/ss02b.html Men får error, detta: "Inkompatibla typer:shipcost" line 9 (Inget pris ges) Tacksam för hjälp. PHP-kod: <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>

2003-08-27, 06:32	#2
Jojoxx Moderator Registrerad: 2000-06-18 Inlägg: 4 195 Lösningar: 246	Flyttar tråden till VBscript. __________________ / Jojoxx "Always remember that you're unique and special, just like everyone else..."

2003-08-27, 07:33	#3
Vide Medlem Registrerad: 1999-12-05 Ort: Toronto, Kanada Inlägg: 6 094 Lösningar: 1106	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: Kod: if not ( oFrm.shipping.value = "" ) then 'gör uträkningen else 'felmeddelande till klienten end if Mvh, Vide __________________ Lite musik: VideGeiger.com och iTunes

2003-08-27, 20:39	#6
solbulle Medlem Registrerad: 2001-03-12 Ort: Stockholm Inlägg: 4 998 Lösningar: 64	Det saknas väl kod där? Kod: oFrm.totval.value = Lineval + shipcost(Cint(oFrm.shipping.value)) __________________ /solbulle Hemmabio \| Spelautomater \| The Who

Trådverktyg
Visa utskriftsvänlig version E-posta den här sidan
Visningsalternativ
Linjär visning Växla till hybrid-visning Växla till trådad visning

2003-08-27, 15:51	#4
Pellefant Medlem Registrerad: 2002-05-20 Ort: Stockholm Inlägg: 2 614 Lösningar: 10	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.