<% '========================================= Function ReadCounter() 'if request.servervariables("server_name") = "localhost" then ' FileName = "counter\visitor.no" 'else ' FileName = "./counter/visitor.no" 'end if 'ForReading=1 'Set fs=CreateObject("Scripting.FileSystemObject") 'Set a=fs.OpenTextFile(Server.MapPath( FileName ),ForReading,0) 'if a.AtEndOfStream then count=0 else count=a.readline() 'count=count+1 'set a=fs.CreateTextFile(Server.MapPath( FileName ),true) 'a.writeline(count) 'a.close 'ReadCounter = count End function '========================================= Sub CountNum(num,wid,Fface,Fsize,Fcol1,Fcol2) '----<%Call CountNum(6,5,"Verdana",2,"#FFFF00","#33FF00") response.write "" response.write "" for i=1 to(num-len(count)) response.write "" next for i=1 to len(count) response.write "" response.write "" next response.write "

Visitor number :

" & Mid(count,i,1) & "

" End sub '========================================= Sub CountImg(num,wid) picname="counter/d" if request.servervariables("server_name") <> "localhost" then picname = ".\" & picname response.write "" 'response.write "" for i=1 to(num-len(count)) response.write "" next for i=1 to len(count) response.write "" next response.write "

Visitor number :

" End sub '========================================= 'Dim count 'count = ReadCounter '========================================= Dim Mtext Mtext = "::ยินดีต้อนรับสู่ MBA Network WebSite... อย่างเป็นทางการ Last Update:01/08/2003...." Sub setMarquee(speed,color,bgcolor) 'response.write "" response.write "" & Mtext & "" End sub '========================================= %>

English Version

“ สถาบันโรคผิวหนังรวมใจเทิดไท้ 60 ปี มหาราชันย์ ”

วัตถุประสงค์ - กิจกรรมภายในงาน
กำหนดการ

บทความวิชาการ โดย "ผู้อำนวยการสถาบันโรคผิวหนัง"

ประชุมวิชาการกรมการแพทย์ ประจำปี 2549

วันที่ 1-3 สิงหาคม 2549
กรมการแพทย์ขอเชิญผู้สนใจเข้ารับฟังการบรรยาย / อภิปราย
ิเรื่อง " MODERNIZATION OF MEDICINE "
ณ.ห้องประชุมชั้น 11 และ 12 อาคารเฉลิมพระเกียรติฯ โรงพยาบาลราชวิถี

ประกาศสถาบันโรคผิวหนัง

-: สอบราคาจ้างเหมาทำความสะอาดสถาบันโรคผิวหนัง
-: ประกาศรับสมัครสอบคัดเลือกเพื่อบรรจุเข้าทำงาน

ยกเลิกผลการสอบราคา

ซื้อเครื่องวิเคราะห์องค์ประกอบของไขมัน
( Bandwise Sample Application )

ผลการสอบราคา

-: จัดงาน “ สถาบันโรคผิวหนังรวมใจ เทิดไท้ 60 ปี มหาราชันย์ "
-: ซื้อวัสดุแบบรวมซื้อ
-: ซื้อครุภัณฑ์โฆษณาและเผยแพร่
-: เครื่องวัดอัตราการไหล ของเม็ดเลือดใต้ผิวหนัง ( Laser Doppler )
-: เครื่องวิเคราะห์องค์ประกอบของไขมัน ( Bandwise Sample Application )
-: หัววัดความชุ่มชื้นที่ผิวหนัง ( Corneometer Probe )
-: เครื่องวัดความยืดหยุ่นของผิว ( Cutometer )

Matrix of Face ; วิชาการงานสุขศึกษา

สถาบันโรคผิวหนังปรับปรุงการให้บริการใหม่

่สถาบันโรคผิวหนังให้บริการตรวจรักษาในวันเวลาราชการ
ตั้งแต่เวลา 8.30-12.00 น.
แนวทางปฎิบัติผู้ป่วยนัดทางโทรศัพท์ สำหรับการตรวจรักษาในเวลาราชการ

คลินิกพิเศษนอกเวลาราชการ เปิดให้บริการ

จันทร์,อังคาร,ศุกร ์(16.00-20.30 น.) และวันเสาร ์(8.30-12.00 น.)

แนวทางปฎิบัติผู้ป่วยนัดทางโทรศัพท์ สำหรับการตรวจรักษานอกเวลาราชการ
สอบถามรายละเอียดเพิ่มเติมได้ที่
หมายเลขโทรศัพท์ 0-2354-8036-40 ต่อ 133,163 และ164
(ผู้มารับบริการทุกท่านต้องติดต่อทำบัตรภายในเวลา 11.00 น.)

ศูนย์เลเซอร์

จำนวนผู้เข้าชม
นับจากวันที่
18/03/48
<% Set objFS=Server.CreateObject("Scripting.FileSystemObject") Set objRF=objFS.OpenTextFile(Server.MapPath("counter.txt")) visitor_no=objRF.ReadLine objRF.Close Set objRF=Nothing If Session("visitor")="" Then visitor_no=visitor_no+1 Set objRF=objFS.OpenTextFile(Server.MapPath("counter.txt"), 2) objRF.WriteLine visitor_no objRF.Close Set objRF=Nothing Session("visitor")=visitor_no End If Set objFS=Nothing %> <% For flag_counter=1 To 6-Len(visitor_no)%> <%Next%> <% For flag_counter=1 To Len(visitor_no)%> <%Next%>

.gif vspace=0 hspace=0>

last update 25/04/49
04/49 :-: 48/24
03/49:-:38/19
02/49:-:42/18
01/49 :-:29/14
12/48:-:24/12
11/48:-: 16/8
10/48 :-: 28/17