Hjælp til bestillingsformular!
Hejsa,Jeg har fået til opgave at lave en bestillingsformular for noget servicesjov.
Jeg har lavet formularen der automatisk henter data'erne ud fra en database, og derefter kan man udfylde hvor mange af hvert produkt man vil have.
Min kode ser sådan ud:
Mail.asp:
<!-- #include file="conn.asp" -->
<html>
<head>
<style type="text/css">
p, td, th {
font-family: Verdana, Tahoma, Arial, Sans-serif;
font-size: 10pt;
color: #000000;
}
h1 {
font-family: Verdana, Tahoma, Arial, Sans-serif;
font-size: 12pt;
color: #000000;
}
input {
font-family: Verdana, Tahoma, Arial, Sans-serif;
font-size: 9pt;
color: #000000;
border: 1px solid #660000;
}
</style>
</head>
<body>
<%
openConn()
strSQL = "SELECT kategori.id, kategori.name FROM kategori"
Set rs = connection.Execute(strSQL)
While NOT rs.EOF
strKategori = rs("id")
strSQL1 = "SELECT vare.id, vare.name, vare.size, vare.ekstra, vare.pris, vare.kategori FROM vare WHERE vare.kategori=" & strkategori
Set rs1 = connection.Execute(strSQL1)
%>
<form method="post" action="oversigt.asp">
<br><br>
<h1><%= rs("name")%></h1>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><b>Antal: </b></td>
<td><b>Produkt: </b></td>
<td><b>Mål: </b></td>
<td><b>Beskrivelse: </b></td>
<td><b>Pris: </b></td>
</tr>
<% While NOT rs1.EOF %>
<tr>
<td><input type="text" name="antal<%=rs1("id")%>" size="3"> </td>
<td><%= rs1("name")%> </td>
<td><%= rs1("size")%> </td>
<td><%= rs1("ekstra")%> </td>
<td><%= rs1("pris")%></td>
</tr>
<% rs1.MoveNext
Wend %>
</table>
<% rs.MoveNext
Wend %>
<input type="submit" value="Beregn">
</form>
</body>
</html>
<%
closeConn()
%>
Så har jeg lavet en overview.asp som skulle tage og hente alle de produkter, hvor der er blevet udfyldt nogle informationer i input feltet. Det skulle den så udskrive, sammen med en ialt pris.
min overview.asp
<!-- #include file="conn.asp" -->
<%
openConn()
strSQL1 = "SELECT vare.id FROM vare"
Set rs1 = connection.Execute(strSQL1)
While NOT rs1.EOF
If Request.Form("antal" & rs1("id")) <> "" Then
strAntal = Request.Form("antal" & rs1("id"))
strSQL2 = "SELECT vare.id, vare.name, vare.size, vare.ekstra, vare.pris FROM vare WHERE vare.id =" & rs1("id")
Set rs2 = connection.Execute(strSQL2)
End if
rs1.MoveNext
Wend
'strPrisialt = Request.Form("antal" & rs1("id")) * rs2("pris")
'strName = Request.Form("name")
'strAdress = Request.Form("adress")
'strzip = Request.Form("zip")
'strTlf = Request.Form("tlf")
'strLeveringFra = Request.Form("leveringfra")
'strLeveringTil = Request.Form("leveringtil")
'strAfhentesFra = Request.Form("afhentesfra")
'strAfhentesTil = Request.Form("afhentestil")
%>
<html>
<head>
<style type="text/css">
p, td, th {
font-family: Verdana, Tahoma, Arial, Sans-serif;
font-size: 10pt;
color: #000000;
}
h1 {
font-family: Verdana, Tahoma, Arial, Sans-serif;
font-size: 12pt;
color: #000000;
}
input {
font-family: Verdana, Tahoma, Arial, Sans-serif;
font-size: 9pt;
color: #000000;
border: 1px solid #660000;
}
</style>
</head>
<body>
<h1>Oversigt</h1>
<p>Du har bestilt:</p>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td>Antal:</td>
<td>Produkt:</td>
<td>Mål:</td>
<td>Ekstra:</td>
<td>Stk. Pris:</td>
<td>Pris i alt:</td>
</tr>
<% While NOT rs2.EOF %>
<tr>
<td><%= strAntal%></td>
<td><%=rs2("name")%></td>
<td><%=rs2("size")%></td>
<td><%=rs2("ekstra")%></td>
<td><%=rs2("pris")%></td>
<td><%'=strPrisialt%></td>
</tr>
<% rs2.MoveNext
Wend %>
</table>
</body>
</html>
<%
closeConn()
%>
Hvor ligger fejlene :)
