Sv: Request.Form("namn") hittar ej värdet

Request.Form("namn") hittar ej värdet

Postades av 2003-12-01 14:14:05 - Lena Karlsson, i forum asp - allmänt, Tråden har 1 Kommentarer och lästs av 422 personer

Hej,
Jag har en matris med värden, detta hämtas mha tre olika reordset. Denna matris ska uppdateras vid ett knappklick. Värderna hämtas utan problem och visas fint i matrisen men när jag sen ska uppdatera använder jag mig av request.form för att få tag i rätt värde som ska uppdateras.
Just nu försöker jag lägga ut ett av värderna (Niva_id) i samma formulär bara för att se om det blir rätt men det blir tomt.
Kan någon vara snäll och hjälpa mig?
//Lena

<html>

<%
On Error Resume Next
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\Personalkompetens\Personalkompetens.mdb"

Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM befattning ORDER BY befattning"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

Set RecSetKomp = Server.CreateObject("ADODB.Recordset")
kompetens = "SELECT * FROM kompetensomrade ORDER BY kompetensomrade"
RecSetKomp.Open kompetens, Connect, adOpenStatic, adLockOptimistic

Set RecSetNiva = Server.CreateObject("ADODB.Recordset")
Niva = "SELECT * FROM kompniva ORDER BY niva_nr"
RecSetNiva.Open Niva, Connect, adOpenStatic, adLockOptimistic

%>

<head>
</head>

<body>
<b>Följande kravnivåer finns per befattningar och kompetensområden.</b>
<ul>
<table>
<tr>
<td width="40%"><font size="1"><b></b></font></td>
<% Do Until RecSetKomp.EOF %>
<td width="25%" valign="bottom"><font size="1"><% =RecSetKomp("kompetensomrade") %></font></td>
<% RecSetKomp.MoveNext
Loop
RecSetKomp.Close
Set RecSetKomp = Nothing
%>

</tr>
<% Do Until RecSet.EOF %>
<tr>
<td width="40%"><font size="1"><% =RecSet("befattning") %></font></td>

<%
Set RecSetKomp = Server.CreateObject("ADODB.Recordset")
kompetens = "SELECT * FROM kompetensomrade ORDER BY kompetensomrade"
RecSetKomp.Open kompetens, Connect, adOpenStatic, adLockOptimistic
Do Until RecSetKomp.EOF

Set RecSetKravNiva = Server.CreateObject("ADODB.Recordset")
KravNiva = "SELECT niva_nr FROM kompniva, kravniva WHERE kompniva.niva_id = kravniva.kompniva_id and kravniva.befattning_id = " & RecSet("befattning_id") & " and kravniva.kompetensomrade_id = " & RecSetKomp("kompomrade_id")
RecSetKravNiva.Open KravNiva, Connect, adOpenStatic, adLockOptimistic

%> <td width="2%"><font size="1">kravniva<%=RecSet("befattning_id")&RecSetKomp("kompomrade_id")%></font></td>
<td width="2%"><font size="1"><INPUT TYPE="TEXT" SIZE="1" NAME="kravniva<%=RecSet("befattning_id")&RecSetKomp("kompomrade_id")%>" VALUE=<% =RecSetKravNiva("niva_nr") %>></font></td>
<% RecSetKomp.MoveNext
Loop
RecSetKomp.Close
Set RecSetKomp = Nothing
%>
<FORM METHOD="POST" ACTION="add_kravmatrisniva.asp?ID=<% =RecSet("befattning_id") %>">
</tr>
<%
RecSet.MoveNext
Loop
RecSet.Close
Set RecSet = Nothing
RecSetKravNiva.Close
Set RecSetKravNiva = Nothing
%>
</table>
<p>
<p>Niva_Id: = <%=Request.Form("kravniva"&RecSet("befattning_id")&RecSetKomp("kompomrade_id"))%></p>
<p>
<font size="1"><b>
Ändra kravnivåer</b><BR>
<INPUT TYPE="submit" VALUE="Ändra">

</font>
<p>
<b><font size="1">Följande kravnivåer finns.</font></b>
<table>
<% Do Until RecSetNiva.EOF %>
<tr>
<td width="10%"><font size="1"><% =RecSetNiva("niva_nr") %></font></td>
<td width="50%"><font size="1"><% =RecSetNiva("niva") %></font></td>
</tr>
<% RecSetNiva.MoveNext
Loop
RecSetNiva.Close
Set RecSetNiva = Nothing
%>
</table>
</FORM>
<%
Connect.Close
Set Connect = Nothing
%>
</body>

Svara