Plusse felter

http://www.html.dk/tutorials/asp/ mener jeg har noget med det

Skriv:

Cin(Request.Form("Feltnavn")) + Cin(Request.Form("Feltnavn"))

//>Rune

CInt(Request.Form("Feltnavn")) + CInt(Request.Form("Feltnavn"))

skulle være et svar, da medions er forkert (mener jeg da)

Tror du ikke at du kan finde noget der kan hjælpe med følgende programeksempler, i kapitel 10 ?

Download:
www.bog.ing.dk/pics/87-571-2280-6-kode.zip

/Snuseren.dk

tomsommer> DOH.. *G* ja.. sorry.. det var Cint .. ->Well, jeg var træt... ;-)

//>Rune

det er helt ok, jeg tilgiver dig

Jeg kan desværre ikke gennemskue de dokumenter, da jeg ikke kan få dem til at virke i min browser!

ahjdp1> hmm.. hvad skal det her plusses med? <%= aParameters(3) %>

//>Rune

Feltet <%= aParameters(3) %> findes i indkøbskurven for hver linje det er fragten. Så det skal plusse med sig selv!!!

ahh.. så skriver du bare

<%
strParameter = Cint(aParameters(3))
While Not rs.EOF
strParameter = strParameter + strParameter
Response.Write(strParameter)
%>

//>Rune

Jeg får en fejl med at en sætning var ventet i linje 171 og i den linje står der End Sub

*G* jeg ved jo ik' hvad du har af kode... -prøv lgie at smid noget kode op så jeg kan se hvad jeg har med at gøre...

hele filen?

well, det jeg har brug for at vide...

//>Rune

<td valign="top" width="602" bgcolor="white" style="padding: 2px">
                        <h1>Indk&oslash;bskurv</h1>
                        <p><a name="head"></a></p>
                        <div>
                            <p><%
Sub AddItemToCart(iItemID, iItemCount)
    If dictCart.Exists(iItemID) Then
        dictCart(iItemID) = dictCart(iItemID) + iItemCount
    Else
        dictCart.Add iItemID, iItemCount
    End If
End Sub

Sub RemoveItemFromCart(iItemID, iItemCount)
    If dictCart.Exists(iItemID) Then
        If dictCart(iItemID) <= iItemCount Then
            dictCart.Remove iItemID
        Else
            dictCart(iItemID) = dictCart(iItemID) - iItemCount
        End If
    Else
        Response.Write "Der er ingen varer i din indkøbskurv.<BR><BR>" & vbCrLf
    End If
End Sub

Sub ShowItemsInCart()
Dim Key
Dim aParameters ' as Variant (Array)
Dim sTotal, sShipping
Dim fTotal, sfreight
   
    %></p>
                            <div id="SourceCode">
                                <table border="0" cellpadding="2" cellspacing="0" width="100%">
                                    <tr align="center">
                                        <td width="54" align="left" class="tdhead" valign="top"><b>Vare</b></td>
                                        <td align="left" class="tdhead" valign="top"><b>Beskrivelse</b></td>
                                        <td width="36" align="left" class="tdhead" valign="top"><b>Antal</b></td>
                                        <td width="124" align="left" class="tdhead" valign="top"><b>&AElig;ndre antal varer</b></td>
                                        <td width="50" align="left" class="tdhead" valign="top">V&aelig;gt</td>
                                        <td width="96" align="left" class="tdhead" valign="top"><b>Pris</b></td>
                                        <td width="96" align="left" class="tdhead" valign="top"><b>I alt</b></td>
                                    </tr>
                                    <%
    sTotal = 0
    For Each Key in dictCart
        aParameters = GetItemParameters(Key)
        %>
                                    <tr>
                                        <td align="right" width="54" valign="top"><%= Key %><br>
                                        </td>
                                        <td align="left" valign="top"><%= aParameters(1) %><br>
                                        </td>
                                        <td align="right" width="36" valign="top"><%= dictCart(Key) %></td>
                                        <td align="left" width="124" valign="top"><a href="kurv.asp?action=del&amp;item=<%= Key %>&amp;count=1">Fjern 1</a>&nbsp;<a href="kurv.asp?action=del&amp;item=<%= Key %>&amp;count=<%= dictCart(Key) %>">Fjern alle</a><br>
                                            <a href="kurv.asp?action=add&amp;item=<%= Key %>&amp;count=1">Tilf&oslash;j 1</a></td>
                                        <td align="right" width="50" valign="top"><%= aParameters(3) %></td>
                                        <td align="right" width="96" valign="top">DKr. &nbsp;<%= aParameters(2) %></td>
                                        <td align="right" width="96" valign="top">DKr.&nbsp;<%= FormatNumber(dictCart(Key) * CSng(aParameters(2)),2) %></td>
                                    </tr>
                                    <%
        sTotal = sTotal + (dictCart(Key) * CSng(aParameters(2)))
    Next
   
    'Beregn fragt
    If sTotal <> 0 Then
        sShipping = 0
    Else
        sShipping = 0
    End If
    sTotal = sTotal + sShipping

    sFreight = fragt
    %>
                                    <tr>
                                        <td colspan=5 align="Right" valign="top">V&aelig;gt i alt:
