Tjena.

Har ett problem.
Har byggt en liten webbshop, eller... åtminstone en början på en webbshop, har fastnat lite.

Så här vill jag att det ska funka.

Kunden går in på sidan, och ser alla varor framför sig. Vid varje vara (det är vykort) så finns det en liten input ruta där kunden ska skriva in hur många kopior han vill ha av varje vykort.

Efter kunden valt vilka och hur många vykort han/hon vill ha så scrollar kunden längst ned på sidan där personuppgifter finns.

Peronuppgifter fylls i och sen trycker man på en knapp som heter "Validera beställningen"

Här börjar problemen.

På valideringsidan sk kunden kunna se en lista på vad han/hon har beställt + hur många av varje vara + sammanlagt pris.
Kunden ska även kunna kolla att personuppgifterna stämmer.

Om allt är som det ska vara så ska det finnas en knapp som det står: "Skicka beställningen" på.
När kunden trycker på den knappen så ska ett mail med alla uppgifter skickas till min epost.

Att ta emot formulärdatat och dela upp det så man kan visa upp det bra på valideringssidan + att få det sammanlagda priset på varorna (vilket nog kräver en sökning mot databasen..)

Sen att skicka alla dessa uppgifter via mail.

Jag vill hellst göra denna webbshop utan att ha den "traditionella" kundvagnslösningen. Så lite databas som möjligt. Det kommer ändå inte finns så många varor att välja imellan.. ( kanske 30-40st)

Hur tusan ska jag göra?
Koden kommer här...
(varje vykort har ett unikt idnummer)

<FORM method="post" name="webbshop" action="default.asp?p=validate" onSubmit="return webbshopcheck()">
<%
Set RS = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From tblKategori ORDER BY kDatum DESC"
RS.Open strSQL, objConn, 3, 3

IF RS.EOF OR RS.BOF THEN
Response.Write "&nbsp;"
ELSE

Do until RS.EOF OR RS.BOF
kId = RS("kId")
kTitel = RS("kTitel")
kText = RS("kText")
kPris = RS("kPris")
kDatum = RS("kDatum")

Response.Write "<table border='0' width='100%' cellpadding='0' cellspacing='0'><tr>"
Response.Write "<td>"
Response.Write "<b class='rubrik'>" & fix(kTitel) & "</b><hr noshade>"
Response.Write fix(kText) & "<br><br>"
%>

<%
Set RS2 = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From tblVykort Where kId=" & kId & " ORDER BY vyDatum"
RS2.Open strSQL, objConn, 3, 3
Response.Write "<table border='0' width='100%' cellpadding='0' cellspacing='0'>"
lngCol=0
While not RS2.EOF
vyId = RS2("vyId")
vyTitel = RS2("vyTitel")
vyText = RS2("vyText")
vyBild = RS2("vyBild")
vyPris = RS2("vyPris")
vyDatum = RS2("vyDatum")
If lngCol=0 Then
Response.Write "<tr>"
End If
Response.Write "<td>"

Response.Write "<table border='0' width='100%' height='100%' cellpadding='5' cellspacing='0'><tr><td>"
Response.Write "<table border='0' bgcolor=" & clr_01 & " width='100%' height='100%' cellpadding='5' cellspacing='0' style='border:1px solid " & clr_line & ";'><tr valign='top'>"
Response.Write "<td align='center'><b>" & kTitel & "</b></td>"
Response.Write "</tr><tr>"
Response.Write "<td align='center'><img src='images/vykort/temp.jpg' width='200' height='150' border='0' alt='" & vyTitel & "' style='border:1px solid " & clr_line & ";'></td>"
Response.Write "</tr><tr>"
Response.Write "<td align='center'>"
%>

<table border="0" width="200" bgcolor="<%=clr_02%>" cellpadding="5" cellspacing="0"><tr>
<td style="border:1px solid <%=clr_line%>;border-right:0px;">Jag beställer:</td><td align="right" style="border:1px solid <%=clr_line%>;border-left:0px;"><input type="text" name="inputAntal_<%=vyId%>" size="2" maxlength="2" onKeyPress="return numbersonly(this, event)"> st</td>
</tr><tr>
<td bgcolor="<%=clr_01%>">Pris: <%=vyPris%> kr st</td>
<td bgcolor="<%=clr_01%>" align="right">Till kassan</td>
</tr></table>

<%
Response.Write "</td>"
Response.Write "</tr></table>"
Response.Write "</td></tr></table>"

Response.Write "</td>"
lngCol=lngCol+1
If lngCol=2 Then
lngCol=0
Response.Write "</tr>"
End If
RS2.MoveNext
Wend
If lngCol>0 Then
Response.Write "</tr>"
End If
Response.Write "</table>"
RS2.Close
Set RS2 = nothing



Response.Write "</td>"
Response.Write "</tr></table><br><br><br><br>"
RS.MoveNext
Loop
END IF
RS.Close
Set RS = nothing
%>


<b class="rubrik">Kassan</b><hr noshade><a name="kassan"></a>
Här skriver du in dina uppgifter efter du har valt vad du vill beställa.<br>
Du kommer till en valideringssida efter du har skickat detta.
<br><br>
<b>OBS</b><br>Du måste ange din epostadress! Du kommer att få ett konfirmationsbrev när beställningen är läst.
<br><br><br>

<table border="0" width="100%" cellpadding="0" cellspacing="0"><tr>
<td width="213">
<b>Namn</b><br><input type="text" name="fornamn" size="40"><br><br>
<b>Efternamn</b><br><input type="text" name="efternamn" size="40"><br><br>
<b>Gata</b><br><input type="text" name="gata" size="40"><br><br>
</td>
<td>&nbsp;</td>
<td width="213">
<b>Postnummer</b><br><input type="text" name="postnummer" size="40"><br><br>
<b>Stad</b><br><input type="text" name="stad" size="40"><br><br>
<b>Epost</b><br><input type="text" name="epost" size="40"><br><br>
</td>
</tr><tr>
<td colspan="3" align="right"><input type="submit" name="submit" value="Validera beställningen" class="button"></td>
</tr></table>

</FORM>