webForumDet fria alternativet

Formattering av datum? (Access db)

4 svar · 199 visningar · startad av kilpin

kilpinMedlem sedan apr. 200084 inlägg
#1

Hej,
jag har ett litet men säkert enkelt problem. Jag presenterar nyheter på min sida som hämtas ur en databas. Överst visas datumet för nyheten och detta läggs in automatiskt i databasen. Saken är dock den att när datumet visas så är det formatterat efter amerikansk stil, dvs: 1/29/2003 om nyheten är inlagd den 29 januari 2003. Kan man ändra på detta och hur?

Jag tror inte att detta spelar någon roll men jag bifogar en kodsnutt:

<%	Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas.mdb")) %>

<% Set RecSet = Server.CreateObject("ADODB.Recordset")%>
<% Visanews = "SELECT * FROM nyheter ORDER BY ID DESC"
	RecSet.Open Visanews, Connect, adOpenStatic, adLockOptimistic
%>

<%
	Dim antal
	antal = 0

	Do While antal < 15
	If RecSet.EOF Then Exit Do
	     %> 

<% Response.Write hyperlank(RecSet("datum")) %><br>
<% Response.Write hyperlank(RecSet("rubrik")) %>

Anledningen till att jag använder hyperlank(RecSet("xxx")) är att jag använder automatiskt formattering av länkar, mailadresser etc. Ett script som jag hittat här någonstans om jag inte minns fel. Här är det:

<%

Function hyperlank(strText)

strText = Server.HTMLEncode(strText)
strText = Replace(strText,VbCrLf,VbCrLf&" <br> ") 
HyperArray = Split(strText)
For Each ord in HyperArray
if Len(ord) > 7 then
if Lcase(left(ord,7)) = "http://" then
strText2=strText2 & "<a href='"&ord&"' target='_blank'>"&ord&"</a> "
elseif InStr(ord,"@")>1 then
strText2=strText2 & "<a href='mailto:"&ord&"'>"&ord&"</a> "
else
strText2=strText2&ord&" "
end if
else
strText2=strText2&ord&" "
end if
next
hyperlank = strText2

end function

text = Request.Form("text")

Response.Write hyperlank(text)
%>

Kan det ha med saken att göra?
Ursäkta det långa inlägget för en sådan trivial fråga.

NickemannenMedlem sedan aug. 20003 575 inlägg
#2

Sök på Session.LCID

@ndersMedlem sedan juni 200032 969 inlägg
#3

Måste du köra funktionen hyperlank() på datumet? Det känns onödigt.

För att få svensk presentation av datum och tid använder du Session.LCID på din sida (eller rättare sagt, på sessionen.)

Session.LCID = 1053

Du måste också se till att göra en subtypskonvertering så dina datum verkligen är av datumtyp.

Response.write CDate(RecSet("datum"))

Mvh,

kilpinMedlem sedan apr. 200084 inlägg
#4

Helt riktigt att jag inte behöver använda hyperlank() på datumet. Det gjorde jag nog i ren sinnesförvirring.

Tack också för svaren, jag skall söka och kolla på det snart. Först ska jag äta pytt i panna!

kilpinMedlem sedan apr. 200084 inlägg
#5

Lite senare samma kväll:
upplysningsvis kan jag meddela att det räckte med att ta bort hyperlank(). Dvs jag körde ett vanligt <%=RecSet("datum")%> föratt få det att se bra ut.

130 ms totalt · 3 externa anrop · v20260731065814-full.fb544a5a
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
126 ms — hämta tråd, inlägg och bilagor (db)