help me ,很简单的字符型转换成日期型问题

我在文本框中输入一个字符串，比如：2003/01/01或者2003-01-02，我想把它提交到数据库中，但提交不进去，请问怎么把它转换成日期型，最好把程序加在下面程序中。
下面的就是保存程序，T4是上一form中的文本框名。谢谢<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit %>
<!--#include file="conn.asp"-->
<%
dim c1,D1,D2,D3,D4,T2,   c2,c3,T3,T4
c1=trim(Request("C1"))
D1=trim(Request("D1"))
D2=trim(Request("D2"))
D3=trim(Request("D3"))
D4=trim(Request("D4"))
T2=trim(Request("T2"))c2=trim(Request("C2"))
c3=trim(Request("C3"))
T3=trim(Request("T3"))
T4=trim(Request("T4"))dim rs2,sql2
set rs2=Server.CreateObject("Adodb.Recordset")
sql2="select * from rs_gzbm where C1='"&c1&"'"
rs2.open sql2,conn,1,3
rs2("C1")=c1
rs2("C3")=D1
rs2("C4")=D2
rs2("C5")=D3
rs2("C6")=T2
rs2("C7")=D4
rs2.Update
rs2.close
set rs2=nothingdim rs,sql
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from rs_grjl where (C1 is null)"
rs.open sql,conn,1,3
rs.addnew
rs("C1")=c1
rs("C2")=c2
rs("C3")=c3
rs("C6")=T3
rs("C7")=T4
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing%>
<script language="javascript">
window.alert("数据保存成功，ok！")
history.back()
</script>