|
|
 |
|
   |
 |
<%
SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F32'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D2' AND FCLTTYP = 'F32' 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 = 'F33'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D2' AND FCLTTYP = 'F33' 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 = 'F34'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D2' AND FCLTTYP = 'F34' 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 = 'F35'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D2' AND FCLTTYP = 'F35' 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 = 'F36'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D2' AND FCLTTYP = 'F36' 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 = 'F37'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D2' AND FCLTTYP = 'F37' 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 = 'F38'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D2' AND FCLTTYP = 'F38' 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 = 'F39'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D2' AND FCLTTYP = 'F39' 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 = 'F40'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D2' AND FCLTTYP = 'F40' 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 = 'F41'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D2' AND FCLTTYP = 'F41' 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 = 'F42'"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
|
|
<%
ObjRS.Close
Set ObjRS = Nothing
SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D2' AND FCLTTYP = 'F42' 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
%>
|
| |
|
 |
 |
|
 |
 |
|
|
