<% Set conn=Server.CreateObject("ADODB.Connection") Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../../db/ynhadb.mdb") ' oledb for ado2.0 up only %>

<% SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F26'" Set ObjRS = Server.CreateObject("ADODB.Recordset") ObjRS.Open SQL,conn, ,2 %> <% ObjRS.Close Set ObjRS = Nothing SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D3' AND FCLTTYP = 'F26' 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 %> <%=objRS("PRMDSCTH")%> <%=str2%> &flnm=<%="img"+getRealFileName(ObjRS("DCTRID"), ObjRS("ATTIMG1"))%>','','scrollbars=no,width=566,height=550')"> <% SQL = "SELECT * FROM PARAMETER WHERE PRMVL = 'F27'" Set ObjRS = Server.CreateObject("ADODB.Recordset") ObjRS.Open SQL,conn, ,2 %> <% ObjRS.Close Set ObjRS = Nothing SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D3' AND FCLTTYP = 'F27' 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 = 'F28'" Set ObjRS = Server.CreateObject("ADODB.Recordset") ObjRS.Open SQL,conn, ,2 %> <% ObjRS.Close Set ObjRS = Nothing SQL = "SELECT * FROM DOCTORINFO WHERE DCTTYP = 'D3' AND FCLTTYP = 'F28' 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 %>