Dynamisk antal rækker at gemme og dynamisk antal rækker at vise
Hejsa,jeg har væet ved at lave lidt kode til brug i firmaet, hvor vi skal have nogle sælgere til at rate nogle kollektioner, før vi sender dem på markedet.
Det jeg har lavet virker egentlig fint nok.
Men det er knapt så smidigt.
Det kan kun tage 12 felter - hverken mere eller mindre ad gangen - 12 felter svarer ca. til en enkelt model i en kollektion i alle de farver vi har - men sommetider skal vi have tjekket flere kollektioner ad gangen - og så ville det jo være smart om man kunne få vist flere på en side istedet for at sende flere links til vores sælgere.
Jeg smider alt hvad jeg har ind her med det samme - vil du/I helst have de fysiske filer istedet, så kan jeg fint sende dem til jer på mail - bare lige giv besked.
Jeg har mine ting gemt i en access database (den kan jeg fint tilpasse, der er ingen krav til udseendet i denne):
Databasenavn:
Pilots
Tabeller:
- Collection
- Rating
De to tabeller er bygget op som følger:
- Collection
ID - Autonumber
Model - Text
Farve1 - Text
Farve2 - Text
Farve3 - Text
Farve4 - Text
Farve5 - Text
Farve6 - Text
Farve7 - Text
Farve8 - Text
Farve9 - Text
Farve10 - Text
Farve11 - Text
Farve12 - Text
Aktiv - Text
Rating:
ID - Autonumber
Model - Text
Farve1 - Text
Farve2 - Text
Farve3 - Text
Farve4 - Text
Farve5 - Text
Farve6 - Text
Farve7 - Text
Farve8 - Text
Farve9 - Text
Farve10 - Text
Farve11 - Text
Farve12 - Text
Navn - Text
Jeg har en række filer:
opretcollection.asp - filen hvor jeg opretter min kollektion:
<HTML>
<HEAD>
<TITLE>Admin - Opret collection</TITLE>
<meta name="Generator" content="Stone's WebWriter 4">
<LINK REL=stylesheet HREF="style.css" TYPE="text/css">
</HEAD>
<BODY background="../pics/bgtcr.gif" properties=fixed>
<CENTER></CENTER>
<HR>
Udfyld nedenstående felter
<FORM ACTION='gemcollection.asp' NAME="gem" METHOD="POST">
<BR>
<TABLE BORDER="0">
<TR>
<TD>Model: (eks. 1631) </TD>
<TD><INPUT TYPE="text" SIZE="30" MAXLENGTH="30" NAME="Model"></TD>
<TD></TD>
</TR>
<TR>
<TD>Farve-Størrelse 1: (eks. 4022)</TD>
<TD><INPUT TYPE="text" size="30" maxlength="30" NAME="Farve1"></TD>
<TD></TD>
</TR>
<TR>
<TD>Farve-Størrelse 2: (eks. 4022)</TD>
<TD><INPUT TYPE="text" NAME="Farve2" SIZE="30" MAXLENGTH="30"></TD>
</TR>
<TR>
<TD>Farve-Størrelse 3: (eks. 4022)</TD>
<TD><INPUT TYPE="text" NAME="Farve3" SIZE="30" MAXLENGTH="50"></TD>
</TR>
<TR>
<TD>Farve-Størrelse 4: (eks. 4022)</TD>
<TD><INPUT TYPE="text" NAME="Farve4" SIZE="30" MAXLENGTH="50"></TD>
<TD></TD>
</TR>
<TR>
<TD>Farve-Størrelse 5: (eks. 4022)</TD>
<TD><INPUT TYPE="text" NAME="Farve5" SIZE="30" MAXLENGTH="50"></TD>
<TD></TD>
</TR>
<TR>
<TD>Farve-Størrelse 6: (eks. 4022)</TD>
<TD><INPUT TYPE="text" NAME="Farve6" SIZE="30" MAXLENGTH="50"></TD>
<TD></TD>
</TR>
<TR>
<TD>Farve-Størrelse 7: (eks. 4022)</TD>
<TD><INPUT TYPE="text" NAME="Farve7" SIZE="30" MAXLENGTH="50"></TD>
<TD></TD>
</TR>
<TR>
<TD>Farve-Størrelse 8: (eks. 4022)</TD>
<TD><INPUT TYPE="text" NAME="Farve8" SIZE="30" MAXLENGTH="50"></TD>
<TD></TD>
</TR>
<TR>
<TD>Farve-Størrelse 9: (eks. 4022)</TD>
<TD><INPUT TYPE="text" NAME="Farve9" SIZE="30" MAXLENGTH="50"></TD>
<TD></TD>
</TR>
<TR>
<TD>Farve-Størrelse 10: (eks. 4022)</TD>
<TD><INPUT TYPE="text" NAME="Farve10" SIZE="30" MAXLENGTH="50"></TD>
<TD></TD>
</TR>
<TR>
<TD>Farve-Størrelse 11: (eks. 4022)</TD>
<TD><INPUT TYPE="text" NAME="Farve11" SIZE="30" MAXLENGTH="50"></TD>
<TD></TD>
</TR>
<TR>
<TD>Farve-Størrelse 12: (eks. 4022)</TD>
<TD><INPUT TYPE="text" NAME="Farve12" SIZE="30" MAXLENGTH="50"></TD>
<TD></TD>
</TR>
<TR>
<TD>Aktiv:</TD>
<TD>ja?<input type="radio" value="Yes" name="Aktiv" checked="checked"> Nej?<input type="radio" value="No" name="Aktiv"></TD>
<TD></TD>
</TR>
</TABLE>
<BR>
<BR>
<BR>
<INPUT TYPE="submit" VALUE="Gem" NAME="Registrer">
<INPUT TYPE="reset" VALUE="Rens felter" NAME="Reset">
<INPUT TYPE="button" VALUE="Tilbage" ONCLICK="window.location.href='Admin.asp'">
</FORM>
</BODY>
</HTML>
Når jeg har udfyldt felterne og trykker på min "Gem" knap kommer felt-værdierne over til:
gemcollection.asp
<%
RESPONSE.BUFFER="True"
SET CONNECT = SERVER.CREATEOBJECT("ADODB.CONNECTION")
CONNECT.OPEN "DRIVER={Microsoft ACCESS DRIVER (*.MDB)}; DBQ=" & Server.MapPath ("pilots.mdb")
SQL = "INSERT INTO Collection (Model, Farve1, Farve2, Farve3, Farve4, Farve5, Farve6, Farve7, Farve8, Farve9, Farve10, Farve11, Farve12, Aktiv)" & " VALUES ('" & REQUEST.form("Model")& "','" & request.form("Farve1")&"','" & REQUEST.form("Farve2")&"','" & REQUEST.form("Farve3") & "','" & REQUEST.form("Farve4") & "','" & REQUEST.form("Farve5") & "','" & REQUEST.form("Farve6") & "','" & REQUEST.form("Farve7") & "','" & REQUEST.form("Farve8") & "','" & REQUEST.form("Farve9") & "','" & REQUEST.form("Farve10") & "','" & REQUEST.form("Farve11") & "','" & REQUEST.form("Farve12") & "','" & REQUEST.form("Aktiv") & "') "
Connect.Execute(SQL)
%>
<%
RESPONSE.REDIRECT("admin.asp")
%>
Når så min kollektion er oprettet, så kan jeg redigere denne - først kommer jeg til en side, hvorpå jeg vælger hvilken kollektion jeg vil redigere:
redigercollection.asp
<%
RESPONSE.BUFFER="True"
%>
<HTML>
<HEAD>
<TITLE>Rediger collection</TITLE>
<meta name="Generator" content="Stone's WebWriter 4">
<link rel="stylesheet" href="style.css" type="text/css">
</HEAD>
<BODY>
<H2>Rediger collection</H2>
<BR>
<%
DIM CONNECT, OnCollection, nr
SET CONNECT = SERVER.CREATEOBJECT("ADODB.CONNECTION")
CONNECT.OPEN "DRIVER={Microsoft ACCESS DRIVER (*.MDB)}; DBQ=" & Server.MapPath ("pilots.mdb")
%>
<B>Vi har følgende</B>
<%
SET OnCollection = CONNECT.EXECUTE (_
"SELECT * FROM Collection")
%>
<TABLE BORDER="1">
<!-- Her sættes løkken op for at sikre at alt kommer med -->
<TR>
<TD>Collection</TD>
</TR>
<%
DO UNTIL OnCollection.EOF %>
<% nr = OnCollection("ID") %>
<TR>
<TD><%=OnCollection("Model")%></TD>
<TD><FORM ACTION="redigercollectionnu.asp?nr=<%=nr%>" Target="_top" METHOD="POST" NAME="collectionsredigering">
<INPUT TYPE="submit" VALUE="Rediger" NAME="Rediger">
<INPUT TYPE="hidden" VALUE="<% Response.write(NR) %>" NAME="Nr"></TD>
</FORM>
</TR>
<!-- Her sættes løkken til at køre igen, hvis dette er nødvendigt -->
<% OnCollection.MOVENEXT
LOOP %>
</TABLE>
<BR>
<br><br>
<INPUT TYPE="button" VALUE="Tilbage" ONCLICK="window.location.href='Admin.asp'">
<!-- lukker forbindelsen -->
<%
connect.close
set OnCollection=nothing
set connect=nothing
%>
</BODY>
</HTML>
Når jeg trykker på min "rediger" knap kommer jeg til:
redigercollectionnu.asp
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<HTML>
<HEAD>
<TITLE>Rediger collection</TITLE>
<meta name="Generator" content="Stone's WebWriter 4">
<link rel="stylesheet" href="style.css" type="text/css">
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#660066" ALINK="#FF0000">
<H2>Rediger collection</H2>
<%
DIM CONNECT
SET CONNECT = SERVER.CREATEOBJECT("ADODB.CONNECTION")
CONNECT.OPEN "DRIVER={Microsoft ACCESS DRIVER (*.MDB)}; DBQ=" & Server.MapPath ("pilots.mdb")
%>
<%
SET ONRediger = CONNECT.EXECUTE ("Select * FROM Collection where ID = " & clng(request.querystring("nr")) & ";")
%>
<BR>
Collectionen er:
<FORM ACTION="godkendcollection.asp?nr=<%=request.querystring("nr")%>" Target="_top" METHOD="POST" NAME="nyhedchange">
<BR>
<BR>
<TABLE>
<TR>
<TD>Model: <input type="text" value="<%=OnRediger("Model")%>" name="Model" size="30" maxlength="30"><br>
Farve-størrelse 1: <input type="text" size="30" maxlength="30" value="<%=OnRediger("Farve1")%>" name="Farve1"><br>
Farve-størrelse 2: <input type="text" value="<%=OnRediger("Farve2")%>" name="Farve2"><br>
Farve-størrelse 3: <input type="text" value="<%=OnRediger("Farve3")%>" name="Farve3"><br>
Farve-størrelse 4: <input type="text" value="<%=OnRediger("Farve4")%>" name="Farve4"><BR>
Farve-størrelse 5: <input type="text" value="<%=OnRediger("Farve5")%>" name="Farve5"><BR>
Farve-størrelse 6: <input type="text" value="<%=OnRediger("Farve6")%>" name="Farve6"><BR>
Farve-størrelse 7: <input type="text" value="<%=OnRediger("Farve7")%>" name="Farve7"><BR>
Farve-størrelse 8: <input type="text" value="<%=OnRediger("Farve8")%>" name="Farve8"><BR>
Farve-størrelse 9: <input type="text" value="<%=OnRediger("Farve9")%>" name="Farve9"><BR>
Farve-størrelse 10: <input type="text" value="<%=OnRediger("Farve10")%>" name="Farve10"><BR>
Farve-størrelse 11: <input type="text" value="<%=OnRediger("Farve11")%>" name="Farve11"><BR>
Farve-størrelse 12: <input type="text" value="<%=OnRediger("Farve12")%>" name="Farve12"><BR>
Aktiv: <input type="text" value="<%=OnRediger("Aktiv")%>" name="Aktiv"><BR>
<BR>
<INPUT TYPE="submit" VALUE="registrer ændringer" NAME="Send"> <INPUT TYPE="reset" VALUE="Fortryd ændringer" NAME="Fortryd"> <INPUT TYPE="button" VALUE="Tilbage" ONCLICK="window.location.href='Admin.asp'">
<INPUT TYPE="hidden" VALUE="<% Response.write(Mnr)%>" NAME="Nr"><br><br>
</FORM>
<%
onrediger.close
connect.close
set onrediger=nothing
set connect=nothing
%>
</BODY>
</HTML>
Når jeg trykker på "Gem ændringer" kommer jeg til:
godkendcollection.asp
<%
RESPONSE.BUFFER="True"
CONST ADOPENKEYSET = 1
CONST ADLOCKOPTIMISTIC = 3
SET CONN = SERVER.CREATEOBJECT("ADODB.CONNECTION")
CONN.OPEN "DRIVER={Microsoft ACCESS DRIVER (*.MDB)}; DBQ=" & _
Server.MapPath("pilots.mdb")
STRSQL = "Select * FROM Collection where ID = " & clng(request.querystring("nr")) & ";"
strSql = "UPDATE DISTINCTROW [collection] SET [Model] = '" & request.form("Model") & _
"',[Farve1] = '" & request.form("Farve1") & _
"',[Farve2] = '" & request.form("Farve2") & _
"',[Farve3] = '" & request.form("Farve3") & _
"',[Farve4] = '" & request.form("Farve4") & _
"',[Farve5] = '" & request.form("Farve5") & _
"',[Farve6] = '" & request.form("Farve6") & _
"',[Farve7] = '" & request.form("Farve7") & _
"',[Farve8] = '" & request.form("Farve8") & _
"',[Farve9] = '" & request.form("Farve9") & _
"',[Farve10] = '" & request.form("Farve10") & _
"',[Farve11] = '" & request.form("Farve11") & _
"',[Farve12] = '" & request.form("Farve12") & _
"',[Aktiv] = '" & request.form("Aktiv") & _
"' WHERE [id] = " & clng(request.querystring("nr"))
' gem ændringer
conn.execute (strSql)
'nyt
conn.close
set conn=nothing
' tilbage til admin
RESPONSE.REDIRECT("admin.asp")
%>
Når sæ mine kollektioner skal rates bruges flg. side til at vælge hvilken der skal rates:
ratecollection.asp
<%
RESPONSE.BUFFER="True"
%>
<HTML>
<HEAD>
<TITLE>Rate collection</TITLE>
<meta name="Generator" content="Stone's WebWriter 4">
<link rel="stylesheet" href="style.css" type="text/css">
</HEAD>
<BODY>
<H2>Rate collection</H2>
<BR>
<%
DIM CONNECT, OnCollection, nr
SET CONNECT = SERVER.CREATEOBJECT("ADODB.CONNECTION")
CONNECT.OPEN "DRIVER={Microsoft ACCESS DRIVER (*.MDB)}; DBQ=" & Server.MapPath ("pilots.mdb")
%>
<B>Vi have the folowing</B><br>
<%
SET OnCollection = CONNECT.EXECUTE (_
"SELECT * FROM Collection where Aktiv = 'Yes'")
%>
<TABLE BORDER="1">
<!-- Her sættes løkken op for at sikre at alt kommer med -->
<TR>
<TD>Collection</TD>
</TR>
<%
DO UNTIL OnCollection.EOF %>
<% nr = OnCollection("ID") %>
<TR>
<TD><%=OnCollection("Model")%></TD>
<TD><FORM ACTION="ratecollectionnu.asp?nr=<%=nr%>" Target="_top" METHOD="POST" NAME="collectionsredigering">
<INPUT TYPE="submit" VALUE="Rate" NAME="Rate">
<INPUT TYPE="hidden" VALUE="<% Response.write(NR) %>" NAME="Nr"></TD>
</FORM>
</TR>
<!-- Her sættes løkken til at køre igen, hvis dette er nødvendigt -->
<% OnCollection.MOVENEXT
LOOP %>
</TABLE>
<BR>
<br><br>
<INPUT TYPE="button" VALUE="Tilbage" ONCLICK="window.location.href='Admin.asp'">
<!-- lukker forbindelsen -->
<%
connect.close
set OnCollection=nothing
set connect=nothing
%>
</BODY>
</HTML>
når jeg har trykket på "rate" knappen kommer jeg til:
ratecollectionnu.asp
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<HTML>
<HEAD>
<TITLE>Rate collection</TITLE>
<meta name="Generator" content="Stone's WebWriter 4">
<link rel="stylesheet" href="style.css" type="text/css">
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#660066" ALINK="#FF0000">
<H1>Rate collection</H1>
<%
DIM CONNECT
SET CONNECT = SERVER.CREATEOBJECT("ADODB.CONNECTION")
CONNECT.OPEN "DRIVER={Microsoft ACCESS DRIVER (*.MDB)}; DBQ=" & Server.MapPath ("pilots.mdb")
%>
<%
SET ONRate = CONNECT.EXECUTE ("Select * FROM Collection where Aktiv = 'Yes' and ID = " & clng(request.querystring("nr")) & ";")
%>
<u><H1>NOTICE:</H1></u><br>
<strong>As the 5 categories are not evenly valued you are not choosing an average selling product by picking "C"</strong><br><br>
<br>
<strong><u>The collectionen is:</u></strong>
<FORM ACTION="submitrating.asp?nr=<%=request.querystring("nr")%>" Target="_top" METHOD="POST" NAME="nyhedchange">
<br>
<strong><u><%=ONRate("Model")%></u></strong><br><br>
<input type="hidden" value="<%=ONRate("Model")%>" name="Model">
<TABLE BORDER = "1">
<TR>
<TD></TD>
<TD><img src="A.jpg" width="61" height="482" align="bottom" alt="A"></TD>
<TD><img src="B.jpg" width="61" height="482" align="bottom" alt="B"></TD>
<TD><img src="C.jpg" width="61" height="482" align="bottom" alt="C"></TD>
<TD><img src="D.jpg" width="61" height="482" align="bottom" alt="D"></TD>
<TD><img src="E.jpg" width="61" height="482" align="bottom" alt="E"></TD>
<TR>
<TR>
<TD>
<strong> <%=ONRate("Farve1")%> </strong></TD>
<TD><div style="text-align:center"><input type="radio" value="A" name="Rate1"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="B" name="Rate1"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="C" name="Rate1"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="D" name="Rate1"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="E" name="Rate1"></div></TD>
</TD>
</TR>
<TR>
<TD>
<strong> <%=ONRate("Farve2")%></strong> </TD>
<TD><div style="text-align:center"><input type="radio" value="A" name="Rate2"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="B" name="Rate2"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="C" name="Rate2"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="D" name="Rate2"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="E" name="Rate2"></div></TD>
</TD>
<TR>
<TD>
<strong> <%=ONRate("Farve3")%> </strong></TD>
<TD><div style="text-align:center"><input type="radio" value="A" name="Rate3"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="B" name="Rate3"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="C" name="Rate3"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="D" name="Rate3"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="E" name="Rate3"></div></TD>
</TD>
</TR>
<TR>
<TD>
<strong> <%=ONRate("Farve4")%></strong> </TD>
<TD><div style="text-align:center"><input type="radio" value="A" name="Rate4"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="B" name="Rate4"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="C" name="Rate4"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="D" name="Rate4"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="E" name="Rate4"></div></TD>
</TD>
</TR>
<TR>
<TD>
<strong> <%=ONRate("Farve5")%></strong> </TD>
<TD><div style="text-align:center"><input type="radio" value="A" name="Rate5"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="B" name="Rate5"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="C" name="Rate5"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="D" name="Rate5"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="E" name="Rate5"></div></TD>
</TD>
</TR>
<TR>
<TD>
<strong> <%=ONRate("Farve6")%></strong> </TD>
<TD><div style="text-align:center"><input type="radio" value="A" name="Rate6"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="B" name="Rate6"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="C" name="Rate6"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="D" name="Rate6"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="E" name="Rate6"></div></TD>
</TD>
</TR>
<TR>
<TD>
<strong> <%=ONRate("Farve7")%></strong> </TD>
<TD><div style="text-align:center"><input type="radio" value="A" name="Rate7"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="B" name="Rate7"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="C" name="Rate7"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="D" name="Rate7"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="E" name="Rate7"></div></TD>
</TD>
</TR>
<TR>
<TD>
<strong> <%=ONRate("Farve8")%></strong> </TD>
<TD><div style="text-align:center"><input type="radio" value="A" name="Rate8"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="B" name="Rate8"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="C" name="Rate8"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="D" name="Rate8"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="E" name="Rate8"></div></TD>
</TD>
</TR>
<TR>
<TD>
<strong> <%=ONRate("Farve9")%></strong> </TD>
<TD><div style="text-align:center"><input type="radio" value="A" name="Rate9"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="B" name="Rate9"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="C" name="Rate9"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="D" name="Rate9"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="E" name="Rate9"></div></TD>
</TD>
</TR>
<TR>
<TD>
<strong> <%=ONRate("Farve10")%></strong> </TD>
<TD><div style="text-align:center"><input type="radio" value="A" name="Rate10"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="B" name="Rate10"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="C" name="Rate10"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="D" name="Rate10"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="E" name="Rate10"></div></TD>
</TD>
</TR>
<TR>
<TD>
<strong> <%=ONRate("Farve11")%></strong> </TD>
<TD><div style="text-align:center"><input type="radio" value="A" name="Rate11"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="B" name="Rate11"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="C" name="Rate11"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="D" name="Rate11"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="E" name="Rate11"></div></TD>
</TD>
</TR>
<TR>
<TD>
<strong> <%=ONRate("Farve12")%></strong> </TD>
<TD><div style="text-align:center"><input type="radio" value="A" name="Rate12"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="B" name="Rate12"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="C" name="Rate12"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="D" name="Rate12"></div></TD>
<TD><div style="text-align:center"><input type="radio" value="E" name="Rate12"></div></TD>
</TD>
</TR>
</TABLE>
<br><br>
Input your name: <input type="text" size="50" maxlength="50" name="Navn"><br><br>
<TABLE>
<TR>
<TD>
<INPUT TYPE="submit" VALUE="Submit rating" NAME="Send"> <INPUT TYPE="reset" VALUE="Clear fields" NAME="Fortryd"> <!-- <INPUT TYPE="button" VALUE="Back" ONCLICK="window.location.href='ratecollection.asp'"> -->
<INPUT TYPE="hidden" VALUE="<% Response.write(Mnr)%>" NAME="Nr">
</TD>
</TR>
</TABLE>
</FORM>
<%
ONRate.close
connect.close
set ONRate=nothing
set connect=nothing
%>
</BODY>
</HTML>
når jeg er færdig med at rate og trykker "submit rating" kommer jeg til:
submitrating.asp
<%
RESPONSE.BUFFER="True"
SET CONNECT = SERVER.CREATEOBJECT("ADODB.CONNECTION")
CONNECT.OPEN "DRIVER={Microsoft ACCESS DRIVER (*.MDB)}; DBQ=" & Server.MapPath ("pilots.mdb")
SQL = "INSERT INTO Ratings (Model, Farve1, Farve2, Farve3, Farve4, Farve5, Farve6, Farve7, Farve8, Farve9, Farve10, Farve11, Farve12, Navn)" & " VALUES ('" & REQUEST.form("Model")& "','" & request.form("Rate1")&"','" & REQUEST.form("Rate2")&"','" & REQUEST.form("Rate3") & "','" & REQUEST.form("Rate4") & "','" & REQUEST.form("Rate5") & "','" & REQUEST.form("Rate6") & "','" & REQUEST.form("Rate7") & "','" & REQUEST.form("Rate8") & "','" & REQUEST.form("Rate9") & "','" & REQUEST.form("Rate10") & "','" & REQUEST.form("Rate11") & "','" & REQUEST.form("Rate12") & "','" & REQUEST.form("Navn") & "') "
Connect.Execute(SQL)
%>
<%
RESPONSE.REDIRECT("thanks.asp")
%>
og så sendes jeg til en "thanks.asp" som bare siger tak fordi du ratede kollektionen.
Ja et meget langt spørgsmål - men håber ikke at det har skræmt jer fra at komme med et bud på at hjælpe mig :-)
