<%
set con = Server.CreateObject("ADODB.CONNECTION")
con.Provider= "Microsoft.Jet.OLEDB.4.0"
con.Open Server.MapPath("Admin/SVC.mdb")
%>
<%
function changeToRoman(intVal)
dim locVar
if cint(intVal)=1 then
locVar="I"
elseif cint(intVal)=2 then
locVar="II"
elseif cint(intVal)=3 then
locVar="III"
elseif cint(intVal)=4 then
locVar="IV"
elseif cint(intVal)=5 then
locVar="V"
elseif cint(intVal)=6 then
locVar="VI"
end if
response.Write(locVar)
end function
%>
saradavilas
