Uppdatera alla

HAr en sida där jag skriver ut alla fält i inputfält med hjälp av For i = 0 to RS.Fields.Count - 1 . Nu när jag klickar på Skicka så vill jag att dessa fält skall skrivas ut i samma ordning som på sidan där jag skriver ut alla inputfält med värderna i. Hur gör jag?

Följande kod har jag än så länge men när jag skriver ut allt efter ändringen så kommer de huller om buller. Sen vill jag även skriva ut namnet på fältet ovanför värdet. I fetstil.

Hoppas nån vet hur jag ska skriva.

<%If Request.QueryString("action") = "" Then
  Set RS = Conn.Execute("SELECT * FROM user Where userID=1")%>
    <table cellspacing="0" cellpadding="2" border="0" width="100%">
      <form method="POST" action="index.asp?action=update&id=1">
      <%For i = 0 to RS.Fields.Count - 1%>
        <tr>
          <td width="15%" valign="top"><b><%=Ucase(RS.Fields(i).Name)%>:</b></td>
          <td width="95%" valign="top">
            <input type="text" name="<%=RS.Fields(i).Name%>" value="<%=RS(i)%>" style="width:98%">
          </td>
        </tr>
      <%Next%>
        <tr>
          <td>&nbsp;</td>
          <td><input type="submit" value=" Skicka " class="knapp"></td>
        </tr>
      </form>
    </table>
  <%RS.Close

ElseIf Request.QueryString("action") = "update" Then%>
  <table cellspacing="0" cellpadding="2" border="0" width="100%">
    <%For Each item In Request.Form%>
      <tr>
        <td>
          [b]HÄR SKA FÄLTETS NAMN STÅ[/b]<br>
          <%If Request.Form(item) = "" Then%>----<%Else%><%=FixaTecken(Request.Form(item))%><%End If%><hr>
        </td>
      </tr>
    <%Next%>
  </table>

<%End If%>

Har fixat och ändrat i koden lite men kan ej sortera, så det skrivs ut i samma ordning som det är upplagt i inputfälte, där jag skriver ut allt. Nya koden:

<%If Request.QueryString("action") = "" Then
  Set RS = Conn.Execute("SELECT * FROM user Where userID=1")%>
    <table cellspacing="0" cellpadding="2" border="0" width="100%">
      <form method="POST" action="visa_alla.asp?action=update&id=1">
      <%For i = 0 to RS.Fields.Count - 1%>
        <tr>
          <td width="15%" valign="top"><b><%=Ucase(RS.Fields(i).Name)%>:</b></td>
          <td width="95%" valign="top"><input type="text" name="<%=RS.Fields(i).Name%>" value="<%=RS(i)%>" style="width:98%"></td>
        </tr>
      <%Next%>
        <tr>
          <td>&nbsp;</td>
          <td><input type="submit" value="Uppdatera användare" class="knapp"></td>
        </tr>
      </form>
    </table>
  <%RS.Close

ElseIf Request.QueryString("action") = "update" Then%>
  <table cellspacing="0" cellpadding="2" border="0" width="100%">
  <%For Each item In Request.Form
    For Each value In Request.Form(item)%>
      <tr>
        <td><b><%=Ucase(item)%>:</b><br><%If value = "" Then%>----<%Else%><%=FixaTecken(value)%><%End If%><hr></td>
      </tr>
    <%Next
  Next%>
  </table>

<%End If%>