<%
strParameter = Cint(aParameters(3))
While Not rs.EOF
strfrcal = strParameters(3) + strParameter(3)
Response.Write(strfrcal)
%>

</td>
                                        <td width="96">
                                            <div align="right">
                                                <b>Forsendelse:</b></div>
                                        </td>
                                        <td align="right" width="96" valign="top" style="border-bottom: 1 px solid #000000">DKr. <%= FormatNumber(sFreight,2) %></td>
                                    </tr>
                                    <tr>
                                        <td colspan=6 align="Right" valign="top"><b>I alt excl. moms:</b></td>
                                        <td align="right" width="96" valign="top">DKr. <%= FormatNumber(sTotal,2) %></td>
                                    </tr>
                                    <tr>
                                        <td align="Right" colspan="6" valign="top"><b>I alt incl. moms:</b></td>
                                        <td align="right" width="96" valign="top">DKr. <% PrisIncl = FormatNumber(sTotal,2) * 1.25
Response.write "" & FormatNumber(PrisIncl,2)
%></td>
                                    </tr>
                                    <tr>
                                        <td align="Right" valign="top" colspan="6"><b>I alt Euro:</b></td>
                                        <td align="right" width="96" valign="top">&#x20AC; <%
PrisIncl = FormatNumber(sTotal,2) * 1.25
Set euroRS = Conn.Execute("SELECT EURO FROM valuta")
PrisEURO = PrisIncl / euroRS("EURO")
euroRS.close()

Response.write "" & formatnumber (PrisEURO,2)
%></td>
                                    </tr>
                                </table>
                                <i>Bem&aelig;rk at prisen er excl. fragtomkostninger. Disse vil dog fremg&aring; af ordrebekr&aelig;ftelsen!</i><br>
                                <%
End Sub

Private sub SendMailToAdmin()

    on error resume next

    strMailBody = strMailBody & "<html><body bgcolor='#F5F5F5'>"
    strMailBody = strMailBody & "<h2><font color='#000000' face='Arial'>Bestilling fra Internetbutikken</font></h2>"
    strMailBody = strMailBody & "<p><font color='#000000' face='Arial'><pre>"

    strMailBody = strMailBody & "  <b>Navn:</b>                  " & Request.Form ("fldName") & "<br>"
    strMailBody = strMailBody & "  <b>Evt. firmanavn:</b>        " & Request.Form ("fldCompanyName") & chr(10)
    strMailBody = strMailBody & "  <b>E-mail Adresse:</b>        " & Request.Form ("fldEmail") & chr(10)
    strMailBody = strMailBody & "  <b>Adresse:</b>                " & Request.Form ("fldURL") & chr(10)
    strMailBody = strMailBody & "  <b>Postnr./By:</b>            " & Request.Form ("fldAreaCode") & " " & Request.Form ("fldPhone") & chr(10)
    strMailBody = strMailBody & "  <b>Tlf.:</b>                  " & Request.Form ("fldFax") & chr(10)
    strMailBody = strMailBody & "  <b>Levering:</b>              " & Request.Form ("delivery") & chr(10)
    strMailBody = strMailBody & "  <b>Bemærkninger:</b>          " & Request.Form ("note") & chr(10)
    strMailBody = strMailBody & "</pre><small>" & Request.Form ("bestillingForm")'ShowItemsInCart
    strMailBody = strMailBody & "" & chr(10)
    strMailBody = strMailBody & "</small></font></p>"
    strMailBody = strMailBody & "</body></html>"
   
    Set objMail = server.CreateObject("JMail.SMTPMail")
    objMail.ContentType = "text/html"
   
   
    ' ## MAILPROG OPSÆTNING
    objMail.ServerAddress = "bast-underholdning.dk"
    objMail.Sender = "admin@bast-underholdning.dk"
    objMail.ReplyTo = "salg@isdk.dk"
    objMail.Sendername = "INTER-SOFT Danmark / Internetbutik"
    objMail.subject = "Ordre fra internetbutikken"
   
    ' ## MODTAGER PÅ EMALEN
    objMail.AddRecipient("ordre@isdk.dk")
   
    objMail.body = strMailBody
   
    objMail.Priority = 1
   
    ' ## SENDER
    objMail.Execute
   
    Set objMail = nothing
   
    If err.Number < 0 Then

        Response.Write "<b><font color=red>Bestilling blev ikke sendt</font></b>"
   
    Else
   
        Response.Write "<b><font color=red>Ordren er sendt De vil modtage en bekræftelse med estimeret leveringstidspunkt</font></b>"

    End If


