<%
'// 수요일 구하는 프로그램
SELECT Case Weekday(Now)
Case "1" '// 일요일
tmp = 3
Case "2" '// 월요일
tmp = 2
Case "3" '// 화요일
tmp = 1
Case "4" '// 수요일
tmp = 0
Case "5" '// 목요일
tmp = 6
Case "6" '// 금요일
tmp = 5
Case "7" '// 토요일
tmp = 4
End Select
Response.Write tmp & "<br>"
If tmp = 0 Then '// 수요일이므로 해당사항 없음
newDate = Now()
LastDate = DateAdd("d",2,newDate) '// 금요일 구하기
Else
newDate = DateAdd("d",tmp,Now())
LastDate = DateAdd("d",2,newDate) '// 금요일 구하기
End If
Response.Write NewDate
%>
'// 매주 수요일 구하는 프로그램 따라해 봅시다~