Rätt Datumformat

I min gästbok vill jag ha med datumet för varje inlägg i formatet: 27/1 -00 14:56.
Sedan ska gästboken visas med det nyaste inlägget först.
Det verkar himla krångligt att få rätt datumformat eftersom servern ligger i USA.
Dessutom visas datumet i formatet 01/27/00 (= fult).
Som det är nu finns ett fält med i databasen som automatiskt visar datumet för inlägget...men då får man inte med tid...
Hur göra?
---> Gästboken

Jag diskuterade det med en gammal klasskamrat i somras. Till slut så kom vi fram till av man är så illa tvungen att installera en komponent för det. Känns fruktansvärt B när man fixar sånt lätt i PHP.

------------------
Daniel Olsson - Teknisk Internetkonsult
<A HREF="http://www.nanne.net" TARGET=_blank>http://www.nanne.net]

/N

</A>

Du får väl parsa om datumet till svensk standard. Inte särskilt svårt med VBScripts strängfunktioner.

/G

Om du vill få med tid i gästboken så kan du använda samma fält som för datum-fältet. Då kommer den troligtvis visa fel tid eftersom servern är i usa. Det fixar man med funktionen DateAdd. Ex:

nyttdatum = DateAdd("h", 6, Now())

Det här lägger till 6 "h" (timmar) till server-datumet.

------------------
/ Torbjörn Hansson

Skulle du kunna förklara lite mer ingående hur DateAdd ska användas?
Får inte till något som fungerar.
Hur ska det t.ex. användas i följande kodexempel?

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

%>
<tr bgcolor="<%=bgcolor%>">
<td><a href="forum.asp?id=<%=RS("id")%>"><font face="Verdana" size="2"><%=RS("namn")%></font></a></td>
<td align="center">
<font face="Verdana" size="2">
<%=RS_count("count_inlagg")%>
</font>
</td>
<td>
<font face="Verdana" size="2">
<%If RS_count("count_inlagg") <> 0 then Response.write RS_senaste("datum")%>
</font>
</td>
</tr>
<%
Set RS_count = Nothing
Set RS_senaste = Nothing
RS.MoveNext
Loop
Set RS = Nothing
%>
</table>