Skapa funktion eller annat smart

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

hmmm, hur menar du? :)

Mvh
Henrik

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

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 (?)
%>

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