Convert vb.net to asp Classic

[nitt]

I have the following VB Code:\[code\] Dim value As Date = Date.Now Dim intHour As Integer Dim intMinute As Integer Dim intSecond As Integer intHour = 17 intMinute = 0 intSecond = 0 Dim newdatetime As DateTime = New Date(value.Year, value.Month, value.Day, intHour, intMinute, intSecond) If DateTime.Now < newdatetime Then If value.DayOfWeek = DayOfWeek.Saturday Then value = http://stackoverflow.com/questions/13826410/value.AddDays(2) Return value End If If value.DayOfWeek = DayOfWeek.Sunday Then value = value.AddDays(1) Return value End If Return value ElseIf DateTime.Now > newdatetime Then Do value = value.AddDays(1) Loop While (value.DayOfWeek = DayOfWeek.Saturday) Or (value.DayOfWeek = DayOfWeek.Sunday) Return value End If\[/code\]How would that be in ASP CLassic?Can someone help ? EDIT: \[code\] Dim CurrentDateCurrentDate = Date()Dim intHourDim intMinuteDim intSecondintHour = 17intMinute = 0intSecond = 0Dim NewDateDim NewDate1Dim NewDate2NewDate = DatePart("yyyy", CurrentDate)NewDate1 = DatePart("m", CurrentDate)NewDate2 = DatePart("d", CurrentDate)Dim Dates Dates = DateSerial(NewDate, NewDate1, NewDate2)Dim Time Time = TimeSerial(intHour, intMonth, intSecond)\[/code\]