Drop Down Liste dynamisch füllen

A

angelnb

Grünschnabel
Hallo zusammen..

ich habe folgendes Problem.
Ich möchte 3 drop down listen mit werten aus der sql datenbank füllen.
eine drop down liste soll für den dateityp, eine für die sprache und eine für themen sein.
habe auch eine stored procedure geschreiben, die mir alle werte aus der datenbank zu meinen 3 themen ermittelt.
habe versucht hierfür den code zu schreiben, leider gelingt es mir nicht..
habe auch ehrlich gesagt nicht wirklich viel Ahnung von asp:-(
muß wahrscheinlich auch nicht jedesmal die Verbindung neu erstellen oder?!
vielleicht kann mir jemand helfen, bin für jede Hilfe sehr dankbar:)

<body>

<form method="post">
<table border="1">
<caption><b>Anlegen eines neues Datensatzes:</b></caption>
<tr>

<th>Datum</th>
<th>Beschreibung</th>
<th>Datei</th>
<th>Typ</th>
<th>Sprache</th>
<th>Thema</th>

</tr>
<tr>
<td>
<input type="text" name= "Datum" size="15" >
</td>
<td>
<input type="text" name= "Beschreibung" size="60">
</td>
<td>
<input type="text" name= "Datei" size="20">
</td>
<td>
<%
set conDis = Server.CreateObject("AdoDb.Connection")
conDis.open "Verbindung"

response.Write "<select size=""0"" name=""menu1"">"

set db = Server.CreateObject("AdoDb.Command")
db.CommandText = "sp_dropdown"
db.CommandType = 4
SET rs = db.Execute()


do until rs.EOF
%><option value="<%=rs(db_idfield)%>"<%
%>><%=rs("Typbeschreibung")%></option><%
rs.MoveNext
loop
response.Write "</select>"
db.close
set db = Nothing
set rs = Nothing
%>
</td>
<td>
<%
set condis = Server.CreateObject("AdoDB.Connection")
condis.open "Verbindung"

response.Write "<select size=""0"" name=""menu2"">"

db.CommandText = "sp_dropdown"
db.Commandtype = 4
SET rs = db.Execute()

do until rs.EOF
%><option value="<%=rs(db_idfield)%>"<%
%>><%=rs("Sprache")%></option><%
rs.MoveNext
loop
response.Write "</select>"
db.close
set db = Nothing
set rs = Nothing
%>
</td>
<td>
<%
set condis = Server.CreateObject("AdoDB.Connection")
condis.open "Verbindung"

response.Write "<select size=""0"" name=""menu3"">"

db.CommandText = "sp_dropdown"
db.Commandtype = 4
SET rs = db.Execute()

do until rs.EOF
%><option value="<%=rs(db_idfield)%>"<%
%>><%=rs("Thema")%></option><%
rs.MoveNext
loop
response.Write "</select>"
db.close
set db = Nothing
set rs = Nothing
%>
</td>
</tr>

</table>
</form>
 
Hallo.

Wäre evt. auch gut gewesen, wenn du gesagt hättest ob ein Fehler kommt, und wenn einer gekommen wäre, das du ihn angegeben hättest.

Aber ich hoffe, dass es so funktioniert. Die Änderungen sind Unterstrichen, bis auf ein paar Zeilen gelöscht habe. DIese haben die Verbindung betroffen, du hast sie ja schon am Beginn des Scripts geöffnet und noch nicht geschlossen, also kannst du sie unten weiter verwenden.

Code: 
<%
set conDis = Server.CreateObject("AdoDb.Connection")
conDis.open "Verbindung"

response.Write "<select size=""0"" name=""menu1"">"

set db = Server.CreateObject("AdoDb.Command")
Set db.ActiveConnection = conDis
db.CommandText = "sp_dropdown"
db.CommandType = 4
SET rs = db.Execute()


do until rs.EOF
%><option value="<%=rs(db_idfield)%>"<%
%>><%=rs("Typbeschreibung")%></option><%
rs.MoveNext
loop
response.Write "</select>"
db.close
set db = Nothing
set rs = Nothing
%>
</td>
<td>
<%
response.Write "<select size=""0"" name=""menu2"">"
Set db = Server.CreateObject("ADODB.Command")
Set db.ActiveConnection = conDis

db.CommandText = "sp_dropdown"
db.Commandtype = 4
SET rs = db.Execute()

do until rs.EOF
%><option value="<%=rs(db_idfield)%>"<%
%>><%=rs("Sprache")%></option><%
rs.MoveNext
loop
response.Write "</select>"
db.close
set db = Nothing
set rs = Nothing
%>
</td>
<td>
<%

response.Write "<select size=""0"" name=""menu3"">"

Set db = Server.CreateObject("ADODB.Command")
Set db.ActiveConnection = conDis
db.CommandText = "sp_dropdown"
db.Commandtype = 4
SET rs = db.Execute()

do until rs.EOF
%><option value="<%=rs(db_idfield)%>"<%
%>><%=rs("Thema")%></option><%
rs.MoveNext
loop
response.Write "</select>"
db.close
set db = Nothing
set rs = Nothing

conDis.Close
set conDis = nothing
%>

Mfg,
Alex
 
Schön, freut mich.
Der schlimmste Fehler war, das du das ADODB.Command Object zerstört hast, aber dann wieder darauf zugreifen wolltest.
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück