<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Untitled Document
<%
If Request.Cookies("sydostel")("userId") <> "" then
Dim strSQL, objConn, objRS, strStatus, intPageSize, intPage, intTotalPages, intCounter, strUser
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=uppdragNu"
objConn.Open
'Block för loggning av redigering av artiklar
If request.cookies("Task")("articleLog") <> "" then
sArticleLog = request.cookies("Task")("articleLog")
iTaskId = cInt(request.cookies("Task")("taskId"))
sInitials = Request.Cookies("sydostel")("userInitials")
dLogDate = formatDateTime(Now(), 2) & " " & formatDateTime(Now(), 4)
sLogMessage = dLogDate & " Artiklar har redigerats i UppdragNu Intranät /" & sInitials
Set objRS = objConn.Execute("SELECT Log From tblTask Where Id = " & iTaskId & "")
sLog = objRS("Log")
objRS.Close
Set objRS = Nothing
sLog = sLog & vbcrlf & sLogMessage
strSQL = "UPDATE tblTask Set Log = '" & sLog & "' Where Id = " & iTaskId & ""
objConn.Execute strSQL,, 128
response.cookies("Task")("articleLog") = ""
End If
'Block för loggning av redigering av Uppdrag
If request.cookies("Task")("taskLog") <> "" then
sArticleLog = request.cookies("Task")("taskLog")
iTaskId = cInt(request.cookies("Task")("taskId"))
sInitials = Request.Cookies("sydostel")("userInitials")
dLogDate = formatDateTime(Now(), 2) & " " & formatDateTime(Now(), 4)
sLogMessage = dLogDate & " Uppdraget har redigerats i UppdragNu Intranät /" & sInitials
Set objRS = objConn.Execute("SELECT Log From tblTask Where Id = " & iTaskId & "")
sLog = objRS("Log")
objRS.Close
Set objRS = Nothing
sLog = sLog & vbcrlf & sLogMessage
strSQL = "UPDATE tblTask Set Log = '" & sLog & "' Where Id = " & iTaskId & ""
objConn.Execute strSQL,, 128
response.cookies("Task")("taskLog") = ""
End If
'Block för loggning av redigering av tid
If request.cookies("Task")("timeLog") <> "" then
sArticleLog = request.cookies("Task")("timeLog")
iTaskId = cInt(request.cookies("Task")("taskId"))
sInitials = Request.Cookies("sydostel")("userInitials")
dLogDate = formatDateTime(Now(), 2) & " " & formatDateTime(Now(), 4)
sLogMessage = dLogDate & " Tider har redigerats i UppdragNu Intranät /" & sInitials
Set objRS = objConn.Execute("SELECT Log From tblTask Where Id = " & iTaskId & "")
sLog = objRS("Log")
objRS.Close
Set objRS = Nothing
sLog = sLog & vbcrlf & sLogMessage
strSQL = "UPDATE tblTask Set Log = '" & sLog & "' Where Id = " & iTaskId & ""
objConn.Execute strSQL,, 128
response.cookies("Task")("timeLog") = ""
End If
If request("status") <> "" then
strStatus = request("status")
response.cookies("Task")("status") = strStatus
blnStatusFive = true
Else
strStatus = request.cookies("Task")("status")
if strStatus = "" then
strStatus = "0,1,2,3,4"
blnStatusFive = false
end if
End If
If request("user") <> "" then
strUser = request("user")
response.cookies("Task")("taskUser") = strUser
Else
strUser = request.cookies("Task")("taskUser")
if strUser = "" then
strUser = "All"
end if
End If
'============Paging
intPageSize = 20 '## -- byt ut till hur många poster du vill ska visas per sida --
'## -- vilken sida ska visas --
intPage = Request.QueryString("page")
'## -- kontrollera så att inte intPage variabeln är tom --
If intPage = "" Then
intPage = 1 '## -- visa första sidan som default --
End If
%>
<%
mWhere = strUser
strSQL = "SELECT t1.User, t1.customerName, t1.customerNr, t1.taskNr, t1.task, t1.status, t1.Id, t1.CustomT2, t1.CustomT3, " &_
"iif((select count(*) from tbltask t2 where t2.taskNr = t1.taskNr) > 1, 1, 0) as m " &_
"FROM tblTask t1 " &_
"WHERE t1.status in (" & strStatus & ") "
if mWhere <> "All" then strSQL = strSQL & "AND User = '" & strUser & "' "
strSQL = strSQL & "ORDER BY t1.taskNr"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.PageSize = intPageSize
objRS.Open strSQL, objConn, 3, 1
If objRS.EOF then
Response.Write "Det finns inga Uppdrag at visa "
Else
'## -- visa rätt sida i recordsetet --
objRS.AbsolutePage = intPage
'## -- hur många sidor består recordsetet av --
intTotalPages = objRS.PageCount
%>
<%
End If
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Sub PageNavigation(ByVal Page, TotalPages)
Dim strScriptName, N
'## -- denna sidas namn --
strScriptName = Request.ServerVariables("SCRIPT_NAME")
'## -- länk till föregående sida --
'## -- kontrollera att det inte är första sidan som visas --
If CInt(Page) > 1 Then
'## -- inte första sidan som visas så gör en länk --
Response.Write ""
Response.write " "
Else
'## -- det är första sidan som ska visas. gör ingen länk --
' Response.Write "<< Föregående "
End If
'## -- bygg upp själva pagebaren, dvs varje sidnummer ska ha en länk
'## -- så att besökaren snabbt kan ta sig till rätt sida --
For N = 1 To CInt(TotalPages)
If N <> CInt(Page) Then
'## -- ej aktuell sida, länka --
Response.Write "" & N & " "
Else
'## -- aktuell sida, länka ej --
Response.Write "" & N & " "
End If
Next
'## -- länk till nästa sida. om vi står på sista sidan ska den ej vara länkad --
If CInt(Page) < CInt(TotalPages) Then
'## -- vi är inte på sista sidan --
Response.Write ""
Response.Write ""
Else
'## -- vi är på sista sidan. länka ej --
' Response.Write "Next >>"
End If
End Sub
Else
response.write "inte inloggad.... logga in på Intranätet först!"
End If
%>