Hallo ASP-Menschen...
sorry ich hab schonwieder ein problem...
Fehlermeldung:
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'EOF'
line 44
Code:
<%
Dim Verbindung
Dim Recordset
Server.ScriptTimeout = 120
Set Verbindung = Server.CreateObject("ADODB.Connection")
Set Recordset = Server.CreateObject("ADODB.Recordset")
with Verbindung
.CursorLocation = adUseClient
.ConnectionTimeout = 120
.Open "driver={MySQL};server=XXXXX;uid=XXXX;pwd=;database=xxxxx;"
end with
%>
<select name="Standort">
<%
Dim SQL
SQL = "SELECT * FROM ort"
Recordset = Verbindung.Execute(SQL)
do while not Recordset.EOF <-------- Fehler ??
response.write "<option value=""" & Recordset("name") & """>" &
Recordset("name") & "</option>"
Recordset.MoveNext
loop
%>
</select>
| [aspdedatabase] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
