convert data type varchar to money

Hi all, can anyone here advise me how to do the conversion of data type varchar to money... here's my coding for your references:

<%
vreqType = Request("vreqType")
vReqtrEmail = Request("vReqtrEmail")
'vReqNo = Request("ReqNo")
vAppnId = Request("vAppnId")
vreqTitle = replace(trim(Request("vreqTitle")),"'","''")
vDesiredDt = month(Request("vDesiredDt")) & "/" & day(Request("vDesiredDt")) & "/" & year(Request("vDesiredDt"))
vReqtr = replace(trim(Request("vReqtr")),"'","''")
'date = Request("date()")
vContactNo = Request("vContactNo")
vDept = replace(trim(Request("vDept")),"'","''")
vRC = Request("vRC")
vPriority = Request("vPriority")
vfuncReq = server.URLencode(trim(Request("vfuncReq")))
vFreqVol = server.URLencode(trim(Request("vFreqVol")))
vSavings = Request("vSavings")
vRevenue = Request("vRevenue")
vBenefit = server.URLencode(trim(Request("vBenefit")))
vTester = replace(trim(Request("vTester")),"'","''")
vTesterContact = Request("vTesterContact")
vApprovOfficer = replace(trim(Request("vApprovOfficer")),"'","''")
vApprovEmail = Request("vApprovEmail")
vStatus = Request("vStatus")
%>

<%
sql="INSERT INTO Requests (ReqNo,ReqType,AppnId,reqTitle,ReqDt,DesiredDt,Req
tr,ReqtrEmail,ContactNo,Dept,RC,Priority,funcReq,F
reqVol,Savings,Revenue,Benefit,Tester,TesterContac
t,ApprovOfficer,ApprovEmail,ReqStatus)"
sql=sql & " VALUES "
sql=sql & "('" & ReqNo & "',"
sql=sql & "'" & vreqType & "',"
sql=sql & "'" & vAppnId & "',"
sql=sql & "'" & vreqTitle & "',"
sql=sql & "'" & (ReqDt) & "',"
sql=sql & "'" & cdate(vDesiredDt) & "',"
sql=sql & "'" & vReqtr & "',"
sql=sql & "'" & vReqtrEmail & "',"
sql=sql & "'" & vContactNo & "',"
sql=sql & "'" & vDept & "',"
sql=sql & "'" & vRC & "',"
sql=sql & "'" & vPriority & "',"
sql=sql & "'" & vfuncReq & "',"
sql=sql & "'" & vFreqVol & "',"
sql=sql & "'" & ccur(vSavings) & "',"
sql=sql & "'" & ccur(vRevenue) & "',"
sql=sql & "'" & vBenefit & "',"
sql=sql & "'" & vTester & "',"
sql=sql & "'" & vTesterContact & "',"
sql=sql & "'" & vApprovOfficer & "',"
sql=sql & "'" & vApprovEmail & "',"
sql=sql & "'" & vStatus & "')"

MSCS.execute(sql)
%>

can anyone kindly advise?? thanks!!

These questions are not related to MySQL can you please post them in the correct forums

Also, PLEASE do NOT x-post. Moving to ASP

What exactly do you mean by "varchar"???

erm... varchar is the data type in the database...