Datum — webForum

grafMedlem sedan aug. 2001174 inlägg

Trådstart25 nov. 2001 10:09#1

Hur gör jag för att det ska bli ett svenskt datum?
Försökte men fick då ett felmeddelande, såhär ser koden ut för hela sidan:

<%

Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db/guestbook.mdb")

SQL = "SELECT * From Guestbook ORDER BY Datum DESC"
Set rs = db.Execute(SQL)

%>

<!--
0========================================================================0

0========================================================================0
//-->

</head>

<body>

<form action="check.asp" method="post">
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100"><b>Användarnamn:</b></td>
<td width="300"><input name="namn" id="input"></td>
</tr>
<tr>
<td width="100"><b>Epost:</b></td>
<td width="300"><input name="eposy" value="@" id="input"></td>
</tr>
<tr>
<td width="100"><b>Hemsida:</b></td>
<td width="300"><input name="hemsida" value="http://" id="input"></td>
</tr>
<tr>
<td width="100"><b>Rubrik:</b></font></td>
<td width="300"><input name="icq" id="input"></td>
</tr>
<tr>
<td width="100" valign="top"><b>Meddelande:</b></td>
<td width="300"><textarea rows="5" cols="40" name="meddelande" id="input"></textarea></td>
</tr>
<tr>
<td colspan="2"> <input type="submit" value="Skicka" id="input"> <input type="reset" value="Rensa" id="input"></td>
</tr>
</table>
</form>

<br><br>
<P>
<img src="hr.gif">
<p>
<table width="400" border="0" cellspacing="0" cellpadding="0">
<%
Do Until rs.EOF
%>
<%
meddelande=Replace(rs("meddelande"),vbCrLf, "<br>")
%>
<tr>
<td width="400"><b>Användarnamn:</b> <%If Not rs("epost")="" Then%><a href="mailto:<%=rs("epost")%>"><%=rs("namn")%></a><%End IF%> (<%=rs("datum")%> )</td>
<br></tr>
<tr><%If Not rs("hemsida")="" Then%>
<td width="400"><b>Hemsida:</b> <a href="<%=rs("hemsida")%>" target="_blank"><%=rs("hemsida")%></a></td>
<%End IF%><br>
</tr>
<tr><%If Not rs("icq")="" Then%>
<td width="400"><b>Rubrik: <%=rs("icq")%></B></td>
<%End IF%>
</tr><br>
<tr>
<td width="400"><%=meddelande%></td>
</tr>
</table>
<p>
<img src="hr.gif">
<p>
<%
rs.MoveNext
Loop
%>

</body>
</html>

iceM2Medlem sedan mars 2001243 inlägg

25 nov. 2001 10:13#2

Ska fungera bra med

<% session.lcid = 1053 %>

hacktheplanetMedlem sedan nov. 2001263 inlägg

25 nov. 2001 10:15#3

<%Session.LCID = 1053%>

<%

Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db/guestbook.mdb")

SQL = "SELECT * From Guestbook ORDER BY Datum DESC"
Set rs = db.Execute(SQL)

%>

<!--
0========================================================================0

0========================================================================0
//-->

</head>

<body>

<form action="check.asp" method="post">
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100"><b>Användarnamn:</b></td>
<td width="300"><input name="namn" id="input"></td>
</tr>
<tr>
<td width="100"><b>Epost:</b></td>
<td width="300"><input name="eposy" value="@" id="input"></td>
</tr>
<tr>
<td width="100"><b>Hemsida:</b></td>
<td width="300"><input name="hemsida" value="http://" id="input"></td>
</tr>
<tr>
<td width="100"><b>Rubrik:</b></font></td>
<td width="300"><input name="icq" id="input"></td>
</tr>
<tr>
<td width="100" valign="top"><b>Meddelande:</b></td>
<td width="300"><textarea rows="5" cols="40" name="meddelande" id="input"></textarea></td>
</tr>
<tr>
<td colspan="2"> <input type="submit" value="Skicka" id="input"> <input type="reset" value="Rensa" id="input"></td>
</tr>
</table>
</form>

<br><br>
<P>
<img src="hr.gif">
<p>
<table width="400" border="0" cellspacing="0" cellpadding="0">
<%
Do Until rs.EOF
%>
<%
meddelande=Replace(rs("meddelande"),vbCrLf, "<br>")
%>
<tr>
<td width="400"><b>Användarnamn:</b> <%If Not rs("epost")="" Then%><a href="mailto:<%=rs("epost")%>"><%=rs("namn")%></a><%End IF%> (<%=rs("datum")%> )</td>
<br></tr>
<tr><%If Not rs("hemsida")="" Then%>
<td width="400"><b>Hemsida:</b> <a href="<%=rs("hemsida")%>" target="_blank"><%=rs("hemsida")%></a></td>
<%End IF%><br>
</tr>
<tr><%If Not rs("icq")="" Then%>
<td width="400"><b>Rubrik: <%=rs("icq")%></B></td>
<%End IF%>
</tr><br>
<tr>
<td width="400"><%=meddelande%></td>
</tr>
</table>
<p>
<img src="hr.gif">
<p>
<%
rs.MoveNext
Loop
%>

</body>
</html>

iceM2Medlem sedan mars 2001243 inlägg

25 nov. 2001 10:17#4

bra Hacketplanet! Jag var lite otydlig. Anledningen till att du förmodligen behöver använda "session.lcid = 1053" är för att du har din sajt på en icke-svensk server? Då behöver man använda denna session för att ställa om till svenskt-tidformat.

[Redigerat av iceM2 den 25 nov 2001]

grafMedlem sedan aug. 2001174 inlägg

25 nov. 2001 10:21#5

Tack så mycket!
Men när jag skriver ett inlägg så syns inte användarnamnet fast att man skriver sitt användarnamn när man skriver inlägget.
Man såg användarnamnet tidigare, men vad är det för fel i koden nu?

iceM2Medlem sedan mars 2001243 inlägg

25 nov. 2001 10:30#6

Du har ju inte infogat användarnamnet i din kod där du visar inläggen...

<tr>
<td width="400"><b>Användarnamn:</b> <%If Not rs("epost")="" Then%><a href="mailto:<%=rs("epost")%>"><%=rs("namn")%></a><%End IF%> (<%=rs("datum")%> )</td>
<br></tr>

Ersätt med ngt i den här stilen

<tr>
<td width="400"><b>Användarnamn: <%=rs("namn")%> </b> <%If Not rs("epost")="" Then%><a href="mailto:<%=rs("epost")%>"><%=rs("namn")%></a><%End IF%> (<%=rs("datum")%> )</td>
<br></tr>

grafMedlem sedan aug. 2001174 inlägg

25 nov. 2001 10:49#7

Jag tackar så hemskt mycket!
Det fungerade!