|
|
 |
 |
   |
 |
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F1'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F1' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F2'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F2' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F29'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F29' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F3'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F3' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F4'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F4' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F5'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F5' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F6'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F6' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F7'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F7' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F8'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F8' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F9'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F9' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F10'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F10' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F11'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F11' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F12'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F12' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F13'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F13' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F14'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F14' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F15'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F15' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F16'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F16' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F17'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F17' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F18'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F18' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F19'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F19' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F20'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F20' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F30'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F30' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & "
"
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & "
"
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F31'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D1' AND FCLTTYP = 'F31' ORDER BY NAMTH"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
if not ObjRS.eof then
havedata = true
else
havedata=false
end if
if havedata then
row=0
do while not ObjRS.eof
qlf2=objRS("NAMTH")
st = qlf2
str2=""
For i = 1 To Len(st)
temp = Mid(st, i, 15)
k = InStr(temp, " ")
If k <> 0 Then
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & ""
str2 = str2 & temp
i = i + j - 1
Else
str2 = str2 & temp
i = i + 14
End If
k = 0
Else
If InStr(temp, vbCrLf) > 0 Then
j = InStr(temp, vbCrLf)
temp = Left(temp, InStr(temp, vbCrLf)) & ""
str2 = str2 & temp
i = i + j - 1
Else
temp = temp & ""
str2 = str2 & temp
i = i + 14
End If
End If
Next
%>
|
|
<%
row = row + 1
ObjRS.MoveNext
loop
else
%>
|
|
<%
end if
ObjRS.Close
Set ObjRS = Nothing
%>
|
|
 |
 |
|
|
 |
 |
|
|
