---
title: "Skapa funktion eller annat smart"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/142695-skapa-funktion-eller-annat-smart"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "devotion"
published: "2006-02-19T12:17:28.000Z"
updated: "2006-03-11T12:02:22.000Z"
replies: 5
views: 390
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/142695-skapa-funktion-eller-annat-smart"
---

# Skapa funktion eller annat smart

## #1 — devotion, 2006-02-19T12:17Z

Hej
Jag har följande kod för att logga data:

```
	'Block för loggning av redigering av artiklar
	If request.cookies("Task")("articleLog") <> "" then
		sArticleLog = request.cookies("Task")("articleLog")
		sLogMessage = dLogDate & "	Artiklar har redigerats i UppdragNu Intranät	/" & sInitials
		
		sSQL = "UPDATE tblTask Set Log = Log & '" & vbCrLf & sLogMessage & "' Where Id = " & iTaskId
		objConn.Execute sSQL,, 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")
		sLogMessage = dLogDate & "	Uppdraget har redigerats i UppdragNu Intranät	/" & sInitials
		
		sSQL = "UPDATE tblTask Set Log = Log & '" & vbCrLf & sLogMessage & "' Where Id = " & iTaskId
		objConn.Execute sSQL,, 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")
		sLogMessage = dLogDate & "	Tider har redigerats i UppdragNu Intranät	/" & sInitials
		
		sSQL = "UPDATE tblTask Set Log = Log & '" & vbCrLf & sLogMessage & "' Where Id = " & iTaskId
		objConn.Execute sSQL,, 128
		
		response.cookies("Task")("timeLog") = ""
	End If
```

Det fungerar finfint, men jag tycker det är mycket upprepningar... Kan man göra någon typ av funktion för detta... eller förkorta ner på något listigt sätt..??

Mvh
Henrik

Permalänk: https://www.webforum.nu/p/142695

## #2 — emission, 2006-02-19T15:17Z

Sätt ihop hela sLogMessage i if-satserna och gör bara en UPDATE

Permalänk: https://www.webforum.nu/p/1769677

## #3 — devotion, 2006-02-19T18:51Z

hmmm, hur menar du? :) 

Mvh
Henrik

Permalänk: https://www.webforum.nu/p/1769714

## #4 — emission, 2006-02-19T19:30Z

Jo, jag menar att du kan sätta ihop hela logg-strängen, innan du stoppar in den i databasen.

Permalänk: https://www.webforum.nu/p/1769728

## #5 — Denkan, 2006-02-20T10:20Z

d.v.s. något i stil med....

```
Private Sub writeLog()
Dim sLogMessage : sLogMessage = ""

	'Block för loggning av redigering av artiklar
	If request.cookies("Task")("articleLog") <> "" then
		sArticleLog = request.cookies("Task")("articleLog")
		sLogMessage = sLogMessage & dLogDate & "	Artiklar har redigerats i UppdragNu Intranät	/" & sInitials		
		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")
		sLogMessage = sLogMessage & dLogDate & "	Uppdraget har redigerats i UppdragNu Intranät	/" & sInitials
		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")
		sLogMessage = sLogMessage & dLogDate & "	Tider har redigerats i UppdragNu Intranät	/" & sInitials
		response.cookies("Task")("timeLog") = ""
	End If

	' Uppdatera loggen
	sSQL = "UPDATE tblTask Set Log = Log & '" & vbCrLf & sLogMessage & "' Where Id = " & iTaskId
	objConn.Execute sSQL,, 128
End Sub
```

// EDIT:
Användning:

```
<%
' Innehåll (?)

Call writeLog ' Skriv logg

' Mer innehåll (?)
%>
```

Permalänk: https://www.webforum.nu/p/1769837

## #6 — devotion, 2006-03-11T12:02Z

Hej!

Oj, här ställer man en fråga och så återkommer man inte....  Något jag själv tycker illa om... Sorry!  :r  

Jag ska kolla upp din lösning Denkan!

Mvh
Henrik

Permalänk: https://www.webforum.nu/p/1779288

---

Tråden på webben: https://www.webforum.nu/amne/asp/142695-skapa-funktion-eller-annat-smart