Hi Stefan,
anbei der Code. Ich habe mich auf das "Umfeld" der Zeile 21 beschränkt, da die Seite über 380 Zeilen Code enthält (sicherlich auch ein wenig Müll dabei....). Im unteren Teil mache ich nichts anderes, als Formfelder mit den Inhalten der DB zu füllen
(z. B. <input type="text" name="Vorname" size="20" value="<% =rs.Fields("Vorname")%>">)
und am Ende habe ich den Submit Button, der auf die Updateseite submittet.
Scriptbeginn:
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "LundbeckMitarbeiter"
Dim maid
maid = Request("maid")
SQL = "SELECT * FROM Lundbeck where ID = " & maid
Anfang Zeile 21
Set rs = Server.CreateObject("ADODB.Recordset")
Ende Zeile 21
rs.Open sql, conn, 3, 3
rs.MoveFirst
do while (Not rs.eof)
%>
<div align="center">
<center>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" valign="top" align="center">
<form method="POST" action="MA_change_update.asp" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="921">
<tr>
<td width="100%" colspan="4" height="29">
<p><font size="5">
Mitarbeiterdaten ändern.</font></p>
<
Scriptende.
MfG
Tom