Notifikationer

Markér alle som læst Log ud

annettef Nybegynder

28. september 2004 - 08:39 Der er 10 kommentarer og
1 løsning

Hvordan splittes indhold i hidden field op?

Hej Eksperter

Jeg har en side hvorpå jeg har en række hidden fields. Disse fields indeholder en række oplysninger om nogle varer.

Her er et udsnit af min kode:
--------
rsProd.MoveFirst
while not rsProd.EOF
rsProdInfo.MoveFirst
rsProdInfo.Find "vareid = " & rsProd("vareid")
intProdID = rsProd("vareid")
strProdName = rsProdInfo("titel")
intPrice = formatNumber(rsProdInfo("pris"), 2)
intQuant = rsProd("antal")
intExtPrice = formatNumber((intPrice * intQuant), 2)
intTotal = intTotal + intExtPrice
%>
<tr>
<td width="13%" align="left" valign="middle" nowrap><%= intQuant %></td>
<td width="13%" align="left" valign="middle" nowrap><%= intProdID %></td>
<td width="44%" align="left" valign="middle" nowrap><%= strProdName %></td>
<td width="15%" align="right" valign="middle" nowrap><%= intPrice %></td>
<td width="15%" align="right" valign="middle" nowrap><%= intExtPrice %></td>
</tr>
<input type="hidden" name="strOrderItem" value="<%= intProdID %>,<%= intQuant %>">
<input type="hidden" name="intQuant" value="<%= intQuant %>">
<input type="hidden" name="StrProdName" value="<%= strProdName %>">
<input type="hidden" name="intPrice" value="<%= intPrice %>">
<input type="hidden" name="intExtPrice" value="<%= intExtPrice %>">
<input type="hidden" name="intProdID" value="<%= intProdID %>">
<%
rsProd.MoveNext
wend
%>
--------
Mit problem er at hvis der er mere en en vare i rsProd så kommer de forskellige hidden fields til at indeholde flere oplysninger adskilt af et , - hvordan får jeg disse informationer splittet op på næste asp-side??

PÅ næste asp side skal der genereres en e-mail, hvori oplysningerne skal listes op.

Udsnit af min kode til side 2:
--------
<%
If Not rsOrder.EOF Or Not rsOrder.BOF Then 'kører igennem rsOrder som indeholder alle oplysninger om kunde + ordrenr.

'MAIL TIL KUNDE
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.CharSet = 1

Mailer.FromName = "Datronic NetButik" 'Afsender navn
Mailer.FromAddress = "salg@Datronic.dk" 'Afsender e-mail
Mailer.RemoteHost = "mail.datronic.dk" 'afsender mail
Mailer.AddRecipient request("strFirst"), request("strEmail") ' Kunde navn og e-mail (hvor mailen sendes til)
Mailer.AddBCC "Datronic ApS", "afa@datronic.dk" 'e-mail som kopi af mailen sendes til (butikkens mail)
Mailer.Subject = "Din ordre hos Datronic Aps - ordrebekræftelse" 'Emne i mail

tekst = ""
linie = vbCrLf

if request("strFirst") <> "" then 'hvis fornavn ikke er blak udskrives teksten hej navn
tekst = tekst & "Hej " & request("strFirst") & linie & linie
end if

tekst = tekst & " Bemærk! Du kan ikke besvare denne mail." & linie & linie
tekst = tekst & " Tak! Fordi du handlede hos Datronic ApS "& linie & linie
tekst = tekst & "Følgende ordre er blevet modtaget:" & linie & linie
tekst = tekst & " Ordrenr: " & request("intOrderID") & linie & linie & linie & linie 'ordrenr udskrives
tekst = tekst & " Kundeoplysninger: " & linie & linie & linie & linie
tekst = tekst & " " & request("strFirst") & " " & request("strLast") & linie & linie & linie & linie 'fornavn og efternavn på kunde udskrives
tekst = tekst & " " & request("strAddress1") & linie & linie & linie & linie ' kundeadresse
tekst = tekst & " " & request("strPostalCode") & " " & request("strCity") & linie & linie & linie & linie 'postnr og by
tekst = tekst & " " & request("strCountry") & linie & linie & linie & linie 'land
tekst = tekst & " Tlf.: " & request("strPhone") & linie & linie & linie & linie 'kundens telefonnummer
tekst = tekst & " E-mail: " & linie & linie & linie & linie
tekst = tekst & " " & request("strEmail")& linie & linie 'kunde e-mail
tekst = tekst & " Betalingsform: " & linie & linie & linie & linie
tekst = tekst & " " & request("strBetaling")& linie & linie 'den valgt betalingsform
tekst = tekst & " Leveringsadresse: " & linie & linie & linie & linie
tekst = tekst & " " & request("strShipAdresse")& linie & linie 'leveringsadressen
'End If
'If Not rsItem.EOF Or Not rsItem.BOF Then 'kører igennem rsItem, som indeholder oplysninger om varer i ordren

