grafMedlem sedan aug. 2001174 inlägg 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
//-->
<html>
<head>
<title>Graf</title>
<link rel="stylesheet" type="text/css" href="style.css">
</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 Ska fungera bra med
<% session.lcid = 1053 %>
------------------
"Ni tre går och bildar en kvadrat" (Rolf Zetterlund under ett träningspass)
<%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
//-->
<html>
<head>
<title>Graf</title>
<link rel="stylesheet" type="text/css" href="style.css">
</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 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 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 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>
------------------
"Ni tre går och bildar en kvadrat" (Rolf Zetterlund under ett träningspass)
[Redigerat av iceM2 den 25 nov 2001]
[Redigerat av iceM2 den 25 nov 2001]
grafMedlem sedan aug. 2001174 inlägg Jag tackar så hemskt mycket!
Det fungerade!
