CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

gartner76 Nybegynder

28. oktober 1999 - 15:54 Der er 5 kommentarer og
1 løsning

Include filer og End

Hejsa

jeg har et lille problem med nogle funktioner soom skal includes i et dokument.

Funktionerne er teste og de virker fint, men når jeg sætter dem ind i det dokument som de skal bruges i så kommed den med en fejlmeddelelse:

'End' var ventet
getongoingorders.inc linje 14

hvorfor gør den det ?
/gartner76

Synes godt om

villadsen Nybegynder

28. oktober 1999 - 16:04 #1

Kan du ikke komme med noget kode?

Synes godt om

madsnordskov Nybegynder

28. oktober 1999 - 16:12 #2

hvad står der i linje 14 i getongoingorders.inc ???

Synes godt om

redfox Nybegynder

28. oktober 1999 - 16:22 #3

Se på getongoingorders.inc, og tæl alle "If ... Then"...

Tæl så alle "End If"...

Er der lige mange?
Nej vel?

Ellers må du tælle "Select Case ...", og "End Select"...

Synes godt om

ibentz Nybegynder

29. oktober 1999 - 09:39 #4

Hej, jeg sender koden i stedet for Gartner76, der har lidt problemer med at logge på.

GETONGOINGORDERS.INC:

<Script language="VBScript" RUNAT="Server">



function getOngoingOrders(oversaetter)
dim DBConn, RS, Query, dag
dag = lavrigtigtdatoformat(1)
set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\wwwroot\ordresys1\db\scantext.mdb"
Set RS = Server.CreateObject("ADODB.RecordSet")
Query = "SELECT ordrenr FROM Oversaetter OV, Ordrer O, Ordrelinie OL, Udfoeresaf U WHERE (OL.index = O.index) and (OL.linie = U.linie) and (OL.index = U.index) And (U.oversaetter = OV.oversaetter) and (U.termin>=#dag#)"
RS.Open query, dbconn, adOpenDynamic
getOngoingOrders = RS.RecordCount
End function

</script>

NEDLAEGOVERSAETTER.ASP:

<%Option explicit%>
<%response.buffer = true %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>Nedlæg oversætter</title>
</head>


<body>
<link href="Stylesheet/Styles.css" rel="stylesheet" type="text/css" src="stylesheet/styles.css">
<% dim slags, CONTYPE, BrugerN, navn, igang
slags = Request.querystring("TY")
if slags = 1 then
Contype = "Oversætter"
elseif slags = 2 Then
Contype= "Administrator"
Else
Contype="Oversætter&/administrator"
end if
%>

<% navn = HentOversaetter(session("brugernavn"))
BrugerN = Request.Querystring("BR")
session("BRU") = Request.Querystring("BR")
igang = Request.Querystring("antal")
%>

<form action = "ActionNedlaegoversaetterIDb.asp?BR=<%=BrugerN%>" method = post>

<h2>Bekræft nedlæggelse af oversætter</h2><br>
Brugeren, der er valgt til nedlæggelse, er: <b><%=brugerN%> </b>
<br>
<br>
<hr width="584">
<br>
<table cellpadding="4" cellspacing="2" border="1">
<tr><th>Bruger</th><th>Igangværende ordrer</th><th>Gadenavn</th><th>Type</th></tr>
<tr><td><%=request.querystring("OV")%></td><td><%=igang%></td><td><%=request.querystring("GA")%></td><td><%=Contype%></td></tr>
</table>
<P>
<% if igang > 0 then %>
<p>
<p>
<p>
<p>
Brugeren har stadig <b><%=igang %> igangværende</b> ordrer!
<p><P><p><p>
Vil du alligevel nedlægge den valgte oversætter?
<br>
<% else %>
Brugeren har ingen igangværende</b> ordrer!
<p><P><p><p>
<br>

<br><INPUT name="Bekraeftnedlaeggelsecheckbox" style="HEIGHT: 20px; WIDTH: 20px" type=checkbox> Bekræft nedlæggelse af oversætter </P>
<P>
<INPUT name=Nedlaegoversaetter style="HEIGHT: 24px; WIDTH: 202px" type=submit value="Slet oversætter">

</P>
<P> 

</P>
<br>
<br>
<hr width="584">
</form>
</body>
</html>

HENTOVERSAETTER.INC:

<SCRIPT LANGUAGE="VBScript" RUNAT="server">

function HentOversaetter(brugernavn)
dim DBConn, RS, Query
set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\wwwroot\ordresys1\db\scantext.mdb"
Set RS = Server.CreateObject("ADODB.RecordSet")
Query = "select oversaetter from oversaetter where brugernavn = '" & brugernavn & "'"
set RS = DBConn.execute(query)
HentOversaetter = RS("oversaetter")
end function

</script>

Håber det kan hjælpe!

/ibentz

Synes godt om

gartner76 Nybegynder

21. november 1999 - 18:42 #5

Vi har selv løst problemet med det var som redfox sagde, at der manglede et end. Det manglede dog ikke inde i den fil som vi includede men inde i den som vi skrev include taget i.

Synes godt om

gartner76 Nybegynder

21. november 1999 - 18:43 #6

tjaa hvordan kan jeg dele point ud når der ikke er nogen knap til det?

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS