Hallo,
Code:
<html>
<head>
<title>Buch</title>
</head>
<body>
<%
IF NOT ISEMPTY(REQUEST("senden")) AND REQUEST("select name") <> "" THEN
CALL speichern(REQUEST("Anzahl"), REQUEST("buch_id"))
END IF
%>
<form action="<%=REQUEST("url")%>" method="POST">
<input name="Anzahl" type="zahl" size="8" maxlength="20">
<%CALL buch%>
<input type="submit" name="select name" value="Senden">
</form>
</body>
</html>
<%
SUB buch
'Objekte erzeugen
SET objConnection = SERVER.CREATEOBJECT("ADODB.Connection")
SET objRecordset = SERVER.CREATEOBJECT("ADODB.Recordset")
'Verbindung zu DB aufbauen
objConnection.ConnectionString = "PROVIDER=Microsoft.Jet.OleDb.4.0;Data Source=" & SERVER.MAPPATH("../edit.mdb")
objConnection.Open
'Alle Titel mit buch_id nach dem Titel sortiert abrufen
SQLquery = "SELECT Buch_id, buchname "
SQLquery = SQLquery & "FROM buecher "
SQLquery = SQLquery & "ORDER BY buchname ASC"
objRecordset.Open SQLquery, objConnection
'Dropdown erzeugen
IF NOT objRecordset.Eof THEN
RESPONSE.WRITE "<select name='buch_id'>"
DO WHILE NOT objRecordset.Eof
RESPONSE.WRITE "<option value=" & objRecordset("Buch_id") & ">" & objRecordset("buchname") & "</option>"
objRecordset.MoveNext
LOOP
RESPONSE.WRITE "</select>"´
END IF
objRecordset.Close
'Verbindung zur DB schließen
objConnection.Close
END SUB
SUB speichern(anzahl, buch_id)
SET objRecordset = SERVER.CREATEOBJECT("ADODB.Recordset")
objConnection = "PROVIDER=Microsoft.Jet.OleDb.4.0;Data Source=" & SERVER.MAPPATH("../edit.mdb")
SQLquery = "INSERT INTO buch "
SQlquery = SQLquery & "(anzahl, Buch_id) VALUES ("
SQLquery = SQLquery & anzahl & ", "
SQLquery = SQLquery & buch_id & ")"
objRecordset.Open SQLquery, objConnection
SET objRecordset = NOTHING
SET objConection = NOTHING
END SUB
%>
Grüße
Christoph
Lesezeichen