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.

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

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

------------------

Tallin 98-gänget
Fluffys

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

------------------
essentitia preter non sans multiplicandum

jag får inte det heller att funka :(

------------------

Tallin 98-gänget
Fluffys

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

------------------
Budweiser - Slightly contaminated water... probably harmless, but I would recommend boiling before you drink it...
webEye.nu SweQuake.com

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

------------------

Tallin 98-gänget
Fluffys

[Redigerat av jonfor den 21 apr 2001]

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

%>

------------------
essentitia preter non sans multiplicandum

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... ;)

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

man tackar man tackar LarsG, det funkade!

------------------

Tallin 98-gänget
Fluffys