Svensk tid med brinkster

ASP

5 svar · 365 visningar · startad av JannesBoy 6 apr. 2003

JannesBoyMedlem sedan mars 200324 inlägg

Frågan6 apr. 2003 16:47#1

Någon som vet hur man får svensk tid när man har brinkster?

now()

Då får man ju tiden som e på servern... O det är ju typ amerikansk där...

Hur får man den till svensk tid istället? Observera att jag vill ha klockslag också och inte bara datum. :q

StevePMedlem sedan mars 2003772 inlägg

6 apr. 2003 16:53#2

Test med

Session.LCID = 1053

eller

SetLocale 1053

@ndersMedlem sedan juni 200032 967 inlägg

6 apr. 2003 16:57#3

Jag antar att det är några timmar skillnad i tid också?

<%
Session.LCID = 1053

Function GetTime(currentTime)
     GetTime = DateAdd ("h", 6, currentTime)
End function

Response.write GetTime(now())

Mvh

plelkesMedlem sedan mars 2002823 inlägg

16 apr. 2003 08:18#4

@nders, jag använder också brinkster, och när jag försökte följa ditt exempel:

<html>
<head>
<title>g&amp;auml;stbok</title>
<meta http-equiv=Content-Type content=text/html; charset=iso-8859-1>

</head>

<p align=center><font size=7><b><i><font color=#FFCC33>V&auml;lkommen till 
  skolans g&auml;stbok</font></i></b></font></p>
 
<%  dim minCon 'Connection
     dim rsGbok 'recordsetten f&ouml;r nya inl&auml;gg
     dim strSQL

dim indag, dat
Session.LCID = 1053 

Set minCon = Server.CreateObject("ADODB.Connection")
set rsGbok = Server.CreateObject("ADODB.Recordset")

minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb")
strSQL =" SELECT * FROM guestbook ORDER by ID DESC"
rsGbok.Open strSQL, minCon, 3, 3
Do While Not rsGbok.EOF
indag = Cdate(rsGbok("Datum"))
Function SvTid(indag)
      SvTid = DateAdd ("h", 6, indag)

dat = WeekDayName(WeekDay(indag))&"en "& FormatDateTime(indag, 1) &" kl " & FormatDateTime(SvTid, vbshorttime)
Response.Write "<P>" & dat & " skrevs följande:</P>"
Response.Write "<P><B><FONT SIZE=""4""><I>" & rsGbok("Message") & "</I></FONT></B></P><BR><B><U>"
Response.Write "      av:"
Response.Write "</U></B>   " & rsGbok("Namn")
Response.Write "<BR><A HREF=""rsGbok('Epost')"">Skicka insändaren E-post:  </A>"
Response.Write "<P></P><P></P><HR></HR>"

  rsGbok.MoveNext

  Loop

End function

  rsGbok.Close
  Set rsGbok = Nothing
  minCon.Close
  Set minCon = Nothing
  %>
</body>
</html>

Så får jag felmeddelandet

Microsoft VBScript compilation error '800a03ea'

Syntax error

/plelkes/gastboken.asp, line 27

Function SvTid(indag)
^

plelkesMedlem sedan mars 2002823 inlägg

16 apr. 2003 08:52#5

Jag löste problemet med följande kodsnutt

Do While Not rsGbok.EOF
indag = Cdate(rsGbok("Datum"))
vdag = DateAdd("h",6,indag)
dat = WeekDayName(WeekDay(vdag))&"en "& FormatDateTime(vdag, 1) &" kl " & FormatDateTime(vdag,4)

fast klart, undrar fortfarande varför jag fick syntaxerror på function

LarsGMedlem sedan dec. 200012 464 inlägg

16 apr. 2003 09:25#6

Det beror på att function låg inuti din do while. Funktioner skall ligga särskilda från annan kod.