Maskinkode

Det har jeg oplevet før - jeg kan bare ikke huske hvorfor ...

Må jeg se lidt kode. ?

Her er den første inkluderingsfil:

<%@ Language=vbscript %>
<% Option Explicit %>
<!-- #INCLUDE FILE="msado15.dll" -->
<!-- #INCLUDE FILE="adovbs.inc" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
    <title>Arbejds Statistik</title>
    <SCRIPT LANGUAGE="JavaScript">
    function butAddProject_onclick()
    {
      var docProjektNavn = document.InsertData.ProjektNavn;
      var projectArrayLength = docProjektNavn.length;
      docProjektNavn[projectArrayLength] = document.AddProject.NewProject.value
      return true
    } 
    </SCRIPT>
</head>

<body>

<!--Screen Table-->
<TABLE>
<CENTER>
<!--Homepage Table-->
<TABLE WIDTH="500">
</CENTER>
<TR>
  <TD>
      <H1><CENTER>Christian Dygaard's Arbejdsstatistik.</CENTER><H1><HR>
  </TD>
<TR>
<TR>
  <TD>
  <FORM NAME="ChooseProject" METHOD="POST" ACTION="index.asp">
  Vælg Projekt:&nbsp;
  <%
  dim objConn, objRS, strConnString, strSQL, strProjectName, lastProjectName
  Set objConn = Server.Createobject("ADODB.Connection")
      strConnString = "Provider=SQLOLEDB;" & _
                      "Persist Security Info=FALSE;" & _
                      "User ID=sa;" & _
                      "Password=pb16950;" & _
                      "Initial Catalog=WorkStatistics;" & _
                      "Initial File Name = C:\Programmer\Microsoft SQL Server\MSSQL\DATA\WorkStatistics_Data.mdf;"
      objConn.Open strConnString
  Set objRS = Server.Createobject("ADODB.Recordset")
  strSQL = "SELECT Projekt_navn_VC FROM WorkProjects_T"
  objRS.Open strSQL, objConn, adOpenDynamic, adLockReadOnly, adCmdText
  Response.Write "<SELECT NAME='ProjectName'><OPTION>--SELECT--</OPTION>"
  Do While Not objRS.EOF
      strProjectName = objRS("Projekt_Navn_VC")
      If strProjectName <> lastProjectName Then
        Response.Write "<OPTION VALUE=" & strProjectName & ">" & strProjectName & "</OPTION>"
        lastProjectName = strProjectName
      End If
      objRS.MoveNext
  Loop
  objRS.close
  Set objRS = Nothing
  objConn.close
  Set objConn = Nothing
  Response.Write "</SELECT>"
  Response.Write "<INPUT TYPE='hidden' VALUE='ProjectChosen' NAME='WhatWasChosen'>"
  Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;<INPUT TYPE='Submit' VALUE='Behandel'>"
  Response.Write "</FORM>"
  %>
  </TD>
</TR>
<TR>
  <TD>
  <FORM NAME="Date" ACTION="index.asp" METHOD="POST">
  Vælg Dato:&nbsp;<INPUT TYPE="text" NAME="Date">&nbsp;&nbsp;&nbsp;&nbsp;
  <INPUT TYPE="hidden" NAME="WhatWasChosen" VALUE="DateChosen">
  <INPUT TYPE="submit" VALUE="Behandel">
  </FORM>
  <FORM NAME="ReadingStatistics" ACTION="index.asp" METHOD="POST">
  <INPUT TYPE="hidden" NAME="WhatWasChosen" VALUE="ReadingStatisticsChosen">
  <INPUT TYPE="submit" VALUE="Læse statistik">
  </FORM>
  <FORM NAME="InsertData" ACTION="index.asp" METHOD="POST">
  <INPUT TYPE="hidden" NAME="WhatWasChosen" VALUE="InsertDataChosen">
  <INPUT TYPE="submit" VALUE="Indsæt Data for Dags Dato">
  </FORM><HR>
  </TD>
</TR>

Jeg fandt selv fejlen. Det var fordi jeg havde inkluderet msado15.dll.

det klart.