Hjälp med Nyhetsscript

Hej,

Jag har två frågor!

Hur gör jag för att Datumformateringen ska vara såhär:

* Månaden skall skrivas ut på Engelska. January, February, Marsh osv…
* Dagen skall skrivas ut med 1 siffra.
* Tiden skall skrivas ut tex 13:45, sedan pm om det är mellan 12.00 - 24.00 eller am om det är mellan 24.00 till 12.00.

Så att det blir följande: Posted by (namn) on (månad) (dag) (år) at (tid) (am/pm)

Och sedan:

Jag vill att de tre första nyheterna skall visas i sin helhet inklusiv bild på förstasidan, Alltså ta bort hela... read more » systemet. Sedan som det är nu med NEWS ARCHIVES 1 2 3 osv längst ner på sidan!

<%
NyhetPerSida = 3
URL                = "default.asp?category=news"
db = Server.MapPath("db/news.mdb")
Width             = "150"
%>

<table cellpadding="2" cellspacing="0" width="500" border="0">
<%Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db

If Request.QueryString("ID") = "" Then

Set RecSet = Server.CreateObject("ADODB.Recordset")
Sidan = Request.QueryString("page")
If Sidan = "" then 
    sida = 1 
Else 
    sida = Sidan 
End If 

With RecSet
    .CursorLocation = 3
    .CacheSize = NyhetPerSida
End With

SQL = "SELECT * FROM news Order By id desc"
RecSet.Open SQL, Conn

If RecSet.EOF Then%>
<tr> 
    <td>Inga nyheter inlagda!</td>
</tr>
<%Else

With RecSet
.MoveFirst 
.PageSize = NyhetPerSida
.AbsolutePage = sida
End With

Sidor = RecSet.PageCount
x = 0 
Do While Not RecSet.EOF And x < RecSet.PageSize%>
<tr> 
    <td bgcolor="#999999"><b><%=RecSet("rubrik")%></b></td>
</tr>
<tr> 
    <td> 
      <%If Len(RecSet("nyhet")) > 200 Then%>
      <%=Left(RecSet("nyhet"),200)%>... 
      <%Else%>
      <%=RecSet("nyhet")%> 
      <%End If%>
    </td>
</tr>
<tr> 
    <td><img src="graphic/pix.gif" width="1" height="1"></td>
</tr>
<tr> 
    <td><b><a href="<%=URL%>&ID=<%=RecSet("ID")%>">read 
      more &raquo;</a></b></td>
</tr>
<tr> 
    <td><img src="graphic/pix.gif" width="1" height="1"></td>
</tr>
<tr> 
    <td><font color="#999999">Posted by <%=RecSet("namn")%> on <%=FormatDateTime(RecSet("datum"),2)%> at <%=FormatDateTime(RecSet("datum"),4)%> pm</font></td>
</tr>
<tr> 
    <td><img src="graphic/pix.gif" width="5" height="5"></td>
</tr>
<%x=x+1 
RecSet.MoveNext
Loop
RecSet.Close
If Sidor > 1 Then%>
<tr> 
    <td valign="top"><b><font color="#999999">NEWS ARCHIVES</font></b></td>
</tr>
<tr> 
    <td valign="top"> <font color="#999999"> 
      <%For Sid = 1 To Sidor
               If (Int(Sid)) = (Int(sida)) Then%>
      <b><%=Sid%></b> 
      <%Else%>
      <a href="<%=URL%>&page=<%=Sid%>"><%=Sid%></a> 
      <%End If
         Next%>
      </font></td>
</tr>
<%End If
End If
End If
If Request.QueryString("ID") <> "" Then
Set RS=Conn.Execute("Select * From news Where id=" & Request.QueryString("ID"))%>
<%End If%>
</table>
<table cellpadding="2" cellspacing="0" width="500" border="0">
<%Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db

If Request.QueryString("ID") = "" Then

Set RecSet = Server.CreateObject("ADODB.Recordset")
Sidan = Request.QueryString("page")
If Sidan = "" then 
    sida = 1 
Else 
    sida = Sidan 
End If 

With RecSet
    .CursorLocation = 3
    .CacheSize = NyhetPerSida
End With

SQL = "SELECT * FROM news Order By id desc"
RecSet.Open SQL, Conn

If RecSet.EOF Then%>
<%Else

With RecSet
.MoveFirst 
.PageSize = NyhetPerSida
.AbsolutePage = sida
End With

Sidor = RecSet.PageCount
x = 0 
Do While Not RecSet.EOF And x < RecSet.PageSize%>
<%x=x+1 
RecSet.MoveNext
Loop
RecSet.Close
If Sidor > 1 Then%>
<%End If
End If
End If
If Request.QueryString("ID") <> "" Then
Set RS=Conn.Execute("Select * From news Where id=" & Request.QueryString("ID"))%>
<tr> 
    <td valign="top" bgcolor="#999999"><font size="2"><b><%=RS("rubrik")%></b></font></td>
</tr>
<tr> 
    <td valign="top"><img src="graphic/pix.gif" width="3" height="3"></td>
</tr>
<tr> 
    <td><img src="<%=RS("bild")%>" order="0" valign=bottom align="left" border="0" hspace="5"> 
      <%=Replace(RS("nyhet"),vbCrLf,"<br>")%> </td>
</tr>
<tr> 
    <td valign="top"><img src="graphic/pix.gif" width="5" height="5"></td>
</tr>
<tr> 
    <td valign="top"><font color="#999999">Posted by <%=RS("namn")%> on <%=FormatDateTime(RS("datum"),2)%> at <%=FormatDateTime(RS("datum"),4)%> pm</font></td>
</tr>
<tr> 
    <td valign="top"><img src="graphic/pix.gif" width="5" height="5"></td>
</tr>
<tr> 
    <td valign="top"><a href="javascript:history.back(1)">&laquo; previous page</a></td>
</tr>
<%End If%>
</table>

Jag vore mkt tacksam om någon kan hjälpa mig med detta!
MVH Erik.