<%
        Dim DB_DSN, DB_UID, DB_PWD
        DB_DSN = ""
        DB_UID = ""
        DB_PWD = ""

        set DbCon=Server.CreateObject("ADODB.Connection")
        DbCon.Open DB_DSN, DB_UID, DB_PWD

        Set Rs = Server.CreateObject("ADODB.Recordset")

        check_sw = trim(request("c_sw"))
        s_dat = trim(request("s_day"))
        v_dat = now()
        v_yer = mid(v_dat,1,4)
        v_mon = CInt(mid(v_dat,6,2))
        v_day = CInt(mid(v_dat,9,2))
        
        if  s_dat = "" or s_dat = " " then
                if  trim(request("f1_year")) = "" or trim(request("f1_year")) = " " then
                        check_sw = "1"
                        t_dat = Now()
                        s_dat = mid(t_dat,6,2) & mid(t_dat,9,2)
                else
                        if  CInt(Request("f1_mon")) < 10 then
                                mon = "0" & trim(Request("f1_mon"))
                        else
                                mon = trim(Request("f1_mon"))
                        end if
                        if  CInt(Request("f1_day")) < 10 then
                                dat = "0" & trim(Request("f1_day"))
                        else
                                dat = trim(Request("f1_day"))
                        end if
                        s_dat = mon & dat
                        check_sw = 2
                end if
        end if

        strSQL= " select * from aaa where a_day = " & s_dat
        Rs.open strSQL,DbCon,1,1

        %>

이 부분을 php로 변환하고 싶은데 php 초보로 감당하기 조금 어렵네요...
이래저래 수정을 해보았으나 실패...
고수님들의 조언을 부탁 드립니다...