Med regexp går det mesta. Du får labba lite med detta.
<%
myString = "Vide försöker 2004-02-03 12:30:05 sig på att förklara Regular expressions. Mönster kommer Vide att prata mycket om. 2005-01-02 18:30:00"
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "(\d{4})\-(\d{2})\-(\d{2})\s(\d{1,2}):(\d{2}):(\d{2})"
replacestring = objRegExp.Replace(myString, "")
Response.Write "<b>Orginalsträng:</b> "& myString &"<br><b>Nya strängen:</b> "& replacestring
%>