tekst = tekst & " Ordreindhold: " & linie & linie & linie & linie
tekst = tekst & "<table width='470'><tr>"
tekst = tekst & "<td width='13%'>Antal</td>"
tekst = tekst & "<td width='13%'>Vare ID</td>"
tekst = tekst & "<td width='44%'>Vare</td>"
tekst = tekst & "<td width='15%' align='right'>Pris pr stk</td>"
tekst = tekst & "<td width='15%' align='right'>Pris i alt</td>"

tekst = tekst & "<tr>"
tekst = tekst & "<td width='13%' align='left' valign='middle' nowrap>" & request ("intQuant") & " </td>"
tekst = tekst & "<td width='13%' align='left' valign='middle' nowrap>" & request ("intProdID") & " </td>"
tekst = tekst & "<td width='44%' align='left' valign='middle' nowrap>" & request ("strProdName") & " </td>"
tekst = tekst & "<td width='15%' align='right' valign='middle' nowrap>" & request ("intPrice") & " </td>"
tekst = tekst & "<td width='15%' align='right' valign='middle' nowrap>" & request ("intExtPrice") & " </td>"
tekst = tekst & "</tr>"
tekst = tekst & "</tr>"
tekst = tekst & "<tr><td colspan='4'>Kr. total i alt</td>"
tekst = tekst & "<td align='right'>" & request("intTotal") & "</td></tr></table>"

tekst = tekst & " Med venlig hilsen"& linie & lilie & linie & linie
tekst = tekst & " Datronic ApS / NetButik"& linie & linie & lilie
tekst = tekst & " Har du spørgsmål eller er der fejl vedr. din ordre, kontakt da venligst Datronic ApS på <a href='mailto:salg@datronic.dk.dk'>salg@datronic.dk</a>"& linie & linie & linie
'tekst = tekst & " GLÆDELIG JUL & GODT NYTÅR " 'tekst som kan sættes på ved specielle lejligheder fx. jul, ferie

Mailer.BodyText = tekst
Mailer.ContentType = "text/html"
Mailer.SendMail
--------
Som det er nu, bliver oplysningerne bare skrevet ud efter hinanden, men jeg vil gerne have dem skrevet under hinanden.

Ordreindhold: Antal Vare ID Vare Pris pr stk Pris i alt
1, 1 4, 22
Vega+ PRO L5 inkl. Onsite service, BlackView M171
12.495,00, 3.199,00
12.495,00, 3.199,00

Kr. total i alt 16.478,70

Synes godt om

annettef Nybegynder

28. september 2004 - 08:45 #1

Ups - kom lige til at poste spørgsmålet inde jeg blev færdig med at skrive....

Oplysningerne skal skrives ud på denne måde:
Antal | Vare ID | Vare | Pris pr. stk | Pris i alt |
1 4 Vega+ PRO L5 12.495,00 12.495,00
1 22 BlackView M171 3.199,00 3.199,00
Kr. total i alt 16.478,70

Det korte af det lange er:
1) Hvordan splitter jeg oplysningerne op?
2) Er der en anden og bedre måde at gøre det på?

Håber nogen kan hjælpe!

/Annette

Synes godt om

eagleeye Praktikant

28. september 2004 - 08:51 #2

Når man har flere felter med samme nanv giver det en komma sepereret liste, så normalt slitter man på komma "," da der er komma imellem hver: 1, 1 4, 22

men prisen injdeolder også komma så du må splitte på ", " eller " " og tjekke om der også er mellemrum imellem : 12.495,00, 3.199,00

idArr = Split(request.form("intProdID"), ",")
prisArr = Split(request.form("intPrice"), ", ")

Så man man evt. loope igennem arrayet:

for i=0 to ubound(arrId)
id = trim(arrId(i))
pris = arrPris(i)
...
next

Synes godt om

fennec Nybegynder

28. september 2004 - 08:56 #3

Du kan også omdøbe dine hidden felter så de også indeholder intProdID, som jeg går ud fra er unikt. intProdID feltet skal IKKE omdøbes.

<input type="hidden" name="strOrderItem<%= intProdID %>" value="<%= intProdID %>,<%= intQuant %>">
<input type="hidden" name="intQuant<%= intProdID %>" value="<%= intQuant %>">
...
<input type="hidden" name="intProdID" value="<%= intProdID %>">

På den måde kan du løbe request.form("intProdID") igennem og finde alle form felter tilknyttet til det specifikke ID.

idArr = Split(request.form("intProdID"), ",")
for each ProdID in idArr
intQuant = request.form("intQuant"& ProdID)
StrProdName = request.form("StrProdName"& ProdID)
intPrice = request.form("intPrice"& ProdID)
next

