Yanhee Hospital - Treatments Cost : Sugery & Beauty Center

<% 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 %> Yanhee Hospital - Treatments Cost : Sugery & Beauty Center

<% SQL = "SELECT * FROM TREATMENT_RATE WHERE TRTTYP = 'T1' AND SBTRTTYP = 'ST2' ORDER BY TRTRTID" Set ObjRS = Server.CreateObject("ADODB.Recordset") ObjRS.Open SQL,conn, ,2 if not ObjRS.eof then havedata = true else havedata=false end if %>

<% SQL = "SELECT * FROM TREATMENT_RATE WHERE TRTTYP = 'T1' AND SBTRTTYP = 'ST1' ORDER BY TTLTH" 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 qlf=objRS("PRCTH") st = qlf str="" For i = 1 To Len(st) temp = Mid(st, i, 10) k = InStr(temp, " ") If k <> 0 Then If InStr(temp, vbCrLf) > 0 Then j = InStr(temp, vbCrLf) temp = Left(temp, InStr(temp, vbCrLf)) & "" str = str & temp i = i + j - 1 Else str = str & temp i = i + 9 End If k = 0 Else If InStr(temp, vbCrLf) > 0 Then j = InStr(temp, vbCrLf) temp = Left(temp, InStr(temp, vbCrLf)) & "" str = str & temp i = i + j - 1 Else temp = temp & "" str = str & temp i = i + 9 End If End If Next qlf2=objRS("TTLTH") 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 if row mod 2 = 0 then %> <% else %> <% end if row = row + 1 ObjRS.MoveNext loop end if ObjRS.Close Set ObjRS = Nothing %>

รายการค่ารักษา

<%=str2%>

ราคา <%=ObjRS("PRCTH")%>

<%=str2%>

ราคา <%=ObjRS("PRCTH")%>

<% if havedata then %> <% row=0 do while not ObjRS.eof qlf=objRS("PRCTH") st = qlf str="" For i = 1 To Len(st) temp = Mid(st, i, 10) k = InStr(temp, " ") If k <> 0 Then If InStr(temp, vbCrLf) > 0 Then j = InStr(temp, vbCrLf) temp = Left(temp, InStr(temp, vbCrLf)) & "" str = str & temp i = i + j - 1 Else str = str & temp i = i + 9 End If k = 0 Else If InStr(temp, vbCrLf) > 0 Then j = InStr(temp, vbCrLf) temp = Left(temp, InStr(temp, vbCrLf)) & "" str = str & temp i = i + j - 1 Else temp = temp & "" str = str & temp i = i + 9 End If End If Next qlf2=objRS("TTLTH") 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 if row mod 2 = 0 then %> <% else %> <% end if row = row + 1 ObjRS.MoveNext loop end if ObjRS.Close Set ObjRS = Nothing %>

รายการค่ารักษา

<%=str2%>

ราคา <%=ObjRS("PRCTH")%>

<%=str2%>

ราคา <%=ObjRS("PRCTH")%>

<% SQL = "SELECT * FROM TREATMENT_RATE WHERE TRTTYP = 'T1' AND SBTRTTYP = 'ST3' ORDER BY TTLTH" Set ObjRS = Server.CreateObject("ADODB.Recordset") ObjRS.Open SQL,conn, ,2 if not ObjRS.eof then havedata = true else havedata=false end if %>

รายการค่ารักษา

<%=str2%>

ราคา <%=ObjRS("PRCTH")%>

<%=str2%>

ราคา <%=ObjRS("PRCTH")%>

<% SQL = "SELECT * FROM TREATMENT_RATE WHERE TRTTYP = 'T1' AND SBTRTTYP = 'ST4' ORDER BY TTLTH" Set ObjRS = Server.CreateObject("ADODB.Recordset") ObjRS.Open SQL,conn, ,2 if not ObjRS.eof then havedata = true else havedata=false end if %>

รายการค่ารักษา

<%=str2%>

ราคา <%=ObjRS("PRCTH")%>

<%=str2%>

ราคา <%=ObjRS("PRCTH")%>

