varför fungerar ej koden
SQL = "SELECT TOP 5 * FROM nyheter ORDER BY datum DESC"
Hela koden
Dim Conn, RecSet, SQL
Set Connect = Server.CreateObject("ADODB.Connection")
Set Recset = Server.Createobject("ADODB.Recordset")
Dim StrConnect
StrConnect = "Driver={Mysql};Server=innodb.levonline.com;Database=xxxxxx;UID=xxxxxxx;PWD=xxxxxx"
Connect.Open StrConnect
SQL = "SELECT TOP 5 * FROM nyheter ORDER BY datum DESC"
RecSet.Open SQL, Conn, 0, 1
Do until RecSet.EOF
utskrift
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close