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.