<% SQL = "SELECT * FROM TREATMENT_RATE WHERE TRTTYP = 'T1' AND SBTRTTYP = 'ST5' ORDER BY TTLTH" 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 qlf=objRS("PRCTH") st = qlf str="" For i = 1 To Len(st) temp = Mid(st, i, 10) k = InStr(temp, " ") If k <> 0 Then If InStr(temp, vbCrLf) > 0 Then j = InStr(temp, vbCrLf) temp = Left(temp, InStr(temp, vbCrLf)) & "" str = str & temp i = i + j - 1 Else str = str & temp i = i + 9 End If k = 0 Else If InStr(temp, vbCrLf) > 0 Then j = InStr(temp, vbCrLf) temp = Left(temp, InStr(temp, vbCrLf)) & "" str = str & temp i = i + j - 1 Else temp = temp & "" str = str & temp i = i + 9 End If End If Next qlf2=objRS("TTLTH") 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 if row mod 2 = 0 then %> <% else %> <% end if row = row + 1 ObjRS.MoveNext loop end if ObjRS.Close Set ObjRS = Nothing %>

รายการค่ารักษา

<%=str2%>

ราคา <%=ObjRS("PRCTH")%>

<%=str2%>

ราคา <%=ObjRS("PRCTH")%>

<% SQL = "SELECT * FROM TREATMENT_RATE WHERE TRTTYP = 'T1' AND SBTRTTYP = 'ST6' ORDER BY TTLTH" 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 qlf=objRS("PRCTH") st = qlf str="" For i = 1 To Len(st) temp = Mid(st, i, 10) k = InStr(temp, " ") If k <> 0 Then If InStr(temp, vbCrLf) > 0 Then j = InStr(temp, vbCrLf) temp = Left(temp, InStr(temp, vbCrLf)) & "" str = str & temp i = i + j - 1 Else str = str & temp i = i + 9 End If k = 0 Else If InStr(temp, vbCrLf) > 0 Then j = InStr(temp, vbCrLf) temp = Left(temp, InStr(temp, vbCrLf)) & "" str = str & temp i = i + j - 1 Else temp = temp & "" str = str & temp i = i + 9 End If End If Next qlf2=objRS("TTLTH") 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 if row mod 2 = 0 then %> <% else %> <% end if row = row + 1 ObjRS.MoveNext loop end if ObjRS.Close Set ObjRS = Nothing %>

รายการค่ารักษา

<%=str2%>

ราคา <%=ObjRS("PRCTH")%>

<%=str2%>

ราคา <%=ObjRS("PRCTH")%>

<% SQL = "SELECT * FROM TREATMENT_RATE WHERE TRTTYP = 'T1' AND SBTRTTYP = 'ST7' ORDER BY TTLTH" 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 qlf=objRS("PRCTH") st = qlf str="" For i = 1 To Len(st) temp = Mid(st, i, 10) k = InStr(temp, " ") If k <> 0 Then If InStr(temp, vbCrLf) > 0 Then j = InStr(temp, vbCrLf) temp = Left(temp, InStr(temp, vbCrLf)) & "" str = str & temp i = i + j - 1 Else str = str & temp i = i + 9 End If k = 0 Else If InStr(temp, vbCrLf) > 0 Then j = InStr(temp, vbCrLf) temp = Left(temp, InStr(temp, vbCrLf)) & "" str = str & temp i = i + j - 1 Else temp = temp & "" str = str & temp i = i + 9 End If End If Next qlf2=objRS("TTLTH") 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 if row mod 2 = 0 then %> <% else %> <% end if row = row + 1 ObjRS.MoveNext loop end if ObjRS.Close Set ObjRS = Nothing %>

รายการค่ารักษา

<%=str2%>

ราคา <%=ObjRS("PRCTH")%>

<%=str2%>

ราคา <%=ObjRS("PRCTH")%>

<% SQL = "SELECT * FROM TREATMENT_RATE WHERE TRTTYP = 'T1' AND SBTRTTYP = 'ST8' ORDER BY TTLTH" 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 qlf=objRS("PRCTH") st = qlf str="" For i = 1 To Len(st) temp = Mid(st, i, 10) k = InStr(temp, " ") If k <> 0 Then If InStr(temp, vbCrLf) > 0 Then j = InStr(temp, vbCrLf) temp = Left(temp, InStr(temp, vbCrLf)) & "" str = str & temp i = i + j - 1 Else str = str & temp i = i + 9 End If k = 0 Else If InStr(temp, vbCrLf) > 0 Then j = InStr(temp, vbCrLf) temp = Left(temp, InStr(temp, vbCrLf)) & "" str = str & temp i = i + j - 1 Else temp = temp & "" str = str & temp i = i + 9 End If End If Next qlf2=objRS("TTLTH") 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 if row mod 2 = 0 then %> <% else %> <% end if row = row + 1 ObjRS.MoveNext loop end if ObjRS.Close Set ObjRS = Nothing %>

รายการค่ารักษา

<%=str2%>

ราคา <%=ObjRS("PRCTH")%>

<%=str2%>

ราคา <%=ObjRS("PRCTH")%>