oversættelse fra jscript til vb

res.movefirst
Do while not res.eof
  res!xx
  res!xx
  res!xx
  res!xx
  res.movenext
Loop

Du skal bruge referencen MicroSoft DAO 3.51 Object Library
'Preparation
Dim ws As Workspace
Dim db As Database
Dim rs As Recordset

'Connection to DB and read from it
Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\dbname.mdb")
Set res = db.OpenRecordset("SELECT * FROM tablename")

res.movefirst
Do while not res.eof
  res!xx
  res!xx
  res!xx
  res!xx
  res.movenext
Loop

fuck jeg har oprettet spørgsmål i en forkert kategori, det jeg skal bruge er vbscript....kan du også det eller skal jeg lave et nyt spm ??

Altså en asp side.....?

har klaret det
<table width="300" cellpadding="5" border="0" class="border">
<%
do while Not res.EOF
%>
<tr >
    <td><%=res("xx")%></td>
    <td><%=res("xx")%></td>
    <td><%=res("xx")%></td>
    <td><%=res("xx")%></td>
  </tr>

<%
res.movenext
loop

Conn.Close
    Set Conn = Nothing
%>
</table>

ok :)

Giver gerne pointene tilbage hvis det er :)

nej, det var min fejl...go' weekend ;-)

ok takker og i lige måde :)