Inserting a space into a string 1

[soulpumpkin]

I have a asp page that is being saved to excel. I'm using the following code:

strDate = Now()
strDate = Replace(strDate, "/", "-")
strDate = Replace(strDate, ":", "")
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename=" & rs3("Description") & " " &  strDate & ".xls"

Which gives me "Description 10-26-2006 112700 AM" for a file name. I need "Description 10-26-2006 1127 00 AM".

How do I go about adding spaces into the end of the string?

Soul Pumpkin

 

[DotNetGnat]

try this:

<%
strDate = Now()
strDate = Replace(strDate, "/", "-")
intpos = instrrev(strDate,":")
strDate = Replace(mid(strdate, 1, intpos),":","") &" " &Replace(mid(strdate, intpos+1),":"," ")
response.write "Description " & strDate
%>

-DNG

 

[soulpumpkin]

That's perfect. Thank you very much.

Soul Pumpkin

 

[DotNetGnat]

no problem...glad to assist...

-DNG