Jag kan inte få detta med svensk tid att fungera. Har ett forum på en hemsida. Det anges amerikansk tid (tror jag) för varje inlägg fast jag vill att den svenska tiden ska läggas in.
Har med detta längst upp i filen:
Session.LCID = 1053
Hur menar du med svensk tid?
LCID anger bara vilket format datum/tid skall visas i, om klockan är inställd på tex 6 timmar tidigare så måste du öka 6 timmar i koden.
------------------
MvH
/Bengan www.bengan.com
"Your mouse has moved. Windows will now restart to accept the changes."
Var ska jag stoppa in det och hur ska jag använda det i följande kod?
<table width=600 border=0 marginwidth=0 marginheight=0 cellspacing=0 cellpadding=0>
<tr>
<td colspan=3>
<font face="Verdana" size="4" color="#0000AA">
Välkommen till <b>Forum</b> <!a href=admin.asp></font>
</td>
</tr>
<tr>
<td colspan=3><font face="Verdana" size="2">Välj bland nedanstående
diskussioner</font>.<br>
<font face="Verdana" size="1">
Tryck på + bredvid inläggen för att få fram alla trådar.
</font>
<hr>
\</td\>
</tr>
<tr>
<td><b><font face="Verdana" size="2">Forum</font></b></td>
<td align="center"><b><font face="Verdana" size="2">Antal inlägg</font></b></td>
<td><b><font face="Verdana" size="2">Senaste inlägg </font></b><font face="Verdana" size="1"><i>(am.
tid, lägg till 6h)</i></font></td>
</tr>
<%
SQL = "select * from forum order by namn"
Set RS = Databas.Execute(SQL)
Do While NOT RS.EOF
SQL = "select count(\*) AS Count_inlagg from inlagg where forum_id = " & RS("id")
Set RS_count = Databas.Execute(SQL)
If RS_count("count_inlagg") \<\> 0 then
SQL = "select datum from inlagg where forum_id = " & RS("id")
SQL = SQL & " order by datum desc"
Set RS_senaste = Databas.Execute(SQL)
End if
color = color+1
If color mod 2 = 0 then
bgcolor=RS_format("bgcolor")
Else
bgcolor=RS_format("bgcolor2")
End If