Sub- eller Function-procedure er ikke defineret
Jeg får følgende fejl, når jeg afvikler nedennævnte kode:Fejl:
Sub- eller Function-procedure er ikke defineret
/pm/Opskrifter/ListeAlfabetisk.asp, line 43
Koden:
<!-- #include file="../Administration/subrutiner.asp" -->
<HTML>
<HEAD>
<TITLE>ListeAlfabetisk</TITLE>
<LINK HREF="c:\Inetpub\wwwroot\pm\Stylesheets\Stylesheet.css" REL="stylesheet" TYPE="text/css">
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>
<BODY class="fontnormal">
<!--#include file="Soeg.asp"-->
<p><br>
<%
sbogstavID = request.querystring("bogstavID")
ssearchID = request.querystring("searchID")
sKategori = request.form("kategori")
sSearchID = request.form("searchID")
sFedtfattig = request.form("fedtfattig")
Response.Write sKategori
Response.Write "Kategori <br>"
Response.Write sSearchID
Response.Write "strSearchID <br>"
Response.Write sFedtfattig
Response.Write "Fedtfattig <br>"
Response.Write "<br>"
'Her sættes paging op - altså sideskift
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
if sbogstavID <> "" then
OpenCon
call ChooseTableWhereSort3 ("Opskrift", "overskrift", sbogstavID, "overskrift asc")
end if
if sKategori <> "Alle" and sSearchID like "" and sFedtfattig like "" then
OpenCon
call ChooseTableWhereSort ("Opskrift", "kategori", sKategori, "overskrift asc")
end if
Linie 43 er lig med:
if sKategori <> "Alle" and sSearchID like "" and sFedtfattig like "" then
Der er altså ikken nogen sub- eller Function procedurer?
Jeg vil lige tilføje - fjerner jeg linien kan jeg godt køre følgende kode uden problemer:
if sbogstavID <> "" then
OpenCon
call ChooseTableWhereSort3 ("Opskrift", "overskrift", sbogstavID, "overskrift asc")
end if
Vil I have hvad opencon og ChooseTable.... gør er de her:
DataConnPath = "c:\Inetpub\wwwroot\pm\Administration\mad.mdb"
Dim rs
Dim connectme
Dim sqlstmt
Dim conn
'Åbner forbindelse til databasen
Sub OpenCon
Set Conn = Server.CreateObject("ADODB.Connection")
'connectme = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & DataConnPath & ";"
connectme = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\wwwroot\pm\Administration\mad.mdb"
Conn.open(connectme)
End Sub
og
'Vælger tabel med Where og Like i sorteret rækkefølge
Sub ChooseTableWhereSort(sTable,sWhere,sLike,sSortBy)
set rs=Server.CreateObject("ADODB.recordset")
sqlstmt = "SELECT * FROM " & stable & " Where " & sWhere & " Like '" & sLike & "' order by " & sSortBy
response.write "sqlstmt="&sqlstmt&"<br>"
response.end
rs.open sqlstmt, connectme, adOpenStatic, adLockOptimistic
End Sub
og
'Vælger tabel med Where og Like i sorteret rækkefølge
Sub ChooseTableWhereSort3(sTable,sWhere,sLike,sSortBy)
set rs=Server.CreateObject("ADODB.recordset")
sqlstmt = "SELECT * FROM " & stable & " Where " & sWhere & " Like '" & sLike & "%" & "' order by " & sSortBy
'response.write "sqlstmt="&sqlstmt&"<br>"
'response.end
rs.open sqlstmt, connectme, adOpenStatic, adLockOptimistic
End Sub
og
