bestillings liste

Du skal havde nogle Checkbokse i en form ud for varne. Når du så trykker på bestil kan du POSTe formen.
Den nye side skal sikkert slå op i en database for at finde detailjer omkring varen som skal puttes ind i en ny form.

Vare 1  [ ]
Vare 2  [ ]
Vare 3  [X]
Bstil

ny side

Bestilling af vare:
Vare 3
vare nr:7364376472346
vare grupper: 4
Pris : 3938kr

er det i den stil?

ja noget i den stil, hvordan gør man?

Det letelse vil sikker være at lave det i asp/php. Der har man direkte database adgang.

Jeg kan hjælpe med et eksempel i asp.

hvis du gad ville det være fint i asp :)

Filen vare.asp. Den POST\'er til filen vareinfo.asp
Jeg har oprettet en Access testabb.MDF som indeholder en tabel \"varetabel\" med dette indhold:

ID : Autonummer
VareNavn : Tekst
VareNummer : Tekst
Pris : Valuta


<% Response.Buffer = True %>
<html>
<head>
<title>Vare oversigt</title>
</head>
<body>

<%

strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"testabb.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")

strSQL = \"SELECT *  FROM VareTabel\"
myConn.Open strDSN

\' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)

If Not (rs.BOF Or rs.EOF) Then
    Response.Write \"<p>Vare Oversigt</p>\"
    Response.Write \"<table border=1>\"
    Response.Write \"<tr><th>Vare</th><th>Pris</th><th>Vælg</th></tr>\"
%>
<form method=\"post\" action=\"vareinfo.asp\" id=\"abbform\" name=\"hhabb\">
<%       
Do While Not rs.EOF
    Response.Write \"<tr><td>\" & rs(\"VareNavn\") & \"</td>\"
    Response.Write \"<td>\" & rs(\"Pris\") & \"</td>\"
    Response.Write \"<td>\" 
%>
<input type=\"checkbox\" name=KAK value=<%=rs(\"ID\")%>>
<%       
    Response.Write \"</td></tr>\"
    rs.MoveNext
Loop
Response.Write \"</table>\"
%>   
<p><input type=\"submit\" value=\"Bestil\" name=\"Action\"></p>
</form>
<%
Else
\' Hvis der ikke er fundet poster på søgningen
Response.Write \"<p>Der er ikke fundet noget på denne søgning</p>\"
End If
\' Rydder op efter os
myConn.Close
rs.Close
Set myConn = Nothing
%>

</body>

</html>

File vareinfo.asp som bliver kald ved POST:

<% Response.Buffer = True %>
<html>
<head>
<title>Vare info</title>
</head>
<body>

<%

\'nItem Antal checkbokse som er med [x].
nItems = Request.Form(\"KAK\").Count
if (nItems >= 1) then
\' Henter værdien fra sidste side
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"testabb.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
myConn.Open strDSN
Response.Write \"<table border=1>\"
Response.Write \"<tr><th>Vare</th><th>Pris</th><th>Varenummer</th></tr>\"
For i = 1 To nItems
  rs.open \"SELECT * FROM VareTabel WHERE ID=\"&Request.Form(\"KAK\")(i), myConn,3,3,0
  Response.Write \"<tr><td>\" & rs(\"VareNavn\") & \"</td>\"
  Response.Write \"<td>\" & rs(\"Pris\") & \"</td>\"
  Response.Write \"<td>\" & rs(\"VareNummer\") & \"</td>\"
  Response.Write \"</tr>\"
  rs.close
Next
Response.Write \"</table>\"

\'Rydder op efter os
myConn.Close
else
  Response.Write \"Mindst en vare skal vælges\"
end if

%>

</body>

</html>

Det er lavet for hurtigt at vise hvad man kan, hvis det skal være mere specifikt må du lige sige til.

jeg er ikke så sej til asp, men jeg kiger det lige igenem