kig ind og hjælp vedr. asp-scripts med indkøbsvognen

Tjaaa, linket virker ikke!

Her er nye versioner af PrintBag og RecalcBag fra bag.asp. Rettelserne går ud
på, at jeg har tilføjet nodeValue for hver forekomst af metodekaldet
\'getNamedItem\' - det ser ud til at det derved virker hos mig.

Sub PrintBag(BagItems)
    Out \"<FORM METHOD=\"\"POST\"\" ACTION=\"\"\"
    Out Request.ServerVariables(\"SCRIPT_NAME\") & \"\"\">\"
    Out \"<TABLE><TR><TH>Units</TH><TH COLSPAN=2>\"
    Out \"Product</TH><TH>Unit Price</TH><TH>Price</TH>\"
    Out \"</TR>\" & vbCrLf
    For Each item In BagItems.childNodes
        Out \"<TR><TD><input type=\"\"TEXT\"\" name=\"\"Qty\"
        Out item.attributes.getNamedItem(\"productid\").nodeValue
        Out \"\"\" VALUE=\"\"\" & item.text & \"\"\" SIZE=\"\"3\"\">\"
        Out \"<TD>\" & item.attributes.getNamedItem(\"productname\").nodeValue
        Out \"</TD><TD>\" & item.attributes.getNamedItem(\"quantityperunit\").nodeValue & \"</TD>\"
        nUnitPrice = item.attributes.getNamedItem(\"unitprice\").nodeValue
        nSubTotal = item.text * nUnitPrice
        nTotal = nTotal + nSubTotal
        Out \"<TD>\" & FormatCurrency(nUnitPrice) & \"</TD>\"
        Out \"<TD><B>\" & FormatCurrency(nSubTotal) & \"</B></TD>\"
        Out \"</TR>\" & vbCRLF
    Next
    Out \"<TR><TD COLSPAN=5><HR></TD></TR>\"
    Out \"<TR><TD COLSPAN=3></TD><TD><B>Total:</B></TD>\"
    Out \"<TD><B>\" & FormatCurrency(nTotal) & \"</B></TD></TR>\" & vbCrLf
    Out \"<TR><TD COLSPAN=5 ALIGN=\"\"RIGHT\"\">\"
    Out \"<INPUT TYPE=SUBMIT NAME=\"\"DO\"\" VALUE=\"\"Shop for more\"\">&nbsp;\"
    Out \"<INPUT TYPE=SUBMIT NAME=\"\"DO\"\" VALUE=\"\"Recalculate\"\">&nbsp;\"
    Out \"<INPUT TYPE=SUBMIT NAME=\"\"DO\"\" VALUE=\"\"Check out\"\">\"
    Out \"</TD></TR></TABLE></FORM>\"
End Sub

Sub RecalcBag(BagItems)
    For Each item in BagItems.childNodes
        nQty = Trim(Request.Form(\"Qty\" & _
                            item.attributes.getNamedItem(\"productid\").nodeValue))
        If \"\" <> nQty And IsNumeric(nQty) Then
            If nQty < 1 Then
                BagItems.removeChild item
            Else
                item.text = nQty
            End If
        End If
    Next
End Sub

At finde løsningen krævede i et vist omfang, at jeg skruede bissen på! I den anledning
kan jeg bemærke:

Du skal være klar over med hensyn til software, der findes gratis på nettet:
\"There is no such thing as a free lunch\" - hvilket i denne
sammenhæng betyder, at godt nok er der enorme
mængder af gratis software til fri afbenyttelse, MEN: Man har typisk brug for et vist,
måske meget stort, teknisk kendskab for selv at kunne tilpasse programmerne til det,
man har brug for. Ikke sjældent er der også direkte fejl eller mangler i programmerne.
Det må man så enten selv klare, eller man hyrer nogen til det.

Alternativt anskaffer man et renommeret kommercielt produkt til løsning af ens opgave.
Fordelen hermed er selvsagt, at man kan (burde kunne) regne med support fra
leverandørfirmaet, prisen er dog normalt også herefter.

Mvh
Jesper Naur

Hej Jesper Naur:

Først og fremmest skal du have TUSINDE TAKKE for svar, jeg ved at du har brugt langt tid på at redigere de coder, mange mange tak!


Jeg må desværre sige at resultat er negativt:
Jeg har pastet/sætte ind din nye version(ovenstående)code til den orginal bag.asp fra line med følgende overskr.:Sub bag (bagitems)................osv

følgende fejl fremkommer, når jeg http//localhost/bag.asp:

Der opstod en Microsoft VBScript-kompileringsfejl fejl \'800a0400\'

En sætning var ventet

/bag.asp, linje 105

Sub PrintBag(BagItems)<BR>    Out \"&lt;FORM METHOD=\"\"POST\"\" ACTION=\"\"\"<BR> 


Jesper, jeg har nu forstået dit \"GULDKORN\":there is no such thing as a free lunch, der budskabet.

Men nu har jeg brugt min. 4 md for at lære at designe hjemmesiden med DENNE INDKØBSVOGN til dit firma, jeg synes at det er ærgerligt at opgive nu!

Men et guldkorn er et guldkorn!

løsning for mig nu er:

1: Kan du være rigtige søde og fremsende mig hele din mappe, som du har redigeret, og fortæl mig præcis hvor i harddisken denne mappe skal ligge i!(på denne måde kan jeg sikker mig at coderne er 100% korrekt, men hvis det stadig ikke virke, så skyldes det kun opsætning af min computer).

2: hvis det ikke virker, har jeg påtænkt at fremskaffe mig en webstore: momsterCart ver. 2.235 eller webstores 2000 isp edition, har du nogen bedre bud???? Har du ellers et godt webstore med shopping cart som momsterCart, som jeg kan købe en kopi af?????

Endnu engang tusinde takke for din venlighed. Hvis du oplyse mig din adresse, vil jeg meget gerne fremsende en \"lille\" gave. Det synes jeg virkelig at du har fortjent.

vi snakkes

svar hurligst muligt

sendes til: pluu@solmail.dk

Patric

Hej Patric

Jeg tror godt, jeg kan gennemskue, hvad der er gået galt: Du har antagelig
brugt funktionerne \"View->View Source\" (eller de tilsvarende danske) i din browser
til at få fat i min kode. Derved har du utilsigtet fået inkluderet den yderligere
HTML-kode, som eksperten.dk anvender til at få indlæggene til at fremstå korrekt.

De første 2 linier af PrintBag skal fx se således ud:

Sub PrintBag(BagItems)
Out \"<FORM METHOD=\"\"POST\"\" ACTION=\"\"\"

hvorimod den fejludskrift, du oplever, antyder at du har fået dem til at se ud som

Sub PrintBag(BagItems)<BR>
    Out \"&lt;FORM METHOD=\"\"POST\"\" ACTION=\"\"\"<BR> 

og så fremdeles.

Jeg fremsender med mail min fungerende version af filen bag.asp, som du bør lægge
ind i stedet for den bag.asp, som du nu har. Jeg har her ET forbehold: Hvis du
selv har lavet ændringer i bag.asp, skal du gemme din version et sikkert sted FØR
du lægger min version ind. Herefter bør du afprøve min uændrede version for at
sikre, at den virker. Hvis dette går godt kan du flette dine egne ændringer ind
og fortsætte afprøvningerne.

Du skal dog også være klar over at: Indkøbskurven her samler data omkring
kundens ønskede indkøb sammen - når der rent faktisk skal handles (\"check out\"),
er koden helt tom. Når du når så langt, er med andre ord mere arbejde nødvendigt mht.
hvordan du (dit firma) får kundens ordre oplyst, og hvordan betalingen skal foregå.

Mvh
Jesper Naur

hej Jepser

Tak

men hvordan præcis skal jeg download din vedhæfte file ned til min harddisk


patrick

Det kommer an på, hvilket mail-program du bruger. Hvis det er Outlook
er der som regel en \'papir-clips\' du kan højre-klikke på. Du vil så blive afkrævet,
hvor filen skal ligge. Ellers må du se dig lidt omkring, herunder online help.