<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/opgave.mdb")
If Request.QueryString("ID") = "" Then
Set RecSet = Server.CreateObject("ADODB.Recordset")
Sidan = Request.QueryString("sida")
If Sidan = "" then
sida = 1
Else
sida = Sidan
End If
With RecSet
.CursorLocation = 3
.CacheSize = NyhetPerSida
End With
SQL = "SELECT * FROM opgave Order By id desc"
RecSet.Open SQL, Conn
If RecSet.EOF Then%>
| Ingen opgaver tilbage! |
<%Else
With RecSet
.MoveFirst
.PageSize = NyhetPerSida
.AbsolutePage = sida
End With
Sidor = RecSet.PageCount
x = 0
Do While Not RecSet.EOF And x < RecSet.PageSize%>
 .gif" width="15" height="15" align="absMiddle"> |
"><%If Len(RecSet("opgave")) > 29 Then%><%=Left(RecSet("opgave"),20)%>...<%Else%><%=RecSet("opgave")%><%End If%> |
<%=FormatDateTime(RecSet("datum"),2)%> (<%=FormatDateTime(RecSet("datum"),4)%>) |
<%=RecSet("til")%> |
<%=RecSet("vem")%> |
<%=RecSet("placering")%> |
<%=RecSet("af")%> |
<%If Len(RecSet("info2")) > 20 Then%><%=Left(RecSet("info2"),20)%>...<%Else%><%=RecSet("info2")%><%End If%> |
 .gif" width="15" height="15"> |
<%x=x+1
RecSet.MoveNext
Loop
RecSet.Close
If Sidor > 1 Then%>
|
<%For Sid = 1 To Sidor
If (Int(Sid)) = (Int(sida)) Then%><%=Sid%><%Else%> <%=Sid%> <%End If
Next%>
|
<%End If
End If
End If
If Request.QueryString("ID") <> "" Then
Set RS=Conn.Execute("Select * From opgave Where id=" & Request.QueryString("ID"))%>
<%If RS("bild") <> "" Then%>
 " border="1" width="<%=Width%>"> |
|
<%End If%>
 .gif" width="15" border="0" hspace="5" vspace="4" align="absmiddle" style="filter:alpha(opacity=70); ">
|
<%=RS("opgave")%>
|
 .gif" width="22" border="0" hspace="5" vspace="4" align="absmiddle" style="filter:alpha(opacity=70); ">
|
|
|
|
|
Til: <%=RS("til")%>
| Oprettet: <%=FormatDateTime(RS("datum"),2)%> (<%=FormatDateTime(RS("datum"),4)%>)
| Tilføjet af: <%=RS("af")%>
|
|
|
| Prioritet: |  .gif" width="52" height="14"> |
<%If RS("deadline") <> "" Then%>
| Deadline: | <%=RS("deadline")%> |
<%End If%>
<%If RS("kategori") <> "" Then%>
| Kategori: |
<%If RS("kategori") = "1" Then%> Ingen
<%ElseIf RS("kategori") = "2" Then%> Software Install
<%ElseIf RS("kategori") = "3" Then%> Hardware Install
<%ElseIf RS("kategori") = "4" Then%> Software Problem
<%ElseIf RS("kategori") = "5" Then%> Virus
<%ElseIf RS("kategori") = "6" Then%> Oversigter
<%ElseIf RS("kategori") = "7" Then%> Lager & Oprydning
<%End If%>
|
<%End If%>
<%If RS("placering") <> "" Then%>
| Placering: | <%=RS("placering")%> |
<%End If%>
<%If RS("vem") <> "" Then%>
| Hvem: | <%=RS("vem")%> |
<%End If%>
<%If RS("info2") <> "" Then%>
| Information: | <%=Replace(RS("info2"),vbCrLf,"
")%> |
<%End If%>
|
|
 Besvarninger | |
<%Set RecSet = Conn.Execute("SELECT * FROM besvar WHERE id = 308")%>
| #<%=recset("id")%> | Svar af: <%=RecSet("navn")%> | Oprettet: <%=FormatDateTime(RecSet("dato"),2)%> (<%=FormatDateTime(RecSet("dato"),4)%> ) <%If RecSet("dato_edit") <> "" Then%>| Redigeret: <%=FormatDateTime(RecSet("dato_edit"),2)%> (<%=FormatDateTime(RecSet("dato_edit"),4)%> )<%End If%> |
| Svar: <%=Replace(RecSet("besvar"),vbCrLf,"
")%> |
<%RecSet.Close
Set RecSet = Nothing%>
|
|
|
" title="Ändra">
&title=<%=RS("opgave")%>" title="Besvar">
|
|
<%Set RecSet = Conn.Execute("SELECT * FROM opgave WHERE id="& Request.Querystring("id"))%>
<%RecSet.Close
Set RecSet = Nothing
Function Fixa(str)
Fixa = Replace(Trim(str),"'","''")
End function
If Request.Querystring("action") = "andrat" Then
Status = Fixa(Request.Form("status"))
Conn.execute("Update opgave Set Status='" & Status & "' Where id = "& Request.Querystring("id"))
Response.Redirect "opgave.asp?ID="& Request.Querystring("id")&""
End If%>
|
|
<%End If%>