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
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 Öffnen der Datenbank
strTabelle = "Mannschaften" ' Name der Tabelle oder Abfrage, die geöffnet werden soll
Set objCon = Server.CreateObject("ADODB.Connection") ' Objekt fü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>