<!--============================================================================-->
<!--===========    Copyright Š2003 YAKOM - All rights reserved        ==========-->
<!--===========    http://www.yakom.it ====== info@yakom.it           ==========-->
<!--===========    YUDO - The Ultimate ASP Web Desk                   ==========-->
<!--===========    YUDO Release:2.0Beta                               ==========-->
<!--===========    Support forums: http://www.freedesk.it             ==========-->
<!--============================================================================-->
<%
function dbFecha(valor)
	dbFecha=mid(valor,7,4) & mid(valor,1,2) & mid(valor,4,2)
end function

function dbHora(valor)
	hora=replace(valor,":","")
	if InStr(hora, "p")>0 then
		hora=int(left(hora,2))+12 & mid(hora,3,4)
	end if
	dbHora=left(hora,6)
end function

filepath=server.mappath(apppath & "data/wd.mdb")
path="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath & ";Jet OLEDB:Database Password=1234;"

Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.open path

'-------------------------------------------------------------
cn.execute "ALTER TABLE announcements ALTER xdate VARCHAR(20);"
cn.execute "ALTER TABLE announcements ALTER xtime VARCHAR(20);"
rs.open "SELECT xdate,xtime FROM announcements", cn, 1, 3
do while not rs.eof
	rs("xdate")=dbFecha(rs("xdate"))
	rs("xtime")=dbHora(trim(rs("xtime")))
	rs.movenext
loop
rs.close
cn.execute "ALTER TABLE announcements ALTER xdate VARCHAR(8);"
cn.execute "ALTER TABLE announcements ALTER xtime VARCHAR(6);"
'-------------------------------------------------------------
cn.execute "ALTER TABLE emails ALTER xdate VARCHAR(20);"
cn.execute "ALTER TABLE emails ALTER xtime VARCHAR(20);"
rs.open "SELECT xdate,xtime FROM emails", cn, 1, 3
do while not rs.eof
	rs("xdate")=dbFecha(rs("xdate"))
	rs("xtime")=dbHora(trim(rs("xtime")))
	rs.movenext
loop
rs.close
cn.execute "ALTER TABLE emails ALTER xdate VARCHAR(8);"
cn.execute "ALTER TABLE emails ALTER xtime VARCHAR(6);"
'-------------------------------------------------------------
cn.execute "ALTER TABLE requests ALTER xdate VARCHAR(20);"
cn.execute "ALTER TABLE requests ALTER xtime VARCHAR(20);"
rs.open "SELECT xdate,xtime FROM requests", cn, 1, 3
do while not rs.eof
	rs("xdate")=dbFecha(rs("xdate"))
	rs("xtime")=dbHora(trim(rs("xtime")))
	rs.movenext
loop
rs.close
cn.execute "ALTER TABLE requests ALTER xdate VARCHAR(8);"
cn.execute "ALTER TABLE requests ALTER xtime VARCHAR(6);"
'-------------------------------------------------------------
cn.execute "ALTER TABLE responses ALTER xdate VARCHAR(20);"
cn.execute "ALTER TABLE responses ALTER xtime VARCHAR(20);"
rs.open "SELECT xdate,xtime FROM responses", cn, 1, 3
do while not rs.eof
	rs("xdate")=dbFecha(rs("xdate"))
	rs("xtime")=dbHora(trim(rs("xtime")))
	rs.movenext
loop
rs.close
cn.execute "ALTER TABLE responses ALTER xdate VARCHAR(8);"
cn.execute "ALTER TABLE responses ALTER xtime VARCHAR(6);"
'-------------------------------------------------------------
cn.execute "ALTER TABLE ratings ALTER xdate VARCHAR(20);"
cn.execute "ALTER TABLE ratings ALTER xtime VARCHAR(20);"
rs.open "SELECT xdate,xtime FROM ratings", cn, 1, 3
do while not rs.eof
	rs("xdate")=dbFecha(rs("xdate"))
	rs("xtime")=dbHora(trim(rs("xtime")))
	rs.movenext
loop
rs.close
cn.execute "ALTER TABLE ratings ALTER xdate VARCHAR(8);"
cn.execute "ALTER TABLE ratings ALTER xtime VARCHAR(6);"
'-------------------------------------------------------------
cn.execute "ALTER TABLE events ALTER startdate VARCHAR(20);"
cn.execute "ALTER TABLE events ALTER starttime VARCHAR(20);"
rs.open "SELECT startdate,starttime FROM events", cn, 1, 3
do while not rs.eof
	rs("startdate")=dbFecha(rs("startdate"))
	rs("starttime")=dbHora(trim(rs("starttime")))
	rs.movenext
loop
rs.close
cn.execute "ALTER TABLE events ALTER startdate VARCHAR(8);"
cn.execute "ALTER TABLE events ALTER starttime VARCHAR(6);"
'-------------------------------------------------------------
%>
The database has been patched successfully!