Fejl i msado15.dll ?

Download den nyeste version af MDAC her:
http://www.microsoft.com/data/download.htm

Jeg kan få fejlen netop fordi afslutningstegnet mangler.

<%
ASP-kode
...
%>
Den sidste %> skal jo være der.

Hvis du skifter mellem ASP og htmlkode kan du sagtens mangle den. !
Eksempel:1
<P>Hans navn er <%=strNavn%>. Han har <%=strAntal børn.</p>
Eksempel:2
<P>Hans navn er <%=strNavn%>. Han har <%=strAntal% > børn.</p>

begge linier vil give fejlen. Det kan være at koden skal gennemgås.

1: Jeg prøver at downloade MDAC 2.7.
2: Jeg mangler ikke nogle slutegn i scriptet.

Hvis du vil have teste scriptet så smid det her. ?

start.asp ser sådan her ud:

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

<html>
<head>
    <title>Untitled</title>
</head>

<body>

<!--Screen Table-->
<TABLE>
<CENTER>
<!--Homepage Table-->
<TABLE WIDTH="760">
</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
  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 WorkStatistics_T"
  objRS.Open strSQL, objConn, adOpenForwardOnly, 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
  objConn.close
  objRS.close
  Set objConn = Nothing
  Set objRS = 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><BR>"
  %>
  </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><BR>
  <FORM NAME="ReadingStatistics" ACTION="index.asp" METHOD="POST">
  <INPUT TYPE="hidden" NAME="WhatWasChosen" VALUE="ReadingStatisticsChosen">
  <INPUT TYPE="submit" VALUE="Læse statistik">
  </FORM><BR>
  <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><BR><HR>
  </TD>
</TR>


index.asp ser sådan her ud:


<!-- #INCLUDE FILE="start.asp" -->
<TR>
  <TD>
  <TABLE>
  <%
  Dim ProjectName
  Dim WorkHoursTotal, NumberOfDays, ReadPagesTotal, AverageRead, AverageWorkhours
  If Request.Form("WhatWasChosen") = "ProjectChosen" Then
      ProjectName = Request.Form("ProjectName")
      Set objConn = Server.Createobject("ADODB.Connection")
      strConnString = "Provider=SQLOLEDB;" & _
                      "Persist Security Info=FALSE;" & _
                      "User ID=sa;" & _
                      "Password=pb16950;" & _
                      "Initial Catalog=AAOSiteDB;" & _
                      "Initial File Name = C:\Programmer\Microsoft SQL Server\MSSQL\DATA\WorkStatistics_Data.mdf;"
      objConn.Open strConnString
      strSQL = "SELECT Dags_Dato_DT, Arbejdtimer_IN, Læste_Sider_IN, Læse_Projekt_BT" & _
              "FROM WorkStatistics_T WHERE Projekt_Navn_VC = " & ProjectName & _
              "ORDER BY Dags_Dato_DT DESC"
      objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, AdCmdText
      If objRS("Læse_Projekt_BT") = 1 Then
        'Projektet er et læse projekt
        objRS.MoveFirst
        StartDate = objRS("Dags_Dato_DT")
        objRS.MoveLast
        EndDate = objRS("Dags_Dato_DT")
        objRS.MoveFirst
        NumberOfDays = 0
        WorkHoursTotal = 0
        ReadPagesTotal = 0
        Do While Not objRS.EOF
            NumberOfDays = NumberOfDays + 1
            WorkHoursTotal = WorkHoursTotal + objRS("Arbejdstimer_IN")
            ReadPagesTotal = ReadPagesTotal + objRS("Læste_Sider_IN")
            objRS.MoveNext
        Loop
        AverageRead = ReadPagesTotal / NumberOfDays
        AverageWorkhours = WorkHoursTotal / NumberOfDays
        Response.Write objRS("Projekt_Navn_VC") & " blev læst fra d. " & StartDate
        Response.Write "til d. " & EndDate & ", med et gennemsnit på " & AverageRead
        Response.Write " læste sider pr. dag, og et gennemsnitligt antal arbejdstimer på "
        Response.Write AverageWorkhours & " timer pr. dag."
      Else 'Projektet er ikke et læseprojekt
        objRS.MoveFirst
        StartDate = objRS("Dags_Dato_DT")
        objRS.MoveLast
        EndDate = objRS("Dags_Dato_DT")
        objRS.MoveFirst
        NumberOfDays = 0
        WorkHoursTotal = 0
        Do While Not objRS.EOF
            NumberOfDays = NumberOfDays + 1
            WorkHoursTotal = WorkHoursTotal + objRS("Arbejdstimer_IN")
            objRS.MoveNext
        Loop
        AverageWorkhours = WorkHoursTotal / NumberOfDays
        Response.Write ProjectName & " blev foretaget fra d. " & StartDate & " til d."
        Response.Write EndDate & ", med et gennemsnitligt antal arbejdstimer på i alt "
        Response.Write AverageWorkhours & " timer pr. dag, og et antal arbejdstimer "
        Response.Write "på i alt " & WorkHoursTotal & " timer."
      End If
  objConn.close
  Set objConn = Nothing
  objRS.close
  Set objRS = Nothing
  End If
 
  If Request.Form("WhatWasChosen") = "DateChosen" Then
      Set objConn = Server.Createobject("ADODB.Connection")
      strConnString = "Provider=SQLOLEDB;" & _
                      "Persist Security Info=FALSE;" & _
                      "User ID=sa;" & _
                      "Password=pb16950;" & _
                      "Initial Catalog=AAOSiteDB;" & _
                      "Initial File Name = C:\Programmer\Microsoft SQL Server\MSSQL\DATA\WorkStatistics_Data.mdf;"
      objConn.Open strConnString
      strSQL = "SELECT * FROM WorkStatistics_T WHERE Dags_Dato_DT = '" & Request.Form("Date") & "'"
      Set objRS = Server.Createobject("ADODB.Recordset")
      objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText
  %>
  </TABLE>
  </TD>
</TR>
<!-- #INCLUDE FILE="end.asp" --> 


end.asp ser sådan her ud:


<!--Homepage Table-->
</TABLE>
<!--Screen Table-->
</TABLE>
</body>
</html>

Det hjalp da jeg fik den nye version af MDAC.
Tak skal du have Scultze.