Hej, jeg sender koden i stedet for Gartner76, der har lidt problemer med at logge på.
GETONGOINGORDERS.INC:
<Script language="VBScript" RUNAT="Server">
<!--#Include virtual="common/adovbs.inc"-->
<!--#Include file="lavrigtigtdatoformat.inc"-->
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>
<!--#Include file="functions/HentOversaetter.inc"-->
<!--#Include file="functions/getOngoingOrders.inc"-->
<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
Ny bruger
Nybegynder
Opret
Preview
