Avatar billede peterpeter Seniormester
15. januar 2003 - 19:17 Der er 7 kommentarer og
2 løsninger

Vise indtastede data fra tidligere side på ny side som info.

Hej Alle

Jeg har lige et lille tricky spørgsmål.

Det er således, at jeg er ved at implementere et batelingsmodul (fra ScanNet) på min hjemmeside.

Problemet:
Jeg prøver lige at forklare på denne måde:
Side 1: Her vælges hvilken lejlighed man vil købe. Oversigten over lejligheder hentes fra en database.
Side 2: Her indtaster man sit navn og adresse.
Side 3: Her bliver alle data'er vist.

Mit problem er, at jeg ikke kan få vist de valgte data (den lejlighed man vælger) fra side 1 PÅ SIDE 2 !!!
Nogen der kan hjælpe ???

Jeg vedlægger koden til side 1 og håber så på, at nogle kan fortælle hvad det er jeg skal angive på side 2.

Håber dette var en fyldestgørende forklaring, ellers må i lige sige til. ;-)

Koden for side 1:

<!--#include file="include/config.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
    <title>ASP DemoShop</title>
</head>

<link href="style.css" rel="STYLESHEET" TYPE="text/css">

<body>

<h2><font face="Verdana" size="4">Betalingsmodul</font></h2>

<font face="Verdana" size="2">[ <a href="default.asp"><b>Oversigt</b></a> | <a href="cart.asp"><b>
Betaling</b></a> ]<br><br>

</font>

<h1><u><font face="Verdana">Betaling:</font></u></h1>

<%
Cart = Session("Cart")
Items = Session("Items")

if Request.QueryString("action") = "add" then

    Items = Items + 1
   
    Set Conn = Server.Createobject("ADODB.Connection")
    Conn.Open strDSN
    Set RS = Conn.Execute("SELECT * FROM Products WHERE ID = "&Request.QueryString("id")&"")
    if Not RS.EOF then
       
        Cart(1,Items) = Items
        Cart(2,Items) = RS("ID")
        Cart(3,Items) = RS("Name")
        Cart(4,Items) = RS("Price")
        Cart(5,Items) = 1

    end if
    RS.close
    Conn.Close
    Set RS = nothing
    Set Conn = nothing

elseif Request.QueryString("action") = "delete" then

    Cart(5,Request.QueryString("id")) = 0

end if

Session("Cart") = Cart
Session("Items") = Items
%>

<table border="1" width="400" style="border-collapse: collapse" bordercolor="#111111" cellspacing="0">
<%
for i = 1 to Items
    if Cart(5,i) = 1 then
%><font face="Verdana" size="2"> </font>

  <tr>
    <td><%=Cart(3,i)%>&nbsp;</td>
    <td align="right"><%=FormatNumber(Cart(4,i))%>&nbsp;</td>
    <td><font face="Verdana" size="2">&nbsp;<a href="cart.asp?action=delete&id=<%=Cart(1,i)%>">Slet</a></td>
  </tr>

<%
    TotalPrice = TotalPrice + Cart(4,i)
    end if
next
%> </font>
</table>
<font face="Verdana" size="2">
<br>
</font>
<h3><font face="Verdana" size="2">Total Beløb: <%=FormatNumber(TotalPrice,2)%> DKK</font></h3>

<form action="order.asp" method="post">

<font face="Verdana">

<input type="submit" value="Betal nu !"><font size="2"> </font></font>
</form>

<p><b><font face="Verdana" size="4" color="#FF0000">NB !</font></b><font face="Verdana" size="2"><br>
Ejes der flere uger, gå venligst tilbage til oversigtsside for at <br>
markere disse, således at betaling sker for alle aktuelle uger på én gang.<br>
<b>[ <a href="default.asp">Oversigt</a> ]</b></font></p>

</body>
</html>
Avatar billede medions Nybegynder
15. januar 2003 - 19:23 #1
Det er du nødt til at lave vha. Sessions()!

Den side som modtager dine data fra formularen, skal du oprette nogle servervariabler (Sessions) som inde holder dine Request.Form()'s

fx.

Session("Lejlighed") = Request.Form("Lejlighed")

osvosv.

//>Rune
Avatar billede medions Nybegynder
15. januar 2003 - 19:24 #2
Når du så vil udskrive dataerne fra din Session, skriver du bare:

Response.Write(Session("Lejlighed"))

Prøv at vis mig den side hvor du vælger den lejlighed du vil købe!