ShowItemsInCart

%>
                                <h2>Adresse oplysninger</h2>
                                <br>
                                <hr size="1">
                                <table width="100%" border="0" cellspacing="0" cellpadding="4">
                                    <tr>
                                        <td align="left" valign="top" width="150"><b>Navn:</b></td>
                                        <td align="left" valign="top"><!--webbot bot="Validation" S-Display-Name="Navn" B-Value-Required="TRUE"
      I-Minimum-Length="2" I-Maximum-Length="100" --><% Response.Write Request.Form ("fldName") %></td>
                                    </tr>
                                    <tr>
                                        <td align="left" valign="top" width="150"><b>Evt. firmanavn:</b></td>
                                        <td align="left" valign="top"><% Response.Write Request.Form ("fldCompanyName") %></td>
                                    </tr>
                                    <tr>
                                        <td align="left" valign="top" width="150"><b>E-mail Adresse:</b></td>
                                        <td align="left" valign="top"><!--webbot bot="Validation" S-Display-Name="Email" B-Value-Required="TRUE"
      I-Minimum-Length="4" I-Maximum-Length="100" --><% Response.Write Request.Form ("fldEmail") %></td>
                                    </tr>
                                    <tr>
                                        <td align="left" valign="top" width="150"><b>Adresse:</b></td>
                                        <td align="left" valign="top"><!--webbot bot="Validation" S-Display-Name="Adresse"
      B-Value-Required="TRUE" I-Minimum-Length="20" I-Maximum-Length="100" --><% Response.Write Request.Form ("fldURL") %></td>
                                    </tr>
                                    <tr align="left" valign="top">
                                        <td width="150" valign="top" align="left"><b>Postnr./By:</b></td>
                                        <td valign="top" align="left">DK-<!--webbot bot="Validation" S-Display-Name="Postnr" S-Data-Type="Integer"
      S-Number-Separators="x" B-Value-Required="TRUE" I-Minimum-Length="4"
      I-Maximum-Length="4" --><% Response.Write Request.Form ("fldAreaCode") %>&nbsp;&nbsp;<!--webbot bot="Validation" S-Display-Name="By" B-Value-Required="TRUE"
      I-Minimum-Length="1" I-Maximum-Length="50" --><% Response.Write Request.Form ("fldPhone") %></td>
                                    </tr>
                                    <tr align="left" valign="top">
                                        <td width="150" valign="top" align="left"><b>Telefon:</b></td>
                                        <td valign="top" align="left">+45 <% Response.Write Request.Form ("fldFax") %></td>
                                    </tr>
                                    <tr align="left" valign="top">
                                        <td width="150" valign="top" align="left"><b>Levering:</b></td>
                                        <td valign="top" align="left"><% Response.Write Request.Form ("delivery") %></td>
                                    </tr>
                                    <tr align="left" valign="top">
                                        <td width="150" valign="top" align="left"><b>Bem&aelig;rkninger:</b></td>
                                        <td valign="top" align="left"><% Response.Write Request.Form ("note") %></td>
                                    </tr>
                                    <tr align="left" valign="top">
                                        <td valign="top" align="left" width="150"><b>Ordrenummer:</b></td>
                                        <td valign="top" align="left"><% Response.Write Request.Form ("ordrenummer") %><%


Dim RandomNum
Randomize
    RandomNum = Int(Rnd * 100) + 1


