Fejl ved migrering til ASP.NET
Jeg har genoplivet et gammelt stykke kode, der virker på den gamle ASP platform.Der kommer nu følgende fejl:
--------------------------
Compilation Error
Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.
Compiler Error Message: BC30289: Statement cannot appear within a method body. End of method assumed.
Source Error:
Line 2: dim Str_Name, dbname, Str_Rsname
Line 3:
Line 4: sub OpenConnection(DBPath)
Line 5: if DBPath = "" then
Line 6: response.write "Der Opstod en fejl" & "<BR>"
--------------------
Det er linie 4 den ikke vil godtage.
jeg aner ikke hvad den snakker om... method body ?
-------------
dette er jo blot dens egen compilede version, det som den bliver født med har jeg lagt i en include, og den funktion OpenConnection er en del af det her (her kommer det hele)
-------
<%
dim Str_Name, dbname, Str_Rsname
sub OpenConnection(DBPath)
if DBPath = "" then
response.write "Der Opstod en fejl" & "<BR>"
response.write "Procedure : OpenConnection" & "<BR>"
response.write "Argumenter : Str_Name,DB_Name,DBPath" & "<BR>"
response.write "Beskrivelse : Argumentet DBPath var tomt"
response.end
end if
set Str_Name = server.CreateObject("ADODB.Connection")
Str_Name.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath(DBPath) & ";PWD=;UID=" 'Access databasen!
if err.number <> 0 then
response.write "Der Opstod en fejl" & "<BR>"
response.write "Procedure : OpenConnection" & "<BR>"
response.write "Argumenter : Str_Name,DB_Name" & "<BR>"
response.write "Fejlkode : " & err.number & "Beskrivelse : " & err.Description & "<BR>"
response.end
end if
on error goto 0
end sub
sub CloseConnection()
if Str_Name = "" then
response.write "Der opstod en fejl da Proceduren CloseConnection havde ventet et argument"
response.end
end if
Str_Name.Close
set Str_Name = nothing
end sub
sub OpenRecordset(Str_Sql)
if Str_Sql = "" then
response.write "En Fejl opstod" & "<BR>"
response.write "Procedure : OpenRecordset" & "<BR>"
response.write "Argument : Str_Sql" & "<BR>"
response.write "Beskrivelse : Havde ikke Ventet et tomt argument" & "<BR>"
response.end
end if
if Str_Name = "" then
response.write "En Fejl opstod" & "<BR>"
response.write "Procedure : OpenRecordset" & "<BR>"
response.write "Argument : Str_Name" & "<BR>"
response.write "Beskrivelse : Havde ikke ventet et Tomt Argument" & "<BR>"
response.end
end if
set Str_Rsname = Str_Name.Execute(Str_Sql)
'if err.number <> 0 then
' response.write "Der Opstod en fejl" & "<BR>"
' response.write "Procedure : OpenRecordSet" & "<BR>"
' response.write "Argumenter : Str_Rsname, Str_Sql, Str_Name" & "<BR>"
' response.write "Fejlkode: " & err.number & "Beskrivelse: " & err.Description
' on error goto 0
' response.end
'end if
on error goto 0
end sub
Sub CloseRecordset()
Str_RSName.close
set Str_RSName = nothing
end sub
sub ExecuteSql(Str_Sql)
if Str_Sql = "" then
response.write "En fejl opstod" & "<BR>"
response.write "Procedure : ExecuteSql" & "<BR>"
response.write "Argument : Str_Sql" & "<BR>"
response.write "Beskrivelse : Proceduren havde ikke ventet et Tomt Argument" & "<BR>"
response.end
end if
if Str_Name = "" then
response.write "En fejl opstod" & "<BR>"
response.write "Procedure : ExecuteSql" & "<BR>"
response.write "Argument : Str_Name" & "<BR>"
response.write "Beskrivelse : Proceduren havde ikke ventet et Tomt Argument" & "<BR>"
response.end
end if
on error resume next
Str_Name.Execute Str_Sql
if err.number <> 0 then
response.write "Der Opstod en fejl" & "<BR>"
response.write "Procedure : ExecuteSql" & "<BR>"
response.write "Argumenter : Str_Sql, Str_Name" & "<BR>"
response.write "Fejlkode: " & err.number & "Beskrivelse: " & err.Description
on error goto 0
response.end
end if
end sub
%>
