koden ser sådan ud .. strSQL = \"SELECT * FROM billeder where (uge=\"1\")\" Set myConn = Server.CreateObject(\"ADODB.Connection\") myConn.Open = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=c:\\home\\domain\\db\\users.mdb\" Set rs = myConn.Execute(strSQL) %> <% If not (rs.BOF Or rs.EOF) Then %> <% do while not rs.eof %> <INPUT TYPE=\"hidden\" NAME=\"ID\" VALUE=\"<%=rs(\"id\")%>\"> <textarea class=\"text\" rows=\"8\" name=\"beskrivelse\" cols=\"30\"><%=rs(\"beskrivelse\")%></textarea> <% rs.movenext loop
myconn.close set myconn = nothing Set rs = Nothing end if %>
<% Set Conn = Server.CreateObject(\"ADODB.Connection\") Set RS = CreateObject(\"ADODB.Recordset\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=d:\\test\\Eksempel.mdb\" rs.open \"SELECT beskrivelse FROM Billedtekster\",Conn,3,3
\'Når du bevæger dig fremad skal du skifte til næste record(hvis ikke sidste) if Not rs.eof Then \'Check for sidste record rs.movenext rs(\"Beskrivelse\")=\"Her danser de\" End If
\'Når du bevæger dig bagud skal du skifte til forrige record(hvis ikke første) If not.bof Then \'Check for første record rs.MovePrevious rs(\"Beskrivelse\")=\"Nu sker der noget nyt\" End If
\'Opdater ændringer når du klicker på opdater rs.Update rs.Close %>
P.S Har du nogle spørgsmål kan du maile mig på PerLA@mail.tele.dk
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.