asp date to string

asp date2string

CurrentDate = Date()
CurrentTime = Now()
NewDate = DatePart("yyyy", CurrentDate)
NewDate1 = DatePart("m", CurrentDate)
NewDate2 = DatePart("d", CurrentDate)
hh = DatePart("h", CurrentTime)
mm = DatePart("m", CurrentTime)
ss = DatePart("s", CurrentTime)
hh=hh+1
outFile=NewDate&"-"&NewDate1&"-"&NewDate2&"_"&hh&"_"&mm&"_"&ss