<%
dim mno
mno = request.Form("mno")
if mno = "" then
mno = 0
end if
'spath = (Request.servervariables("path_translated"))
'spath = left(spath,instrrev(spath,"\")) & "ahdicai1.mdb"
set osample = Server.CreateObject("ADODB.Connection")
osample.Open "DBQ=" & Server.MapPath("../db/ahdicai1_2004.mdb")& ";Driver={Microsoft Access Driver (*.mdb)}"
'Osample.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & spath
set datacmd = Server.CreateObject("ADODB.Command")
datacmd.commandtext = "Select * from cpecred where mno = '" & mno & "' Order by date"
set datacmd.activeconnection = osample
set ors = Server.CreateObject("ADODB.Recordset")
set ors = datacmd.execute
'set datacmd1 = Server.CreateObject("ADODB.Command")
'datacmd1.commandtext = "Select * from name_no where M_no = " & mno & " Order by M_no"
'set datacmd1.activeconnection = osample
set ors1 = Server.CreateObject("ADODB.Recordset")
'set ors1 = datacmd1.execute
ors1.open "select * from name_no order by M_no",osample,adopenkeyset
xno = 0
ors1.movefirst
do while not ors1.eof
if ors1("m_no") = request.Form("mno") then
'response.Write(ors1("m_no") & "find ")
xno = xno + 1
end if
ors1.movenext
loop
if xno > 0 then
set datacmd1 = Server.CreateObject("ADODB.Command")
datacmd1.commandtext = "Select * from name_no where M_no = '" & mno & "' Order by M_no"
set datacmd1.activeconnection = osample
set ors2 = Server.CreateObject("ADODB.Recordset")
set ors2 = datacmd1.execute
mname = ors2("name")
end if
%>
