Hallo!
> 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)
Set Recordset = Verbindung.Execute(SQL)
^^^
>
> do while not Recordset.EOF <-------- Fehler ??
> response.write "<option value=""" & Recordset("name") & """>" &
> Recordset("name") & "</option>"
> Recordset.MoveNext
> loop
>
> %>
> </select>
Freundliche Gr��e
Joachim van de Bruck
| [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