//>Rune
Avatar billede peterpeter Seniormester
16. januar 2003 - 21:06 #3
Hej Rune
Undskyld jeg først svarer nu, men da jeg ville sende mit svar igår virkede Eksperten ikke !!!
Men her er mit svar:

Alletiders, jeg prøver at forklare:

Først vises et udtræk fra databasen med de lejligheder man kan købe. (Den side hedder Default.asp)Her trykker man på KØB ud for en lejlighed og kommer så hen til den næste side, der hedder Cart.asp.
På cart.asp er angivet hvilke lejligheder man har valgt at købe, hvis det ser ordentligt ud, trykke man på "Betal nu".
Derefter kmme man hen på en side der hedder: "Order.asp". Her angiver man sit navn og adresse. OG DET ER PÅ DENNE side, at jeg gerne vil have nummeret på den valgte lejlighed ført med hen.

Håber dette giver mening.

Tidligere er vist koden for Cart.asp, herunder er koden for Default.asp.

Håber det kan hjælpe.

På forhånd tak for hjælpen og venlig hilsen

Peter

Kode for Default.asp:


<!--#include file="include/config.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
    <title>ASP DemoShop</title>
</head>

<link href="style.css" rel="STYLESHEET" TYPE="text/css">

<body>

<h2><font face="Verdana" size="4">Betalingsmodul</font></h2>

<font face="Verdana" size="2">[ <a href="default.asp"><b>Oversigt</b></a> | <a href="cart.asp"><b>
Betaling</b></a> ]<br><br>

</font>

<h1><u><font face="Verdana">Serviceafgift:</font></u></h1>

<%
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open strDSN
Set RS = Conn.Execute("SELECT * FROM Products")
%>

<table border="1" width="460" style="border-collapse: collapse" bordercolor="#111111" cellspacing="0">
  <tr>
    <td width="21"><font face="Verdana" size="2"><b>ID</b></font></td>
    <td width="47"><font face="Verdana" size="2"><b>Lejlighed</b></font></td>
    <td width="208"><font face="Verdana" size="2"><b>Beskrivelse</b></font></td>
    <td width="127"><font face="Verdana" size="2"><b>Pris pr. uge [DKK]</b></font></td>
    <td width="41">&nbsp;</td>
  </tr>

<%
Do While Not RS.EOF
  %><font face="Verdana" size="2"> </font>
  <tr>
    <td width="21"><%=RS("ID")%>&nbsp;</td>
    <td width="47"><%=RS("Name")%>&nbsp;</td>
    <td width="208"><%=RS("Description")%>&nbsp;</td>
    <td width="127"><%=FormatNumber(RS("Price"),2)%>&nbsp;</td>
    <td width="41"><font face="Verdana" size="2"><a href="cart.asp?action=add&id=<%=RS("ID")%>"><b>Betal</b></a></td>
  </tr>
  <%
RS.MoveNext
Loop

RS.close
Conn.Close
Set RS = nothing
Set Conn = nothing

%> </font>
</table>


</body>
</html>
Avatar billede peterpeter Seniormester
26. juni 2003 - 21:48 #4
Hvad så Medions ?? - Skal jeg bare lukke spørgsmålet selv ??
Avatar billede medions Nybegynder
27. juni 2003 - 13:21 #5
Hejsa Peter, jeg har først lige se du har kommenteret det nu!
Jeg er på vej ud af døren nu, skal til Tyrkiet i en uge! -Men når jeg kommer hjem igen kigger jeg lige på din sag!

//>Rune
Avatar billede medions Nybegynder
06. juli 2003 - 15:36 #6
Jeg kan ikke rigtig finde hovede eller hale i din kode... Det du skal gøre er at lave et link hvor du laver en URL parameter som overfører din ID fra databasen til den næsten side. Det gør du i realiteten allerede her:

<a href="cart.asp?action=add&id=<%=RS("ID")%>"><b>Betal</b></a>

Så jeg kan ikke rigtig forstå hvad dit problem er?

//>Rune
Avatar billede peterpeter Seniormester
03. august 2003 - 00:44 #7
øhh nej....Og nu er det lidt tid siden.......

Skal arbejde med koden senere, så der vender jeg nok lige tilbage til dig. Håber det er OK.

Ha det godt
Avatar billede peterpeter Seniormester
20. november 2003 - 23:15 #8
UPS...Det er vist lidt gammelt dette spørgsmål.

Må hellere lukke det....

Jeg fik aldrig brugt din kode direkte Medions - Men tak for hjælpen.

Skal vi ikke bare dele point'ne ??
Avatar billede peterpeter Seniormester
20. november 2003 - 23:15 #9
Håber det er OK
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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