DateTime format pls

[damipera]

hi can anybody help me here pls. i've got this code and writes date in this format: '01 June 2006'. I want this to be written in this format: 'July 2006', how can i achieve this? thanks

.
.
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>					
function DoDateTime(str, nNamedFormat, nLCID)				
	dim strRet								
	dim nOldLCID								
										
	strRet = str								
	If (nLCID > -1) Then							
		oldLCID = Session.LCID						
	End If									
										
	On Error Resume Next							
										
	If (nLCID > -1) Then							
		Session.LCID = nLCID						
	End If									
										
	If ((nLCID < 0) Or (Session.LCID = nLCID)) Then				
		strRet = FormatDateTime(str, nNamedFormat)			
	End If									
										
	If (nLCID > -1) Then							
		Session.LCID = oldLCID						
	End If									
										
	DoDateTime = strRet							
End Function									
</SCRIPT>
.
.


<%= DoDateTime((rsDatefield.Fields.Item("pub_date").Value), 1, 2057) %>
.
.

 

[snowboardr]

Function fdate(strdate)
if isdate(strdate) then fdate = MonthName(DatePart("m",strdate)) & " " &  DatePart("yyyy",strdate)
End Function

Dim str
str = "01 June 2006"

response.write fdate(str)