Kim Søvø Pedersen wrote in dk.edb.internet.webdesign.serverside.asp:
> > Den 3. side skal man vælge ekstra udstyr til den valgte bil,
> > dette skal vises med afkrydsningsfelter. antallet af felter
> > variere fra mærke til mærke og fra model til model, så derfor
> > skal denne side kunne vise x antal felter hvor i feltets navn er
> > den id jeg har i min tabel, og feltets værdi er den pris jeg har
> > i min tabel, og til sidst feltets tekst skal være navnet på
> > eksrtra-udstyret i min tabel.
> >
> > Jeg håber at der er nogen som kan hjælpe mig med dette ;)
>
> Jeg skal gøre et forsøg :)
>
> På side 3 laver du et recordset, som indeholder posterne med ekstraudstyr
> for den valgte bil (ved ikke hvordan du har lavet databasen, så jeg kan ikke
> lige lavet et eksempel). Det recordset looper du så igennem og laver
> afkrydsningsfelter til hver stykke ekstraudstyr:
>
> do while not rsEkstraudstyr.eof
> response.write "<input type='checkbox' name='" & rsEkstraudstyr("ID") &
> "' value='" & rsEkstraudstyr("Pris") & "'>" & rsEkstraudstyr("Udstyrnavn") &
> "<br>"
> rsEkstraudstyr.movenext
> loop
>
> Så får du en fin række afkrydsningsfelter under hinanden...
>
> Kim
>
>
Jeg har prøvet, men jeg får ikke noget resultat !!
Hvad gør jeg forkert ??
<%@ Language=VBScript %>
<% Option Explicit %>
<!--#include virtual="/adovbs.inc"-->
<html>
<head>
<title>3b.asp</title>
</head>
<body style="font-family: Arial; font-size: 10 pt; font-weight: bold"
bgcolor="#C0C0C0">
<p>Vælg det ekstraudstyr du ønsker:</p>
<form method="POST" action="4b.asp">
Du har valgt en:
<%
Response.write Request("Make") & " "
Response.write Request("Model")
%>
<%
Dim Make, Model, Motor
Make=Request.Form("Make")
dim objConn 'Command object kombinerer recordset object og Connection
object
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=" &
server.mappath("db/testdb1.mdb")
objConn.open
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.open "SELECT Ekstraid, Pris, Navn FROM T_Ekstra WHERE Model like '" &
Model & "'", objConn, adCmdTable
do while not objRS.EOF
response.write "<input type='checkbox' name="<=objRS("Ekstraid")%>" value =
"<%=objRS("Pris")%>"><%objRS("Navn")
objRS.movenext
loop
%>
<input type="hidden" name="Make" size="20" value="<%=Make%>">
<p><input type="submit" value="Next" name="B1"><input type="reset"
value="Reset" name="B2"></p>
</form>
</body>
</html>
Mvh. Mads.
--
Dette indlæg er sendt fra
http://www.html.dk
* Søg og læs i de danske nyhedsgrupper om webdesign
* Tutorials og artikler om webdesign på dansk