Haster!-vbscript til javascript.

Nedenstående vbscript-tkode i ASP (med lidt sql) -skal omskrives til javascriptkode.
(spørg ikke HVORFOR! :-))


<% @language=javascript %>

<%

  connection = Server.CreateObject(\"ADODB.Connection\");
  connection.open(\"DRIVER={Microsoft Access Driver (*.mdb)};\" +
\"DBQ=c:\\\\inetpub\\\\wwwroot\\\\themisbeta\\\\forumtabel.mdb\");

dim res, intID
    intID = request.querystring(\"id\")
   
select case request.querystring(\"mode\")
case \"svar\"
    blnSvar = true
      res = connection.execute(\"SELECT svarID AS ID, Overskrift,BrugerNavn, kommentar FROM svar WHERE indlægsid = \"& intID &\" ORDER BY Dato\");
case \"emne\"
    res = connection.execute(\"SELECT indlægsID AS ID, Overskrift,BrugerNavn, kommentar FROM indlæg WHERE EmneID = \"& intID &\" ORDER BY Dato\");
case else
      res = connection.execute(\"SELECT * FROM emne ORDER BY Dato\");
   
end select


%>

<html>
<body>
<%
select case request.querystring(\"mode\")
case \"svar\", \"indlæg\"
    Response.write(\"<table BORDER=1>\");
    while (!res.EOF) {
        Response.write(\"<tr><td><a href=\'sygehus.asp?mode=svar&id=\"+ res(\"ID\") + \"\'>\"+ res(\"Overskrift\") + \"</td><td>\" + res(\"BrugerNavn\") + \"</td></tr>\");
    if blnSvar then
        Response.write(\"<tr><td><strong>Kommentar :</strong></td><td>\"+ res(\"kommentare\") + \"</td></tr>\");
    end if
    res.MoveNext();
   
    }
    Response.write(\"</table>\");
   
case else
\' her udskrives så kun de forskellige emner SELECT * FROM emne ORDER BY Dato

end select
%>

</body>
</html>