min_variabel = DatePart("YYYY", now()) & DatePart("m", now()) & DatePart("d", now()) & DatePart("h", now()) & DatePart("n", now()) & DatePart("S", now()) & RandomNum



Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("items.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "ordrer", Conn, adOpenDynamic, adLockOptimistic, adCmdTable


rs.addnew
rs("id") = min_variabel
rs.update

rs.close
Conn.Close

set rs = Nothing
set Conn = Nothing

' Response.Write "<input type='text' name='ordrenummer' size='40' style='border: none; font-face: Verdana; size: 8pt' value=" & min_variabel & "'>"
Response.Write "<b>Ordrenummer: </b>" & min_variabel & ""

%></td>
                                    </tr>
                                </table>
                                <h2><%

End Sub
%></h2>
                                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                    <tr align="left" valign="bottom">
                                        <td>&nbsp;</td>
                                    </tr>
                                </table>
                                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                    <tr>
                                        <td width="100%" colspan="2">&nbsp;</td>
                                    </tr>
                                    <tr>
                                        <td width="100%" align="left" valign="top" colspan="2"><br>
                                            <%
        'Åben databasen     
        Set Conn = Server.CreateObject("ADODB.Connection")
        Set Rs = Server.CreateObject("ADODB.Recordset")
        'Modify and use this connection if your database is in your database directory
        'Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\home\bastunderholddk\www\shop\items.mdb"
        Conn.Open "DBQ=" & Server.Mappath("items.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"


SQL = "SELECT Name, Price, ProductNum FROM Items"
   
rs.Open SQL, Conn
rs.MoveFirst


        Function GetItemParameters(iItemID)
        'Open database
        Set Conn = Server.CreateObject("ADODB.Connection")
        Set Rs = Server.CreateObject("ADODB.Recordset")
        'Modify and use this connection if your database is in your database directory
        'Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\home\bastunderholddk\www\shop\items.mdb"
        Conn.Open "DBQ=" & Server.Mappath("items.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

SQL = "SELECT* FROM Items WHERE ProductNum like '%" & iItemID & "%'"
rs.Open SQL, Conn
rs.MoveFirst

Dim aParameters
aParameters = Array(rs("ProductNum"), rs("Name"), rs("Price"), rs("Vaegt"))
' Return array containing product info.
GetItemParameters = aParameters
End Function

%><%
Dim dictCart ' as dictionary
Dim sAction ' as string
Dim iItemID ' as integer
Dim iItemCount ' as integer

If IsObject(Session("cart")) Then
    Set dictCart = Session("cart")
Else

    Set dictCart = Server.CreateObject("Scripting.Dictionary")
End If

sAction = CStr(Request.QueryString("action"))
iItemID = CInt(Request.QueryString("item"))
iItemCount = CInt(Request.QueryString("count"))
%>
                                            <table border=0 cellspacing=0 cellpadding=0 width="100%">
                                                <tr>
                                                    <td><%

Select Case sAction
    Case "add"
        AddItemToCart iItemID, iItemCount
        ShowItemsInCart
        %></td>
                                                </tr>
                                                <tr>
                                                    <td align="right"><a href="kurv.asp?action=checkout&amp;#checkout"><img border="0" src="grafik/godkend_koeb.jpg" width="93" height="20" alt="K&oslash;b"></a><br>
                                                        <%
    Case "del"
        RemoveItemFromCart iItemID, iItemCount
        ShowItemsInCart
        %></td>
                                                </tr>
                                                <tr>
                                                    <td align="right"><a href="kurv.asp?action=checkout&amp;#checkout"><img border="0" src="grafik/godkend_koeb.jpg" width="93" height="20" alt="K&oslash;b"></a><br>
                                                        <%
    Case "viewcart"
        ShowItemsInCart
        %></td>
                                                </tr>
                                                <tr>
                                                    <td align="right"><a href="kurv.asp?action=checkout&amp;#checkout"><img border="0" src="grafik/godkend_koeb.jpg" alt="K&oslash;b" width="93" height="20"></a><br>
                                                        <%
case "checkout"
ShowItemsInCart
%><br>
                                                        <br>
                                                        <a name="checkout"></a><!--webbot BOT="GeneratedScript" PREVIEW=" " startspan -->
                                                        <script language="JavaScript"><!--
function FrontPage_Form1_Validator(theForm)
{

  if (theForm.fldName.value == "")
  {
    alert("Skrviv venligst dit \"Navn\" field.");
    theForm.fldName.focus();
    return (false);
  }

  if (theForm.fldName.value.length < 2)
  {
    alert("Skriv venligst mindst 2 tegn i feltet \"Navn\" field.");
    theForm.fldName.focus();
    return (false);
  }

  if (theForm.fldName.value.length > 100)
  {
    alert("Der er kun plads til 100 tegn i feltet \"Navn\" feltet.");
    theForm.fldName.focus();
    return (false);
  }

  if (theForm.fldEmail.value == "")
  {
    alert("Skriv venligst din \"Email\" feltet.");
    theForm.fldEmail.focus();
    return (false);
  }

  if (theForm.fldEmail.value.length < 4)
  {
    alert("Skriv venligst mindst 4 tegn i feltet \"Email\" feltet.");
    theForm.fldEmail.focus();
    return (false);
  }

  if (theForm.fldEmail.value.length > 100)
  {
    alert("Der er kun plads til 100 tegn i feltet \"Email\" feltet.");
    theForm.fldEmail.focus();
    return (false);
  }

  if (theForm.fldURL.value == "")
  {
    alert("Skriv venligst din \"Adresse\" field.");
    theForm.fldURL.focus();
    return (false);
  }

  if (theForm.fldURL.value.length < 1)
  {
    alert("Skriv venligst mindst 1 tegn i feltet \"Adresse\" feltet.");
    theForm.fldURL.focus();
    return (false);
  }

  if (theForm.fldURL.value.length > 100)
  {
    alert("Der er ikke plads til mere end 100 tegn i feltet \"Adresse\" feltet.");
    theForm.fldURL.focus();
    return (false);
  }

  if (theForm.fldAreaCode.value == "")
  {
    alert("Skriv venligst dit \"Postnr\" feltet.");
    theForm.fldAreaCode.focus();
    return (false);
  }

  if (theForm.fldAreaCode.value.length < 4)
  {
    alert("Skriv kun 4 tegn i feltet \"Postnr\" feltet.");
    theForm.fldAreaCode.focus();
    return (false);
  }

  if (theForm.fldAreaCode.value.length > 4)
  {
    alert("Der er kun plads til 4 tegn i feltet \"Postnr\" feltet.");
    theForm.fldAreaCode.focus();
    return (false);
  }

  var checkOK = "0123456789-";
  var checkStr = theForm.fldAreaCode.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    allNum += ch;
  }
  if (!allValid)
  {
    alert("Skriv venligst kun tal i feltet \"Postnr\" feltet.");
    theForm.fldAreaCode.focus();
    return (false);
  }

  if (theForm.fldPhone.value == "")
  {
    alert("Skriv venligst \"By\" feltet.");
    theForm.fldPhone.focus();
    return (false);
  }

  if (theForm.fldPhone.value.length < 1)
  {
    alert("Skriv mindst 1 tegn i feltet \"By\" feltet.");
    theForm.fldPhone.focus();
    return (false);
  }

  if (theForm.fldPhone.value.length > 50)
  {
    alert("Der er kun plads til 50 tegn i feltet \"By\" feltet.");
    theForm.fldPhone.focus();
    return (false);
  }
  return (true);
}
//--></script>
                                                        <!--webbot BOT="GeneratedScript" endspan -->
                                                        <form action="godkend.asp?action=send" method="post" name="FrontPage_Form1" onsubmit="return FrontPage_Form1_Validator(this)">
                                                            <div align="left">
                                                                <input type="Hidden" name="bestillingForm" value="">
                                                                <script>
document.FrontPage_Form1.bestillingForm.value = document.getElementById("SourceCode").innerHTML;
</script>
                                                                <b>&nbsp;Skriv venligst dine adresse oplysninger</b><br>
                                                                <table width="100%" border="0" cellspacing="0" cellpadding="4">
                                                                    <tr>
                                                                        <td align="left" valign="top" width="150"><b>Navn:</b></td>
                                                                        <td align="left" valign="top"><!--webbot bot="Validation" S-Display-Name="Navn" B-Value-Required="TRUE"
      I-Minimum-Length="2" I-Maximum-Length="100" --><input type="text" name="fldName" size="40" maxlength="100"></td>
                                                                    </tr>
                                                                    <tr>
                                                                        <td align="left" valign="top" width="150"><b>Evt. firmanavn:</b></td>
                                                                        <td align="left" valign="top"><input type="text" name="fldCompanyName" size="40"></td>
                                                                    </tr>
                                                                    <tr>
                                                                        <td align="left" valign="top" width="150"><b>E-mail Adresse:</b></td>
                                                                        <td align="left" valign="top"><!--webbot bot="Validation" S-Display-Name="Email" B-Value-Required="TRUE"
      I-Minimum-Length="4" I-Maximum-Length="100" --><input type="text" name="fldEmail" size="40" maxlength="100"></td>
                                                                    </tr>
                                                                    <tr>
                                                                        <td align="left" valign="top" width="150"><b>Adresse:</b></td>
                                                                        <td align="left" valign="top"><!--webbot bot="Validation" S-Display-Name="Adresse"
      B-Value-Required="TRUE" I-Minimum-Length="5" I-Maximum-Length="100" --><input type="text" name="fldURL" size="40" maxlength="100"></td>
                                                                    </tr>
                                                                    <tr align="left" valign="top">
                                                                        <td valign="top" align="left" width="150"><b>Postnr./By:</b></td>
                                                                        <td valign="top" align="left"><!--webbot bot="Validation" S-Display-Name="Postnr" S-Data-Type="Integer"
      S-Number-Separators="x" B-Value-Required="TRUE" I-Minimum-Length="4"
      I-Maximum-Length="4" --><input type="text" name="fldAreaCode" size="4" maxlength="4">&nbsp;&nbsp;<!--webbot bot="Validation" S-Display-Name="By" B-Value-Required="TRUE"
      I-Minimum-Length="1" I-Maximum-Length="50" --><input type="text" name="fldPhone" size="34" maxlength="50"></td>
                                                                    </tr>
                                                                    <tr align="left" valign="top">
                                                                        <td valign="top" align="left" width="150"><b>Telefon:</b></td>
                                                                        <td valign="top" align="left"><input type="text" name="fldFax" size="11"></td>
                                                                    </tr>
                                                                    <tr align="left" valign="top">
                                                                        <td valign="top" align="left" width="150"><b>Levering:</b></td>
                                                                        <td valign="top" align="left"><select name="delivery" size="1">
                                                                                <option value="one">V&aelig;lg venligst leveringsmetode</option>
                                                                                <option value="Efterkrav + gebyr 35,-">Efterkrav + gebyr 35,-</option>
                                                                                <option value="Forudbetaling">Forudbetaling - n&aelig;rmere information i bekr&aelig;ftelse</option>
                                                                                <option value="Forudbetaling">Konto - kr&aelig;ver forudg&aring;ende aftale</option>
                                                                            </select></td>
                                                                    </tr>
                                                                    <tr align="left" valign="top">
                                                                        <td valign="top" align="left" width="150"><b>Bem&aelig;rkninger:</b></td>
                                                                        <td valign="top" align="left"><input type="text" name="note" size="40"></td>
                                                                    </tr>
                                                                    <tr align="left" valign="top">
                                                                        <td valign="top" align="left" width="150">
                                                                            <p></p>
                                                                        </td>
                                                                        <td valign="top" align="left"><input type="submit" name="submitButtonName" value=" Godkend k&oslash;b " class="submitbutton"></td>
                                                                    </tr>
                                                                </table>
                                                            </div>
                                                        </form>
                                                    </td>
                                                </tr>
                                                <tr>
                                                    <td align="right"><%

case "send"
SendMailToAdmin

Case Else ' Shop
%><%
End Select

Set Session("cart") = dictCart

%></td>

*LOL*
Det var ik' så lidt...
hvad er det du vil ha' plusset.. og hvor skal det ske?
//>Rune

hmm.. prøv lgie med denne:

<%
strParameter = Cint(aParameters(3))
While Not rs.EOF
strAparameter = strAparameter + strParameter
Response.Write(strAparameter)
%>

//>Rune

Her er feltet hvor vægten på varen er. Den skal ganges med antallet af varer.

<td align="right" width="96" valign="top">DKr. &nbsp;<%= aParameters(2) %></td>

Den brokker sig stadig med det der end sub.

Linjen starter med: Bem&aelig;rk at prisen er excl. fragtomkostninger. Disse vil dog fremg&aring; af ordrebekr&aelig;ftelsen!</i><br>
                                <%
End Sub

Svarer