Fel antal argument eller felaktig egenskapstilldelning

<%
set connect = server.createobject("adodb.connection")
connect.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("db/statistik.mdb") 
set rs = connect.execute("Select * From slumpa order by id desc")

Do Until rs.EOF
response.write rs("kod") & "<br>"
rs.MoveNext
loop
%>

t.ex.

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 25 jan 2002]

<%
set connect = server.createobject("adodb.connection")
connect.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("db/statistik.mdb") 
set rs = connect.execute("Select * From slumpa order by id desc")

Do Until rs.EOF

response.write " "& rs("kod") &" "

rs.MoveNext
loop
%>

------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.

Nu skrivs koden ut, men jag har ASP-kod i min databas med utan <% & %>, nu skrivs det ut som vanlig text men jag vill koden ska göra det som står .

------------------
Ampy.cjb.net

Varför lagrar du källkod i en databas? Det är bara problem med en sådan lösning.
Hela designen av ASP bygger på att man har källkoden i filer.
------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 25 jan 2002]

För att jag vill skriva ut olika texter varje gång och då slumpas en post ur databasen som jag sedan skriver ut.

------------------
Ampy.cjb.net

Varför sparar du inte bara texten i databasen?

------------------
essentitia preter non sans multiplicandum

Så här ser koden ut i en post tex:

Set Conn = Server.CreateObject(""ADODB.Connection"")
Set DBLink = Server.CreateObject(""ADODB.Recordset"")

Conn.Open ""Driver={Microsoft Access Driver (*.mdb)}; DBQ="" & Server.MapPath(""db/icq.mdb"") & "";pwd=;""

SQL = ""SELECT TOP 1 * From icq ORDER BY datum DESC""
DBLink.Open SQL, Conn, 1, 2

Do While Not DBLink.EOF

Response.Write ""<b>Namn: </b><FONT face=Verdana color=#006600 size=1><b><i>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"" & DBLink(""namn"") & ""</i></b></font>""
Response.Write "" <br><b>Nick-namn: </b><FONT face=Verdana color=#006600 size=1><b><i>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"" & DBLink(""nick"") & ""</i></b></font>""
Response.Write "" <br><b>Ålder: </b><FONT face=Verdana color=#006600 size=1><b><i>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"" & DBLink(""alder"") & ""</i></b></font>""
Response.Write ""<br><b>Datum: </b> <FONT face=Verdana color=#006600 size=1><i><b> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"" & DBLink(""datum"") & ""</font><b></i>""

DBLink.MoveNext

Loop

DBLink.Close
Conn.Close

Jag måste ju ha den koden i databasen för att kunna hämta olika koder eller finns det något annat sätt att lösa det på?

------------------
Ampy.cjb.net

Lägg varje sådan post som en sub i din källkod som du sen anropar.

------------------
essentitia preter non sans multiplicandum

Kan någon göra om denna kod:

%
randomize
set connect = server.createobject("adodb.connection")
connect.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("db/statistik.mdb") 
set rs = connect.execute("Select * From slumpa ")
if rs.eof then
'tji
else
rows = rs.getrows()
post = clng(rnd()*ubound(rows,2))
for i = 1 to ubound(rows,1)
ExecuteGlobal(rows(i,post))
next
end if
%>

Så att den skriver ut alla poster i databasen istället för att slumpa en. Skulle vara jättesnällt om någon kunde göra det.

------------------
Ampy.cjb.net

' Hämta från databas.
set connect = server.createobject("adodb.connection")
connect.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("db/statistik.mdb") 
set rs = connect.execute("Select * From slumpa ")
if Not rs.eof then
   arrRows = rs.getrows()
end if

' Skriv ut:
For I = 0 To Ubound(arrRows, 2)
Response.Write arrRows(0, I)
Next

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

http://cgi.webforum.nu/wf/Forum11/HTML/008515.html

:q