Hejsa
Jeg har lavet noget hvor man kan tilføje nyheder til en acces database
online, men hvis man f.eks. skriver noget d. 9. november, står der 11.
september når man henter nyhederne ud af database igen. Min kode ser således
ud:
gem.asp
--------
<%
Session.LCID = 1030
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
strSQL = "Insert into news (newsDate, newsArticle, newsAuthor, newsTitle)
values('" & Date & "','" & Request.Form("newsArticle") & "','" &
Request.Form("newsAuthor") & "','" & Request.Form("newsTitle") & "')"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
Response.Redirect "/news/"
%>
default.asp
------------
<table width="95%">
<tr>
<th>Dato:</th>
<th>Forfatter:</th>
<th>Nyhed:</th>
<th>Slet:</th>
</tr>
<%
Session.LCID = 1030
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("/includes/cgi-bin/database.mdb")
Conn.Open DSN
strSQL = "Select * From news Order By newsDate desc"
Set rs = Conn.Execute(strSQL)
Do While Not rs.EOF
%>
<tr>
<td><% Response.Write FormatDateTime(rs("newsDate"), 1) %></td>
<td><% Response.Write rs("newsAuthor") %></td>
<td><a href='/news/article.asp?newsID=<% Response.Write rs("newsID")
%>'><% Response.Write rs("newsTitle") %></a></td>
<td style="text-align:center;"><a href='delete.asp?newsID=<%
Response.Write rs("newsID") %>'><img
src="/layout/images/icons/delete_grey.gif" style="border:0;" alt="Slet"
/></a></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
---------------------
Nogle ideer? Jeg har prøvet lidt forskelligt, men kender ikke session.lcid
begrebet godt nok til at kunne rive det så meget rundt, så jeg håber der
nogle derude der kan lure den.