database
Jeg er ved at lave en simpel chat i ASP og er rendt ind i den sædvanlige fejl 500 men jeg kan ikke rigtig gennemskue den...:Set Objektet = Server.CreateObject(\"ADODB.Connection\")
Objektet.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\\Xenomind464893\\xenomind\\MindTwister\\chat.mdb\"
if request(\"write\") = 1 then
SQL = \"SELECT * FROM chat ORDER BY Id\"
set Fil = Objektet.execute( SQL )
nick1 = Fil(\"nick\")
color1 = Fil(\"color\")
text1 = Fil(\"text\")
Sql = \"Insert into chat (nick,color,text) values (\'\" & Request(\"nick\") & \"\', \'\" & Request(\"color\") & \"\', \'\" & request(\"text\") & \"\')\"
Objektet.Execute(Sql)
do while not Fil.eof
Fil.MoveNext
nick1 = Fil(\"nick\")
color1 = Fil(\"color\")
text1 = Fil(\"text\")
Sql = \"Insert into chat (nick,color,text) values (\'\" & nick1 & \"\', \'\" & color1 & \"\', \'\" & text1 & \"\')\"
Objektet.Execute(Sql)
loop
response.redirect(\"index.asp?page=3\")
else
SQL = \"SELECT * FROM chat ORDER BY Id\"
set Fil = Objektet.execute( SQL )
DO WHILE NOT Fil.EOF
Response.Write \"-=\" & Fil(\"nick\") & \"=-<font color=\'#\" & Fil(\"color\") & \"\'>\" & Fil(\"text\") & \"</font><br>\"
Fil.MoveNext
LOOP
end if