Aktualisierung mehrerer Datensätze

redwing78

Mitglied
Hallo allerseits,
ich habe mir eine Übersicht gestaltet, in der ich alle Mannschaften einer Liga auflisten lasse, wobei man jeweils in Formularen Daten wie Tore, Punkte, etc. editieren kann.
Es handelt sich um die 5 Felder Name, Spiele, Tore für, Tore gegen, Punkte.
Die letzten 4 Felder sind auf eine Saison (zB 0506) bezogen.

Nur beim Speichern haut's noch nicht hin, irgendwo muß da ein Fehler drin sein.
Kann mir jemand helfen?
URL: http://www.fckitz.at/fcreith/admin/tabelle_edit.asp
Danke für jeden Tipp - LG redwing78

Code:
<%@LANGUAGE="VBSCRIPT" %>
<%	dim objCon
	strDB = "Data Source=" & Server.MapPath("../../datenbank/fcreith.mdb") ' Pfad und Dateiname der Datenbank
	strCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & strDB ' Parameter zum &Ouml;ffnen der Datenbank
	strTabelle = "Mannschaften" ' Name der Tabelle oder Abfrage, die ge&ouml;ffnet werden soll
	Set objCon = Server.CreateObject("ADODB.Connection") ' Objekt f&uuml;r den Verbindungsaufbau mit der Datenbank
	objCon.Open strCon
	Set objRS = Server.CreateObject("ADODB.Recordset") ' Objekt fuer das Recordset-Objekt			
	strSQL = "SELECT * FROM Mannschaften WHERE S05061Mannschaft=TRUE ORDER BY S0506Punkte DESC"
	objRS.Open strSQL, objCon

	dim pfad
	pfad = request.Servervariables("SCRIPT_NAME")

	if request.form.count > 0 then

	dim i, eMannschaftsID, eName, eS0506Spiele, eS0506ToreF, eS0506ToreG, eS0506Punkte, sql
	for i = 1 to Request.Form("Counter")

	eMannschaftsID= Request.Form("eMannschaftsID" & i & "")
	eName= Request.Form("eName" & i & "")
	eS0506Spiele= Request.Form("eS0506Spiele" & i & "")
	eS0506ToreF= Request.Form("eS0506ToreF" & i & "")
	eS0506ToreG= Request.Form("eS0506ToreG" & i & "")
	eS0506Punkte= Request.Form("eS0506Punkte" & i & "")

	SQL = "Update Mannschaften SET Name=" & eName & ", " & _
		"S0506Spiele=" & eS0506Spiele & ", " & _
		"S0506ToreF=" & eS0506ToreF & ", " & _
		"S0506ToreG=" & eS0506ToreG & ", " & _
		"S0506Punkte=" & eS0506Punkte & " WHERE S05061Mannschaft=TRUE AND MannschaftsID=" & eMannschaftsID & ""

Response.write sql
objCon.Execute(sql)
next

objCon.close
set objCon = Nothing
Response.redirect pfad
end if %>

<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>FC Reith - Administration</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="admin.css" rel="stylesheet" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000">

<%  sql = "SELECT MannschaftsID,Name,S0506Spiele,S0506ToreF,S0506ToreG,S0506Punkte FROM Mannschaften WHERE S05061Mannschaft=TRUE ORDER BY S0506Punkte DESC"
	Set RS = Server.CreateObject("ADODB.Recordset")
	RS.Open sql, objCon, 3,3
	dim  a
	counter = rs.recordCount
	a = 1 %>
	
<h1>Tabelle aktualisieren</h1>
<form name="form1" method="post" action="<% = pfad %>">
  <table border="1" cellspacing="0" cellpadding="2">
    <tr>
      <td class="viewhead" colspan="2"><b>Mannschaft</b></td>
      <td class="viewhead">
      <table width="100%" border="0">
        <tr>
          <td width="40%" class="viewhead">Name</td>
          <td width="15%" class="viewhead">Spiele</td>
          <td width="15%" class="viewhead">ToreF</td>
          <td width="15%" class="viewhead">ToreG</td>
          <td width="15%" class="viewhead">Punkte</td>
        </tr>
      </table>
      </td>
    </tr>
    <% while not rs.eof %>
    <tr>
      <td colspan="2">
      <table border="0" width="100%">
        <tr>
          <td class="texts"><font color="silver"><% = rs(0)%><input name="eMannschaftsID<% = a%>" type="hidden" value="<%= rs(0)%>"></font></td>
        </tr>
      </table>
      </td>
      <td class="texts">      
      <input name="eName<% = a%>" class="editfrei" type="text" value="<%= rs(1)%>" size="30">
      <input name="eS0506Spiele<% = a%>" class="editnum" type="text" value="<%= rs(2)%>" size="10">
      <input name="eS0506ToreF<% = a%>" class="editnum" type="text" value="<%= rs(3)%>" size="10">
      <input name="eS0506ToreG<% = a%>" class="editnum" type="text" value="<%= rs(4)%>" size="10">
      <input name="eS0506Punkte<% = a%>" class="editnum" type="text" value="<%= rs(5)%>" size="10"></td>
    </tr>
    <% a = a + 1
	rs.movenext
	wend
	rs.close
	Set RS = Nothing
	%>
  </table>
  <input type="hidden" name="counter" value="<% = counter %>">
  <p><input type="submit" name="go" value="Aktualisieren"> </p>
</form>

<% objCon.close
set objCon = Nothing %>

</body>

</html>
 
Zurück