strSql="select * from tb_CarType where (CT_Status=" & preBoolean(true) & ")"
strCon = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=thaitravelcenter_com_ttis;uid=thaitravelcenter;pwd=ttis301ljx;option=3;charset=UTF8;"
set c = Server.CreateObject("ADODB.Connection")
c.Open strCon
Dim idnum1: idnum1=1
set cmd=Server.CreateObject("ADODB.Command")
cmd.ActiveConnection=c
cmd.CommandText=strSql
set rs=cmd.Execute
if not rs.eof then
%>
<%do while not rs.eof%>
“><%=rs("CT_EName")%>
“>” width=”96″ height=”53″ border=”0″ /><%=rs("CT_EAbstract")%>
<%
rs.movenext
loop
%>
<%
end if
set rs = nothing
%>
