<% if request("mode") <> "preview" then response.buffer = true dim fs set fs=Server.CreateObject("Scripting.FileSystemObject") if fs.FileExists( server.mappath("vios_static_grade.php"))=true then response.clear server.transfer("vios_static_grade.php") end if set fs=nothing end if 'response.clear %> Toyota Vios - Price & Grades (Dynamic)
toyota main menu
toyota left main menu
ราคาของรุ่นแต่ละรุ่นอาจมีการเปลี่ยนแปลงได้ หากท่านสนใจกรุณาสอบถามข้อมูลเพิ่มเติมได้จาก
ตัวแทนจำหน่ายโตโยต้าใกล้บ้านท่าน

<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str Set rs = Server.CreateObject("ADODB.Recordset") Set rs_grade = Server.CreateObject("ADODB.Recordset") sql="select * from grades where grades_series_id=6 order by grades_order " rs.Open sql,conn, 1, 2 old_spec_type="" count_loop=0 count_color=0 while not rs.eof %>
" width="204" height="84">
<%= rs("grades_name")%>
ราคาเริ่มต้นรวม Vat
และเครื่องปรับอากาศ
<%= formatnumber(rs("grades_price"),0)%> บาท
มีผลตั้งแต่ : <% if not isnull(rs("grades_price_date")) then %> <%= day(rs("grades_price_date")) %> <%= arrMonth(month(rs("grades_price_date"))-1)%> <%= (year(rs("grades_price_date"))+543)-2500%> <% end if %>
" width="204" height="84">
<% rs.movenext wend conn.close set conn=nothing %>
toyota below main menu