fel tid

du kan prova att använda följande:

session.lcid=1053

förutsätter dock att datumen du skriver ut verkligen är av subtypen datum.

det funkade inte.. finns det något annat sätt

session.lcid påverkar väl bara utskriftsformat.
Du får nog själv ta reda på tidskillnaden och lägga till rätt antal timmar med hjälp av funktionen dateadd.

'tex
tid = dateadd("h",6,now())

jag får inte det heller att funka

Visa koden runt det där du formaterar...

<%
tid = dateadd("h",6,now())

if NOT Request.Form("text") = "" Then
' Innehållet är godkänt för inmatning i databas.
	

	manad = datepart("m",now)
	IF Len(manad) = 1 THEN
	manad = "0" & manad
	end if
	
	dag = datepart("d",now)
	IF Len(dag) = 1 THEN
	dag = "0" & dag
	end if
	
	timme = datepart("h",now)
	IF Len(timme) = 1 THEN
	timme = "0" & timme
	end if
	
	minut = minute(now)
	IF Len(minut) = 1 THEN
	minut = "0" & minut
	end if
	
	sekund = datepart("s",now)
	IF Len(sekund) = 1 THEN
	sekund = "0" & sekund
	end if
	
	klocka = timme & ":" & minut & ":" & sekund
	
	Justnu = "<span>" & ar & "-" & manad & "-" & dag & " " & klocka & "</span>"	

Set fs = CreateObject("Scripting.FileSystemObject")
	Set ts = fs.OpenTextFile(Server.MapPath("dagbok.txt"), 1)
	s = ts.ReadAll
	ts.Close
	Set a = fs.CreateTextFile(Server.MapPath("dagbok.txt"), True, false)
	a.Write justnu & vbCrlf & Request("text") & vbCrlf & vbCrlf & s
	a.Close

%>

hjälper det?

Om du använder variabeln tid i beräkningarna i stället för now så

<%
tid = dateadd("h",6,now())

if NOT Request.Form("text") = "" Then
' Innehållet är godkänt för inmatning i databas.

manad = datepart("m",tid)
IF Len(manad) = 1 THEN
manad = "0" & manad
end if

dag = datepart("d",tid)
IF Len(dag) = 1 THEN
dag = "0" & dag
end if

timme = datepart("h",tid)
IF Len(timme) = 1 THEN
timme = "0" & timme
end if

minut = minute(tid)
IF Len(minut) = 1 THEN
minut = "0" & minut
end if

sekund = datepart("s",tid)
IF Len(sekund) = 1 THEN
sekund = "0" & sekund
end if

klocka = timme & ":" & minut & ":" & sekund

Justnu = "<span>" & ar & "-" & manad & "-" & dag & " " & klocka & "</span>" 

Set fs = CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile(Server.MapPath("dagbok.txt"), 1)
s = ts.ReadAll
ts.Close
Set a = fs.CreateTextFile(Server.MapPath("dagbok.txt"), True, false)
a.Write justnu & vbCrlf & Request("text") & vbCrlf & vbCrlf & s
a.Close

%>

session.lcid påverkar väl bara utskriftsformat.

helt klart!

det verkar som att jag inte riktigt använde alla ögonen till läsa med...

man tackar man tackar LarsG, det funkade!