Du får lige koden
Afsnittet opret stikprøveplan til prøve er mit problem.
Checkboxene i løkken er med i kildekoden, men det registreres af en eller anden grund ikke at disse bliver ændret, altså der bliver sat hak i, når jeg laver en request.form bliver prøve data og submitknap vist, men jeg får ingen data på hvilke checkboxe der er hakket af.
Håber du forstår hvad jeg mener nu... ;-)
<html>
<head>
<%
Produkttype = "" & Request.QueryString("Vare")
Side = ""
Titel = ""
count = 0
analysecount = 0
Dim VareNummer
VareNummer = ""
If Produkttype = "faerdig" Then
Titel = "Færdigvare"
Side = "nyprovedata.asp"
Else
Titel = "Råvare"
Side = "indhold.asp"
End If
FormVareNummer = Request.Form("vare")
If Len(FormVareNummer) > 0 Then
Response.Write Request.Form
End If
Function checked(analysis)
checkmark = ""
If analysis = true Then
checkmark = " checked disabled"
End If
Response.Write checkmark
End Function
Dim rsData
Set rsData = Server.CreateObject("ADODB.Recordset")
rsData.Open "RetrieveNewVare '" & Titel & "'", objConnection
%>
<title><%= Titel %>prøve</title>
</head>
<body>
<br>
<fieldset style="padding: 5px"><legend>Prøvenr - <%= Titel %> </legend>
<%
'-------------------------------------------
'Opret færdigvare
'-------------------------------------------
%>
<div id="opretprove">
<form action="<%= Side %>" method="POST" name="opretprove">
<%
rsData.MoveFirst
%>
<h1><font size="6"><%=rsData("Maxnr") %></font></h1>
<table id="proveform">
<tr>
<td>Varenr:</td>
<td>
<select size="1" name="vare" onchange="return showMenu(this.value)" >
<option value="noselect">-- Vælg <%= Titel %> --</option>
<%
Set rsProdukt = rsData.NextRecordSet
rsProdukt.MoveFirst
do While Not rsProdukt.EOF
%>
<option value="<%= rsProdukt("Varenr") %>"><%= rsProdukt("Varenavn") %> (<%= rsProdukt("Varenr") %>)</option>
<%
rsProdukt.MoveNext
Loop
%>
</select></td>
<td>Batchnr:</td>
<td>
<input type="text" name="Batchnr" size="20"></td>
</tr>
<tr>
<td>Prøvetager:</td>
<td>
<select size="1" name="Provetager">
<option value="noselect">-- Vælg bruger --</option>
<%
Set rsUser = rsProdukt.NextRecordSet
rsUser.MoveFirst
do While Not rsUser.EOF
%>
<option value="<%= rsUser("Bruger") %>"><%= rsUser("Bruger") %> (<%= rsUser("Brugernavn") %>)</option>
<%
rsUser.MoveNext
Loop
%>
</select></td>
<td>Dato:</td>
<td>
<input type="text" name="Provedato" size="20" value=<%= Now() %>></td>
</tr>
<tr>
<td>
Ordrenr:</td>
<td>
<input type="text" name="Ordrenr" size="20"></td>
<td>
Til Tanknr:</td>
<td>
<select size="1" name="TilTanknr">
<%
Set rsTank = rsUser.NextRecordSet
rsTank.MoveFirst
do While Not rsTank.EOF
%>
<option value="<%= rsTank("Tanknr") %>"><%= rsTank("Tanknavn") %> (<%= rsTank("Tanknr") %>)</option>
<%
rsTank.MoveNext
Loop
%>
</select>
</td>
</tr>
<tr>
<td>
</td>
<td>
</td>
<td>
</td>
<td>
</td>
</tr>
<tr>
<td>
</td>
<td>
</td>
<td>
</td>
<td>
</tr>
</table>
</div>
Stikprøveplan
<%
Set rsAnalyseart = Server.CreateObject("ADODB.Recordset")
rsAnalyseart.Open "RetrieveAnalyseArt", objConnection
rsAnalyseart.MoveFirst
do While Not rsAnalyseart.EOF
count = count +1
rsAnalyseart.MoveNext
Loop
%>
<%
'-------------------------------------------
'Opret Stikprøveplan til Prøve
'-------------------------------------------
Set rsStikprove = rsTank.NextRecordSet
rsStikprove.MoveFirst
do While Not rsStikprove.EOF
analysecount = analysecount +1
'Response.Write CStr(Varenummer) & CStr(rsStikprove("Varenr"))
If CStr(Varenummer) <> CStr(rsStikprove("Varenr")) Then
%>
<div class="hideStik" id=<%= rsStikprove("Varenr") %>>
<%= rsStikprove("Varenr") %>
<table id="proveform">
<tr>
<%
rsAnalyseart.MoveFirst
do While Not rsAnalyseart.EOF
%>
<td width="<%= (80/count) %>"><%= rsAnalyseart("Analyseart") %></td>
<%
rsAnalyseart.MoveNext
Loop
%>
<td width="20%"></td>
</tr>
<tr>
<%
End If
%>
<td>
<input type="Checkbox" value=true id="<%= rsStikprove("Varenr") &"" & rsStikprove("Prove") %>"<%checked(rsStikprove("JaNej"))%>>
</td>
<%
If analysecount Mod count = 0 Then
%>
<td>
<input type="submit" id="button" value="Bekræft indtastning" name="<%= rsStikprove("Varenr") %>bekraeft"></td>
</tr>
</table>
</div>
<%
End If
Varenummer = rsStikprove("Varenr")
rsStikprove.MoveNext
Loop
%>
</form>
</fieldset>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
