再问一个date的问题

Question

Set cn=Server.CreateObject("ADODB.Connection")
cn.Open Session("database_connection")
Set Rs=Server.CreateObject("ADODB.RECORDSET")
        sql ="select employeeid,to_char(dd4,'yyyy-mm-dd') from K_Employee2 "
Rs.CursorLocation = 3
RS.Open SQL,cn,1,3
  while not rs.eof
  response.write rs("employeeid")
  'response.write rs("dd4")
  rs.movenext
  wend
cn.close
set cn=nothing
我选择数据的时候必须加上TO_CHAR（）函数，如果比÷不加就出错，但这样选择出来之后用RESPONSE.WRITE RS("DD4") 也出错
请penitent(只取一瓢)解决一下好吗

Answer 1

to shsandbeah(一阵风过) 你这样写是错的sql ="select employeeid,to_char(dd4,'yyyy-mm-dd') d4 from K_Employee2 "
..............
while not rs.eof
  response.write rs("employeeid")
  response.write rs("d4")
  rs.movenext
  wendrs.close()                       --------记得要关记录集
set rs.activeconnection=nothing   
cn.close()
set cn.activeconnection=nothing

Answer 2

再看以下例子:<%
v_rtno=request("rtno")
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "SELECT a.*,to_char(bgtime,'yyyy') bgYear,to_char(bgtime,'mm') bgMonth,to_char(bgtime,'dd') bgDay,"&_
            "to_char(bgtime,'hh24') bghour,to_char(bgtime,'mi') bgminute,to_char(bgtime,'ss') bgsecond,"&_
"to_char(edtime,'yyyy') edyear,to_char(edtime,'mm') edMonth,to_char(edtime,'dd') edDay,"&_
"to_char(edtime,'hh24') edhour,to_char(edtime,'mi') edminute,to_char(edtime,'ss') edsecond FROM timecard.rest a where rtno='"&v_rtno&"'"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()
v_employeeno=rs("employeeno")
v_holid=rs("holid")
v_holcause=rs("holcause")
bgYear=rs("bgYear")
bgMonth=rs("bgMonth")
bgDay=rs("bgDay")
bghour=rs("bghour")
bgminute=rs("bgminute")
bgsecond=rs("bgsecond")
edyear=rs("edyear")
edMonth=rs("edMonth")
edDay=rs("edDay")
edhour=rs("edhour")
edminute=rs("edminute")
edsecond=rs("edsecond")
%>