Synes godt om

annettef Nybegynder

28. september 2004 - 09:23 #4

Nu har jeg forsøgt mig med begge forslag, men kan ikke rigtigt få noget af det til at virke.

Fennec's forslag: det eneste der bliver udskrevet er ProdID men stadig adskilt af komma... resten af oplysningerne bliver ikke udskrevet.

Eagleeye's forslag: kan ikke helt finde ud af hvor det forskellige skal sættes ind i min kode og hvodan jeg skal få det skrevet ud.

Tror lige jeg vil se om jeg ikke kan gøre det på en anden måde - måske ved at udskrive alle oplysningerne på samme side som de bliver sendt/hvor e-mailen oprettes.

Men forslag er selvfølgelig stadig velkomne...

/Annette

Synes godt om

eagleeye Praktikant

28. september 2004 - 09:29 #5

Det skal sættes ind på den side som sender mailen:

idArr = Split(request.form("intProdID"), ",")
prisArr = Split(request.form("intPrice"), ", ")
for i=0 to ubound(arrId)
id = trim(arrId(i))
pris = arrPris(i)
response.write id & " " & pris & " "
next

Synes godt om

annettef Nybegynder

28. september 2004 - 09:35 #6

Så får jeg følgende fejl:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'ubound'

/datronic/frameset/checkout4.asp, line 126

Linie 126 er følgende

124 idArr = Split(request.form("intProdID"), ",")
125 prisArr = Split(request.form("intPrice"), ", ")
126 for i=0 to ubound(arrId)
127 id = trim(arrId(i))
128 pris = arrPris(i)
129 response.write id & " " & pris & " "
130 next

/Annette

Synes godt om

eagleeye Praktikant

28. september 2004 - 09:36 #7

Arh ok koden skal være:

arrId = Split(request.form("intProdID"), ",")
arrPris = Split(request.form("intPrice"), ", ")
for i=0 to ubound(arrId)
id = trim(arrId(i))
pris = arrPris(i)
response.write id & " " & pris & " "
next

Synes godt om

annettef Nybegynder

28. september 2004 - 09:45 #8

Okay - nu skrives oplysningerne ud under hinanden, men på selve siden. Hvordan får jeg dem så skrevet i mailen i stedet for???

/Annette

Synes godt om

annettef Nybegynder

28. september 2004 - 09:47 #9

Jeg vil gerne have oplysningerne skrevet i en tabel, så de står overskueligt. Jeg har lige prøvet at flytte next ned under min tabel, men så bliver oplysningerne bare skrevet ud i en linie adsklit af komma, men flere gange (altså samme linie flere gange).

Synes godt om

eagleeye Praktikant

28. september 2004 - 11:52 #10

ok så vist jeg kan se blvier det skrevet her:

tekst = tekst & "<tr>"
tekst = tekst & "<td width='13%' align='left' valign='middle' nowrap>" & request ("intQuant") & " </td>"
tekst = tekst & "<td width='13%' align='left' valign='middle' nowrap>" & request ("intProdID") & " </td>"
tekst = tekst & "<td width='44%' align='left' valign='middle' nowrap>" & request ("strProdName") & " </td>"
tekst = tekst & "<td width='15%' align='right' valign='middle' nowrap>" & request ("intPrice") & " </td>"
tekst = tekst & "<td width='15%' align='right' valign='middle' nowrap>" & request ("intExtPrice") & " </td>"
tekst = tekst & "</tr>"

Så prøv at rette det til:

arrId = Split(request.form("intProdID"), ",")
arrPris = Split(request.form("intPrice"), ", ")
arrQuant = Split(request.form("intQuant"), ",")
arrstrProdName = Split(request.form("strProdName"), ", ")
arrintExtPrice = Split(request.form("intExtPrice"), ", ")
for i=0 to ubound(arrId)

tekst = tekst & "<tr>"
tekst = tekst & "<td width='13%' align='left' valign='middle' nowrap>" & arrQuant(i) & " </td>"
tekst = tekst & "<td width='13%' align='left' valign='middle' nowrap>" & arrId(i) & " </td>"
tekst = tekst & "<td width='44%' align='left' valign='middle' nowrap>" & arrstrProdName(i) & " </td>"
tekst = tekst & "<td width='15%' align='right' valign='middle' nowrap>" & arrPris(i) & " </td>"
tekst = tekst & "<td width='15%' align='right' valign='middle' nowrap>" & arrintExtPrice(i) & " </td>"
tekst = tekst & "</tr>"
next

Synes godt om

annettef Nybegynder

28. september 2004 - 12:06 #11

Super nu virker det - tusind tak for hjælpen, det var fedt!

/Annette

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS