Guten Morgen zusammen,
ich hoffe, jemand von Euch kann mir auf die Spr�nge helfen. Ich habe ein
Script, in welchem mehrere Drop-Downs sind. Zu Anfang sind alle DD's bis auf
das Erste leer. Der User kann nun hier einen FahrzeugHersteller w�hlen und
anschlie�end das Formular absenden. Da beim erneuten Laden des Formulars der
Wert "FzgHerst" gesetzt ist, ist die Bedingung f�r die anderen DD's wahr und
es sollen hier ebenfalls Werte aus der DB ausgelesen und geschrieben werden.
So weit, so gut. Wenn ich aber nun einen Hersteller ausw�hle und das
Formular absende, bekomme ich folgende Fehlermeldung:
<p>Microsoft JET Database Engine</font>- <font face="Arial" size=2>Fehler
'80004005'</font>
<p>
<font face="Arial" size=2>'' konnte nicht verwendet werden; Datei wird
bereits verwendet.</font>
<p>
<font face="Arial" size=2>/eu_norm/index.asp</font><font face="Arial"
size=2>, line 97</font>
Die Datenbank/Tabelle hab ich aber definitiv nicht mehr ge�ffnet. Ich hab
Access komplett beendet und
sogar schon nen Rechner-Neustart hinter mir.
Was ich nicht verstehe: Gestern abend auf meinem XP-Rechner hat alles
gefunzt. Hier nutze W2K und hab diese seltsamen Probleme...
Hier noch etwas Code (evtl. Zeilenumbr�che stammen von Outlook und sind in
meinem Script nicht vorhanden):
=====================Schnipp=====================
<form action="<% Response.Write strScriptName %>" method="post">
<tr bgcolor="#f0f0f0">
<td width="770" colspan="5">
<font id="titelbb">K�S-Publikationen</font>
</td>
</tr>
<tr>
<td height="8" colspan="5"></td>
</tr>
<tr id="bb">
<td valign="top" width="200">Hersteller:<br>
<select name="FzgHerst">
<option value="">Bitte w�hlen</option>
<%
connEuNorm = "Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=C:\inetpub\wwwroot\db\db1.mdb"
strSQLFzgHerst = "SELECT Fahrzeughersteller FROM eu_norm group by
Fahrzeughersteller"
set rsFzgHerst = CreateObject("ADODB.Recordset")
rsFzgHerst.Open strSQLFzgHerst, connEuNorm
while not rsFzgHerst.EOF or rsFzgHerst.BOF
if ref=1 and FzgHerst <> "" and rsFzgHerst("Fahrzeughersteller") =
FzgHerst then
Response.Write "<option value=" & FzgHerst & " selected>" &
FzgHerst & "</option>"
else
%>
<option value="<% Response.Write
rsFzgHerst.Fields("Fahrzeughersteller")%>"><% Response.Write
rsFzgHerst.Fields("Fahrzeughersteller") %></option>
<%
end if
rsFzgHerst.movenext
wend
%>
</select>
<input type="hidden" name="ref" value="1">
</td>
<td valign="top" width="200">Fahrzeugart:<br>
<select name="FzgArt">
<option value="">Bitte w�hlen</option>
<%
if FzgHerst <> "" then
strSQL = "SELECT Fahrzeugart FROM eu_norm where Fahrzeughersteller
= '" & FzgHerst & "' group by Fahrzeugart"
Response.Write "<option>" & strSQL & "</option>"
set rsFzgArt = CreateObject("ADODB.Recordset")
rsFzgArt.Open strSQL, connEuNorm
while not rsFzgArt.EOF or rsFzgArt.BOF
%>
<option value="<% Response.Write rsFzgArt("Fahrzeugart")%>" <% if
ref=1 and rsFzgArt("Fahrzeugart") = FzgArt then Response.Write
"selected"%>><% Response.Write rsFzgArt("Fahrzeugart")%></option>
<%
rsFzgArt.movenext
wend
end if
%>
</select>
</td>
=====================Schnapp=====================
Danke und cu
Olli
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
