Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > ASP > ASP Forum > ช่วยแก้ให้หน่อยนะทำไม่ได้ค่ะ มัน error loop @ codepage=874 Session.LCID = 1054

ช่วยแก้ให้หน่อยนะทำไม่ได้ค่ะ มัน error loop @ codepage=874 Session.LCID = 1054

เริ่มหัวข้อใหม่

Guest

<%@ codepage=874%>
<%Session.LCID = 1054%>
<%Randomize: ord=int(rnd*1000000000)%>






<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<title>รถมือสอง รถมือ2 </title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874" />
<meta name="Description" content="รถมือสอง,รถมือ2 " />
<meta name="Keywords" content="รถมือสอง,รถมือ2" />
<LINK href="content.css" type=text/css rel=stylesheet>
<SCRIPT language=JavaScript1.2 src="post_model.js" type=text/javascript></SCRIPT>
<SCRIPT language=javascript src="overlib.js"></SCRIPT>
<SCRIPT language="JavaScript" type="text/JavaScript">


</SCRIPT>
</head>

<body >
<table id="head" width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#F4F4F4">
<tr>
<td width="66%" colspan="2" scope="col"><div align="center">THAI CAR DOT COM </div></td>
</tr>
</table>
<table id="all" width="994" border="0" bgcolor="#FFFFFF">
<tr>
<td width="78%" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" class="suggest">
<%
'----------------------------------------------------------------------------
' 1.ประกาศตัวแปร
Dim page, rowCount, ans, sWhere, band, idx, qp, sType,cr, bn, typeorder, sql1, prodtype, prod, startyear, stopyear, type_car, stratprice, stopprice, rss, cc,p
'----------------------------------------------------------------------------
' 2.Validate ตัวแปรที่เก็บค่าของหน้าในการแสดงผล RecordSet
page = Trim(Request.QueryString("page"))
If page = "" Then page = 1

type_car = Request("type")
if type_car = "" then type_car = Request.QueryString("type")

prodType = Request("prodType")
if prodType = "" then prodType = Request.QueryString("prodType")

prod = Request ("prod")
if prod = "" then prod = Request.QueryString("prod")

startyear = Request ("startyear")
if startyear = "" then startyear = Request.QueryString("startyear")

stopyear = Request ("stopyear")
if stopyear = "" then stopyear = Request.QueryString("stopyear")

stratprice = Request ("stratprice")
if stratprice = "" then stratprice = Request.QueryString("stratprice")

stopprice = Request ("stopprice")
if stopprice = "" then stopprice = Request.QueryString("stopprice")

if type_Car = "1" then
sWhere = "Where type='รถเก๋ง' "
elseif type_Car = "2" then
sWhere = "Where type='รถ suv' "
elseif type_Car = "3" then
sWhere = "Where type='รถตู้' "
elseif type_Car = "4" then
sWhere = "Where type='รถกระบะ' "
end if

if prodType <> "" then
if sWhere<> "" then
sWhere = sWhere & "and band='" & prodType & "' "
else
sWhere = "Where band='" & prodType & "' "
end if
end if

if prod <> "" then
sWhere = sWhere & "and model='" & prod & "' "
end if

if startyear <>""then
if sWhere<>"" then
sWhere = sWhere &"and year>='" & startyeat & "' "
else
sWhere = "where year>='" & startyear & "' "
end if
end if

if stopyear <>""then
sWhere = sWhere & "and year<='" & stopyear & "' "
end if

if stratprice <>""then
if sWhere<>"" then
sWhere = sWhere &"and qprice>='" & stratprice & "' "
else
sWhere = "where qprice>='" & stratprice& "' "
end if
end if

if stopprice <>""then
sWhere = sWhere &"and qprice<='" & stopprice & "' "
end if

'---------------------------------------------------------------------------------------------------------
Call ConnectDB(dbPath)

sql="select * from tbcarpost " & sWhere
sql1="select count(Qnumber) as num from tbcarpost " & sWhere

If request.QueryString("sType") = "1" or Request.QueryString("Order_type") = "" then
sql = sql & " order by startpost DESC"
elseif request.QueryString("sType") = "2" then
sql = sql & " order by QPrice ASC"
elseif request.QueryString("sType") = "3" then
sql = sql & " order by QPrice DESC"
elseif request.QueryString("sType") = "4" then
sql = sql & " order by year DESC"
elseif request.QueryString("sType") = "5" then
sql = sql & " order by year ASC"
end if

'---------------------------
Set rss = Server.CreateObject("ADODB.Recordset")
'Response.write sql
'Response.End()
rss.Open sql1,conn, 1, 3
cc = rss("num")
rss.close
Set rss = Nothing
Dim Rec, ppage
Rec = fix(Cint(cc) / 20)
ppage = (page*20)-20
If Cint(cc) mod 20<>"" Then
Rec = Rec + 1
End If
Set rs = Server.CreateObject("ADODB.Recordset")
' กำหนดจำนวนเรคคอร์ดที่จะแสดงในแต่ละหน้า
rs.PageSize = 20
rs.Open sql,conn

If Not rs.EOF Then
' กำหนดว่าต้องการแสดงผลลัพธ์จากหน้าไหน
Rs.Move ppage
rowCount = 0
%>

</td>
</tr>
</table>
<table width="100%" border=\"0" cellspacing="0" cellpadding="0">
<tr bgcolor="#FFFFFF">
<td width="100%" height="12" class="darkgray"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0">
<form method="post" action="post_boardauestion.asp">
<tr >
<th height="22" colspan="3" class="darkgray" scope="col"><div align="left"><strong> <span class="style132">ThaiCar.com Marketplace : </span></strong><strong><%=cc%><span class="style81"> Vehicles from your search </span></strong></div></th>
<th colspan="2" class="darkgray" scope="col"><div align="right">
ลำดับการเรียง :
<select name="sType" class/="darkgray" onChange="MM_jumpMenu('parent',this,0)">
<option value="post_boardquestion.asp?sType=&page=<%=page%>&type=<%=type_car%>&Prod=<%=Prod%>&ProdType=<%=ProdType%>&startyear=<%=startyear%>&stopyear=<%=stopyear%>&stratprice<%=stratprice%>&stopprice=<%=stopprice%>" selected>-- ลำดับ --</option>
<option value="post_boardquestion.asp?sType=1&page=<%=page%>&type=<%=type_car%>&Prod=<%=Prod%>&ProdType=<%=ProdType%>&startyear=<%=startyear%>&stopyear=<%=stopyear%>&stratprice<%=stratprice%>&stopprice=<%=stopprice%>">เรียงตามเวลาล่าสุด</option>
<option value="post_boardquestion.asp?sType=2&page=<%=page%>&type=<%=type_car%>&Prod=<%=Prod%>&ProdType=<%=ProdType%>&startyear=<%=startyear%>&stopyear=<%=stopyear%>&stratprice<%=stratprice%>&stopprice=<%=stopprice%>">เรียงตามราคาต่ำสุด</option>
<option value="post_boardquestion.asp?sType=3&page=<%=page%>&type=<%=type_car%>&Prod=<%=Prod%>&ProdType=<%=ProdType%>&startyear=<%=startyear%>&stopyear=<%=stopyear%>&stratprice<%=stratprice%>&stopprice=<%=stopprice%>">เรียงตามราคามากสุด</option>
<option value="post_boardquestion.asp?sType=4&page=<%=page%>&type=<%=type_car%>&Prod=<%=Prod%>&ProdType=<%=ProdType%>&startyear=<%=startyear%>&stopyear=<%=stopyear%>&stratprice<%=stratprice%>&stopprice=<%=stopprice%>">เรียงตามปีมากสสุด</option>
<option value="post_boardquestion.asp?sType=5&page=<%=page%>&type=<%=type_car%>&Prod=<%=Prod%>&ProdType=<%=ProdType%>&startyear=<%=startyear%>&stopyear=<%=stopyear%>&stratprice<%=stratprice%>&stopprice=<%=stopprice%>">เรียงตามปีน้อยสุด</option>
</select>
</div></th>
</tr>
<tr bgcolor="#ACC2CA">
<td width="29" height="22" background="pic/bg_new.jpg" class="darkgray" scope="col"> <div align="center"><img src="pic/arrow_small.gif" width="21" height="15" align="top"></div></td>
<td width="171" height="22" align="center" background="pic/bg_new.jpg" class="darkgray" scope="col"> <DIV id=overDiv style="Z-INDEX: 1000; FILTER: Alpha(Opacity=90); POSITION: absolute"></DIV>
<input type=submit value="เปรียบเทียบรถ" onmouseover="return overlib('กรุณาเลือกรถที่ต้องการเปรียบเทียบ<br>โดยการเลือกรถที่ต้องการจากนั้นกดปุ่มนี้ ', CAPTION, '<div align=left>คลิกเลือกรถเพื่อเปรียบเทียบ', FGCOLOR, '#fcfcfc', BGCOLOR, '#0080C0', CAPCOLOR, '#ffffff', BORDER, 3, CLOSETEXT, 'Close', CAPICON, '');" onmouseout=nd();></td>
<td width="267" align="left" background="pic/bg_new.jpg" class="darkgray" scope="col"><strong>     ข้อมูลรถ</strong></td>
<td width="109" align="center" background="pic/bg_new.jpg" class="darkgray" scope="col"><strong>     ปี</strong></td>
<td width="120" align="center" background="pic/bg_new.jpg" bgcolor="#ACC2CA" class="darkgray" scope="col"><strong> ราคา</strong></td>
</tr>
<%
Dim num
num = (page*20)-19
rowCount=1

While Not rs.EOF and rowCount <= rs.PageSize
%>
<tr class="suggest">
<td height="42" colspan="5"><table width="100%" border="0" cellpadding="5" cellspacing="0" class="category">
<tr class="suggest">
<td width="20" rowspan="3"><font face="MS Sans Serif, Tahoma, sans-serif" size="1">
<input name="inid" type="checkbox" id="inid" value="<%=rs("QNumber")%>" />
</font></td>
<% Dim sPic
If not isnull(rs("QPicture")) Then
sPic = rs("QPicture")
Else
sPic ="no.gif"
End If
%>
<td width="105" rowspan="3" align="center" valign="top"><div align="center"><font face="MS Sans Serif, Tahoma, sans-serif" size="1"> <a href="post_showroom1.asp?GID=<%=Rs("QNumber")%>" target="_blank">
<%
dim kaiva
kaiva = rs("tradetype")
if kaiva = "ต้องการขาย" Then
if sPic <> "" Then
Response.Write("<img src='images_post_upload/" & sPic & "' width='92' height='70' border='0' />")
else
Response.Write("<img src='images_post_upload/no.gif' width='92' height='70' border='0' />")
End If
%>
</a> </font></div><br>
<%=kaiva%></td>
<td width="313" height="26" valign="top"><div align="left"><font face="MS Sans Serif, Tahoma, sans-serif" size="1" color="#333333"><b><a href="post_showroom1.asp?GID=<%=Rs("QNumber")%>" target="_blank"></a></b><strong><%=num%>. </strong><b><a href="post_showroom1.asp?GID=<%=Rs("QNumber")%>&band=<%=Request.QueryString("band")%>&model=<%=Request.QueryString("model")%>&type=<%=Request.QueryString("type")%>" target="_blank">
<%
Response.Write(Rs("band") & " " & Rs("Model") & " ")
'If Rs("band") = "BMW" or Rs("band") = "MERCEDES-BENZ" Then Response.Write(Rs("models"))
If (Rs("band") <> "BMW" or Rs("band") <> "MERCEDES-BENZ") and Rs("subbody") <> "-" Then Response.Write(" " & Rs("subbody"))
Response.Write(" " & Rs("gear") & "T")
%>
</a></b><strong> </strong> <br />
</font></div></td>
<td width="105" align="right" valign="top" class="darkgray"><div align="center"><font face="MS Sans Serif, Tahoma, sans-serif" size="2" color="#0000FF"><b>
<%
dim gYear
gYear = rs("year")
if gYear = "0" or gYear = "-" Then
gYear = "ไม่ระบุ"
end if
response.Write(gYear)
%>
</b></font></div> </td>
<td width="111" align="center" valign="top" class="darkgray"><font face="MS Sans Serif" size="2" color="#0000FF"><b>
<%
if rs("qprice") = 0 Then
response.Write("ไม่ระบุ")
else
response.Write(formatnumber(RS("QPrice"),0))
end if%>
</b></font> </td>
</tr>
<tr>
<td width="313" valign="top"><p><font face="MS Sans Serif, Tahoma, sans-serif" size="1" color="#333333">

<%=rs("Present")%></font><font face="MS Sans Serif, Tahoma, sans-serif" size="1" color="#333333"> </font><font face="MS Sans Serif, Tahoma, sans-serif" size="1" color="#333333"><br>
<br>
</font></p></td>
<td colspan="2" valign="top" width="216"><font face="MS Sans Serif, Tahoma, sans-serif" size="1" color="#333333">* อัพเดทล่าสุด : </font><font face="MS Sans Serif, Tahoma, sans-serif"
size="1"><%=Rs("startpost")%></font></td>
</tr>
<tr>
<td width="313" height="32" align="left" valign="top"> </td>
<td colspan="2" align="left" valign="top" width="216"><font face="MS Sans Serif, Tahoma, sans-serif" size="1"><strong>ติดต่อคุณ : <%=rs("Contact")%></strong> </font><font face="MS Sans Serif, Tahoma, sans-serif" size="1" color="#333333">
<br>
เบอร์โทร<%=rs("tel")%>  เบอร์โทรสำรอง : <%=rs("tel2")%>
</font></td>
</tr>
</table>
<br></td>
</tr>
<%
num = num+1
rowCount = rowCount + 1
rs.MoveNext
loop '--------------------------------------มัน error บรรทัดนี้ค่ะ---------------------------------'
Else
%>
<table width="100%" cellspacing="0" border="0">
<tr>
<td colspan="5" valign=center bgcolor="#FAFDFC" class="darkgray"><div align="center" class="style81">ไม่พบข้อมูลที่ต้องการค้นหา </div></td>
</tr>
<%End If%>
</form>
</table>
<table width="100%" border="0" align="center" class="category">
<tr>
<td>
<div align="center"><font size="1" face="MS Sans Serif">Page Number : </font>
<div align="center">
<%
sType = Request.QueryString("sType")
Call ShowPageNum(Rec, Page, "post_boardquestion.asp" type_car, Prod, ProdType, startyear, stopyear, stratprice, stopprice, sType)
%>
</div>
<font face="MS Sans Serif" size="1"> </font></div></td>
</tr>
</table></td>
<td width="22%" valign="top"><table id="Table_01" width="242" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="51" colspan="5"><img src="images/post_nt1_01.gif" width="242" height="51" alt=""></td>
</tr>
<tr>
<td height="139" background="images/nt1_02.gif"> </td>
<td colspan="3" valign="top"><table id="search" width="100%" border="0" cellpadding="0" cellspacing="0" class="black">
<form action="" method="post" name="form1">
<tr>
<td width="19%" height="31" align="center" ><div align="left">
<div align="left"><strong>ประเภท</strong></div>
</div></td>
<td width="81%" height="31" align="center" ><div align="left">
<select class="back" id="type" onChange="populateList('os');" name="type">
<option value="" selected>- กรุณาเลือกประเภท -</option>
<option value="1">รถเก๋ง</option>
<option value="2">รถ SUV</option>
<option value="3">รถตู้</option>
<option value="4">รถกระบะ</option>
</select>
</div></td>
</tr>
<tr >
<td width="19%" height="31" align="center" ><div align="left">
<div align="left"><strong>ยี่ห้อ</strong></div>
</div></td>
<td width="81%" height="31" align="center" ><div align="left">
<select name="prodType" class="black" id="prodType" onChange="populateList('prod');" >
<option value="" selected>- กรุณาเลือกยี่ห้อ -</option>
<option value="ALFA ROMEO">ALFA ROMEO</option>
<option value="AUDI">AUDI</option>
<option value="BMW">BMW</option>
<option value="CHEVROLET">CHEVROLET</option>
<option value="CHRYSLER">CHRYSLER</option>
<option value="CITROEN">CITROEN</option>
<option value="DAEWOO">DAEWOO</option>
<option value="DAIHATSU">DAIHATSU</option>
<option value="FIAT">FIAT</option>
<option value="FORD">FORD</option>
<option value="HOLDEN">HOLDEN</option>
<option value="HONDA">HONDA</option>
<option value="HYUNDAI">HYUNDAI</option>
<option value="ISUZU">ISUZU</option>
<option value="JAGUAR">JAGUAR</option>
<option value="LEXUS">LEXUS</option>
<option value="MASERATI">MASERATI</option>
<option value="MAZDA">MAZDA</option>
<option value="MERCEDES-BENZ">MERCEDES-BENZ</option>
<option value="MITSUBISHI">MITSUBISHI</option>
<option value="NISSAN">NISSAN</option>
<option value="OPEL">OPEL</option>
<option value="PEUGEOT">PEUGEOT</option>
<option value="PORSCHE">PORSCHE</option>
<option value="RENAULT">RENAULT</option>
<option value="ROLLS-ROYCE">ROLLS-ROYCE</option>
<option value="ROVER">ROVER</option>
<option value="SAAB">SAAB</option>
<option value="SUBARU">SUBARU</option>
<option value="SUZUKI">SUZUKI</option>
<option value="TOYOTA">TOYOTA</option>
<option value="VOLKSWAGEN">VOLKSWAGEN</option>
<option value="VOLVO">VOLVO</option>
</select>
</div></td>
</tr>
<tr>
<td height="32" align="center"><div align="left" >
<div align="left"><strong>รุ่น</strong></div>
</div></td>
<td align="center" ><div align="left">
<select name="prod" class="black" id="prod" onChange="populateList('prods');">
<option value="">- กรุณาเลือกรุ่น -</option>
</select>
</div></td>
</tr>
<tr>
<td height="11" align="center" ><div align="left">
<div align="left"><strong>ปี</strong> </div>
</div></td>
<td height="11" align="center" ><div align="left">
<input name="startyear" class=black id="startyear" style="width:60" size="4" maxlength="4">
<strong>ถึง</strong>
<input name="stopyear" class=black id="stopyear" style="width:60" size="4" maxlength="4">
<font face="MS Sans Serif" size="2">
</font></div></td>
</tr>
</form>
<tr>
<td height="11" align="center" ><div align="left">
<div align="left"><strong>ราคา</strong> </div>
</div></td>
<td height="11" align="center" ><div align="left">
<input name="stratprice" class=black id="stopprice" style="width:60" size="4" maxlength="4">
<strong>ถึง</strong>
<input name="stoppricer" class=black id="stoppricer" style="width:60" size="4" maxlength="4">
<font face="MS Sans Serif" size="2">
</font></div></td>
</tr>
</form>

<tr>
<td colspan="2" height="30"><div align="center">
<input name="Search" type="button" value="search">
</div></td>
</tr>
</table></td>
<td background="images/nt1_04.gif"></td>
</tr>
<tr>
<td colspan="5"><img src="images/nt1_05.gif" width="242" height="8" alt=""></td>
</tr>
<tr>
<td colspan="2"><img src="images/nt1_09.gif" width="16" height="20" alt=""></td>
<td><img src="images/nt1_10.gif" width="212" height="20" alt=""></td>
<td colspan="2"><img src="images/nt1_11.gif" width="14" height="20" alt=""></td>
</tr>
<tr>
<td><img src="images/spacer.gif" width="6" height="1" alt=""></td>
<td><img src="images/spacer.gif" width="10" height="1" alt=""></td>
<td><img src="images/spacer.gif" width="212" height="1" alt=""></td>
<td><img src="images/spacer.gif" width="10" height="1" alt=""></td>
<td><img src="images/spacer.gif" width="4" height="1" alt=""></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" valign="bottom"><div align="center"><font face="MS Sans Serif" size="1" color="#999999"><b>เพื่อนบ้าน : <a href="http://www.rodyont.com/web.php" target="_blank" class="post">รถ</a> <a href="http://www.rodyont.com" target="_blank" class="post">รถใหม่</a> <a href="http://www.rodyont.com/usedcar.php" target="_blank" class="post">รถบ้าน</a> <a href="http://www.rodyont.com/usedcar.php" target="_blank" class="post">รถมือสอง</a>  <a href="http://www.rodyont.com" target="_blank" class="post">ราคารถใหม่</a></b></font></div></td>
</tr>
</table>

<table width="994" height="25" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="98%" bgcolor="#FF6904">
<div align="center" class="style131">
<strong>Copyrights (c) 2007 by ThaiCar Dot Com Co.,Ltd.</strong>Tel. 0-2261-8596 Fax 0-2261-8597
 
<SCRIPT LANGUAGE="javascript1.1" src="http://hits3.truehits.net/data/q0027634.js"></SCRIPT>
<br>
</div>
</td>
<td width="2%" align="left" valign="middle" bgcolor="#FF6904">


</td>
</tr>
</table>
<%
rs.Close
Set rs = Nothing
Call DisconnectDB()
%>
<%
'response.write sWhere
%>
</body>
</html>

Tag : - - - -

Date : 22 พ.ค. 2551 10:26:23

By : sandbgb

View : 1652

Reply : 7

No. 1

Guest

คือว่ามันจะรับข้อมูลการ search มาจากหน้า index แล้วให้มาแสดงผลหน้านี้
แล้วหน้านี้ก็สามารถทำการ search แบบเรียง ค่าตามลำดับมากน้อยได้ แล้วก็สามารถเปรียบเทียบข้อมูลที่ทำการ search มาแล้วได้อีก
ช่วยดูให้หน่อยนะค่ะว่าเขียน code เขียนถูกป่าว แล้วก็ทำไมเวลา run แล้วมันขึ้น error loop ค่ะ
ช่วยแก้ให้หน่อยนะ จะส่ง project ค่ะ
-------------------ขอบคุณล่วงหน้าค่ะ------------------------------------

Date : 22 พ.ค. 2551 10:30:52

By : sandbgb

No. 2

Guest

โค๊ดผิด 100000000000000% ครับ เห็นละ กำลังแก้อยู่ ก็คุณเอา Do while ไปไว้นอก if ที่ให้มันเช็คอ่ะ เด่วอีกเร็ปมาตอบ

Date : 24 พ.ค. 2551 01:49:29

By : varayut

No. 3

Guest

<%@ codepage=874%>
<%Session.LCID = 1054%>
<%Randomize: ord=int(rnd*1000000000)%>






<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<title>รถมือสอง รถมือ2 </title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874" />
<meta name="Description" content="รถมือสอง,รถมือ2 " />
<meta name="Keywords" content="รถมือสอง,รถมือ2" />
<LINK href="content.css" type=text/css rel=stylesheet>
<SCRIPT language=JavaScript1.2 src="post_model.js" type=text/javascript></SCRIPT>
<SCRIPT language=javascript src="overlib.js"></SCRIPT>
<SCRIPT language="JavaScript" type="text/JavaScript">


</SCRIPT>
</head>

<body >
<table id="head" width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#F4F4F4">
<tr>
<td width="66%" colspan="2" scope="col"><div align="center">THAI CAR DOT COM </div></td>
</tr>
</table>
<table id="all" width="994" border="0" bgcolor="#FFFFFF">
<tr>
<td width="78%" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" class="suggest">
<%
'----------------------------------------------------------------------------
' 1.ประกาศตัวแปร
Dim page, rowCount, ans, sWhere, band, idx, qp, sType,cr, bn, typeorder, sql1, prodtype, prod, startyear, stopyear, type_car, stratprice, stopprice, rss, cc,p
'----------------------------------------------------------------------------
' 2.Validate ตัวแปรที่เก็บค่าของหน้าในการแสดงผล RecordSet
page = Trim(Request.QueryString("page"))
If page = "" Then page = 1

type_car = Request("type")
if type_car = "" then type_car = Request.QueryString("type")

prodType = Request("prodType")
if prodType = "" then prodType = Request.QueryString("prodType")

prod = Request ("prod")
if prod = "" then prod = Request.QueryString("prod")

startyear = Request ("startyear")
if startyear = "" then startyear = Request.QueryString("startyear")

stopyear = Request ("stopyear")
if stopyear = "" then stopyear = Request.QueryString("stopyear")

stratprice = Request ("stratprice")
if stratprice = "" then stratprice = Request.QueryString("stratprice")

stopprice = Request ("stopprice")
if stopprice = "" then stopprice = Request.QueryString("stopprice")

if type_Car = "1" then
sWhere = "Where type='รถเก๋ง' "
elseif type_Car = "2" then
sWhere = "Where type='รถ suv' "
elseif type_Car = "3" then
sWhere = "Where type='รถตู้' "
elseif type_Car = "4" then
sWhere = "Where type='รถกระบะ' "
end if

if prodType <> "" then
if sWhere<> "" then
sWhere = sWhere & "and band='" & prodType & "' "
else
sWhere = "Where band='" & prodType & "' "
end if
end if

if prod <> "" then
sWhere = sWhere & "and model='" & prod & "' "
end if

if startyear <>""then
if sWhere<>"" then
sWhere = sWhere &"and year>='" & startyeat & "' "
else
sWhere = "where year>='" & startyear & "' "
end if
end if

if stopyear <>""then
sWhere = sWhere & "and year<='" & stopyear & "' "
end if

if stratprice <>""then
if sWhere<>"" then
sWhere = sWhere &"and qprice>='" & stratprice & "' "
else
sWhere = "where qprice>='" & stratprice& "' "
end if
end if

if stopprice <>""then
sWhere = sWhere &"and qprice<='" & stopprice & "' "
end if

'---------------------------------------------------------------------------------------------------------
Call ConnectDB(dbPath)

sql="select * from tbcarpost " & sWhere
sql1="select count(Qnumber) as num from tbcarpost " & sWhere

If request.QueryString("sType") = "1" or Request.QueryString("Order_type") = "" then
sql = sql & " order by startpost DESC"
elseif request.QueryString("sType") = "2" then
sql = sql & " order by QPrice ASC"
elseif request.QueryString("sType") = "3" then
sql = sql & " order by QPrice DESC"
elseif request.QueryString("sType") = "4" then
sql = sql & " order by year DESC"
elseif request.QueryString("sType") = "5" then
sql = sql & " order by year ASC"
end if

'---------------------------
Set rss = Server.CreateObject("ADODB.Recordset")
'Response.write sql
'Response.End()
rss.Open sql1,conn, 1, 3
cc = rss("num")
rss.close
Set rss = Nothing
Dim Rec, ppage
Rec = fix(Cint(cc) / 20)
ppage = (page*20)-20
If Cint(cc) mod 20<>"" Then
Rec = Rec + 1
End If
Set rs = Server.CreateObject("ADODB.Recordset")
' กำหนดจำนวนเรคคอร์ดที่จะแสดงในแต่ละหน้า
rs.PageSize = 20
rs.Open sql,conn

If Not rs.EOF Then
' กำหนดว่าต้องการแสดงผลลัพธ์จากหน้าไหน
Rs.Move ppage
rowCount = 0
%>

</td>
</tr>
</table>
<table width="100%" border=\"0" cellspacing="0" cellpadding="0">
<tr bgcolor="#FFFFFF">
<td width="100%" height="12" class="darkgray"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0">
<form method="post" action="post_boardauestion.asp">
<tr >
<th height="22" colspan="3" class="darkgray" scope="col"><div align="left"><strong> <span class="style132">ThaiCar.com Marketplace : </span></strong><strong><%=cc%><span class="style81"> Vehicles from your search </span></strong></div></th>
<th colspan="2" class="darkgray" scope="col"><div align="right">
ลำดับการเรียง :
<select name="sType" class/="darkgray" onChange="MM_jumpMenu('parent',this,0)">
<option value="post_boardquestion.asp?sType=&page=<%=page%>&type=<%=type_car%>&Prod=<%=Prod%>&ProdType=<%=ProdType%>&startyear=<%=startyear%>&stopyear=<%=stopyear%>&stratprice<%=stratprice%>&stopprice=<%=stopprice%>" selected>-- ลำดับ --</option>
<option value="post_boardquestion.asp?sType=1&page=<%=page%>&type=<%=type_car%>&Prod=<%=Prod%>&ProdType=<%=ProdType%>&startyear=<%=startyear%>&stopyear=<%=stopyear%>&stratprice<%=stratprice%>&stopprice=<%=stopprice%>">เรียงตามเวลาล่าสุด</option>
<option value="post_boardquestion.asp?sType=2&page=<%=page%>&type=<%=type_car%>&Prod=<%=Prod%>&ProdType=<%=ProdType%>&startyear=<%=startyear%>&stopyear=<%=stopyear%>&stratprice<%=stratprice%>&stopprice=<%=stopprice%>">เรียงตามราคาต่ำสุด</option>
<option value="post_boardquestion.asp?sType=3&page=<%=page%>&type=<%=type_car%>&Prod=<%=Prod%>&ProdType=<%=ProdType%>&startyear=<%=startyear%>&stopyear=<%=stopyear%>&stratprice<%=stratprice%>&stopprice=<%=stopprice%>">เรียงตามราคามากสุด</option>
<option value="post_boardquestion.asp?sType=4&page=<%=page%>&type=<%=type_car%>&Prod=<%=Prod%>&ProdType=<%=ProdType%>&startyear=<%=startyear%>&stopyear=<%=stopyear%>&stratprice<%=stratprice%>&stopprice=<%=stopprice%>">เรียงตามปีมากสสุด</option>
<option value="post_boardquestion.asp?sType=5&page=<%=page%>&type=<%=type_car%>&Prod=<%=Prod%>&ProdType=<%=ProdType%>&startyear=<%=startyear%>&stopyear=<%=stopyear%>&stratprice<%=stratprice%>&stopprice=<%=stopprice%>">เรียงตามปีน้อยสุด</option>
</select>
</div></th>
</tr>
<tr bgcolor="#ACC2CA">
<td width="29" height="22" background="pic/bg_new.jpg" class="darkgray" scope="col"> <div align="center"><img src="pic/arrow_small.gif" width="21" height="15" align="top"></div></td>
<td width="171" height="22" align="center" background="pic/bg_new.jpg" class="darkgray" scope="col"> <DIV id=overDiv style="Z-INDEX: 1000; FILTER: Alpha(Opacity=90); POSITION: absolute"></DIV>
<input type=submit value="เปรียบเทียบรถ" onmouseover="return overlib('กรุณาเลือกรถที่ต้องการเปรียบเทียบ<br>โดยการเลือกรถที่ต้องการจากนั้นกดปุ่มนี้ ', CAPTION, '<div align=left>คลิกเลือกรถเพื่อเปรียบเทียบ', FGCOLOR, '#fcfcfc', BGCOLOR, '#0080C0', CAPCOLOR, '#ffffff', BORDER, 3, CLOSETEXT, 'Close', CAPICON, '');" onmouseout=nd();></td>
<td width="267" align="left" background="pic/bg_new.jpg" class="darkgray" scope="col"><strong>     ข้อมูลรถ</strong></td>
<td width="109" align="center" background="pic/bg_new.jpg" class="darkgray" scope="col"><strong>     ปี</strong></td>
<td width="120" align="center" background="pic/bg_new.jpg" bgcolor="#ACC2CA" class="darkgray" scope="col"><strong> ราคา</strong></td>
</tr>
<%
Dim num
num = (page*20)-19
rowCount=1

'While Not rs.EOF and rowCount <= rs.PageSize 'คำสังให้วน loop มันอยู่นอกเงื่อนไข เพราะอะไรไปดูข้างล่าง แก้ให้เม้นให้ละ
%>
<tr class="suggest">
<td height="42" colspan="5"><table width="100%" border="0" cellpadding="5" cellspacing="0" class="category">
<tr class="suggest">
<td width="20" rowspan="3"><font face="MS Sans Serif, Tahoma, sans-serif" size="1">
<input name="inid" type="checkbox" id="inid" value="<%=rs("QNumber")%>" />
</font></td>
<% Dim sPic
If not isnull(rs("QPicture")) Then
sPic = rs("QPicture")
Else
sPic ="no.gif"
End If
%>
<td width="105" rowspan="3" align="center" valign="top"><div align="center"><font face="MS Sans Serif, Tahoma, sans-serif" size="1"> <a href="post_showroom1.asp?GID=<%=Rs("QNumber")%>" target="_blank">
<%
dim kaiva
kaiva = rs("tradetype")
if kaiva = "ต้องการขาย" Then ' นี่ไง if ที่เช็ค
<% While Not rs.EOF and rowCount <= rs.PageSize 'นี่ไงครับมันควรจะอยู่ตรงนี้ เพราะอยู่ภายใต้เงื่อนไขเหมือน กับคำสั่ง loop
if sPic <> "" Then
Response.Write("<img src='images_post_upload/" & sPic & "' width='92' height='70' border='0' />")
else
Response.Write("<img src='images_post_upload/no.gif' width='92' height='70' border='0' />")
End If
%>
</a> </font></div><br>
<%=kaiva%></td>
<td width="313" height="26" valign="top"><div align="left"><font face="MS Sans Serif, Tahoma, sans-serif" size="1" color="#333333"><b><a href="post_showroom1.asp?GID=<%=Rs("QNumber")%>" target="_blank"></a></b><strong><%=num%>. </strong><b><a href="post_showroom1.asp?GID=<%=Rs("QNumber")%>&band=<%=Request.QueryString("band")%>&model=<%=Request.QueryString("model")%>&type=<%=Request.QueryString("type")%>" target="_blank">
<%
Response.Write(Rs("band") & " " & Rs("Model") & " ")
'If Rs("band") = "BMW" or Rs("band") = "MERCEDES-BENZ" Then Response.Write(Rs("models"))
If (Rs("band") <> "BMW" or Rs("band") <> "MERCEDES-BENZ") and Rs("subbody") <> "-" Then Response.Write(" " & Rs("subbody"))
Response.Write(" " & Rs("gear") & "T")
%>
</a></b><strong> </strong> <br />
</font></div></td>
<td width="105" align="right" valign="top" class="darkgray"><div align="center"><font face="MS Sans Serif, Tahoma, sans-serif" size="2" color="#0000FF"><b>
<%
dim gYear
gYear = rs("year")
if gYear = "0" or gYear = "-" Then
gYear = "ไม่ระบุ"
end if
response.Write(gYear)
%>
</b></font></div> </td>
<td width="111" align="center" valign="top" class="darkgray"><font face="MS Sans Serif" size="2" color="#0000FF"><b>
<%
if rs("qprice") = 0 Then
response.Write("ไม่ระบุ")
else
response.Write(formatnumber(RS("QPrice"),0))
end if%>
</b></font> </td>
</tr>
<tr>
<td width="313" valign="top"><p><font face="MS Sans Serif, Tahoma, sans-serif" size="1" color="#333333">

<%=rs("Present")%></font><font face="MS Sans Serif, Tahoma, sans-serif" size="1" color="#333333"> </font><font face="MS Sans Serif, Tahoma, sans-serif" size="1" color="#333333"><br>
<br>
</font></p></td>
<td colspan="2" valign="top" width="216"><font face="MS Sans Serif, Tahoma, sans-serif" size="1" color="#333333">* อัพเดทล่าสุด : </font><font face="MS Sans Serif, Tahoma, sans-serif"
size="1"><%=Rs("startpost")%></font></td>
</tr>
<tr>
<td width="313" height="32" align="left" valign="top"> </td>
<td colspan="2" align="left" valign="top" width="216"><font face="MS Sans Serif, Tahoma, sans-serif" size="1"><strong>ติดต่อคุณ : <%=rs("Contact")%></strong> </font><font face="MS Sans Serif, Tahoma, sans-serif" size="1" color="#333333">
<br>
เบอร์โทร<%=rs("tel")%>  เบอร์โทรสำรอง : <%=rs("tel2")%>
</font></td>
</tr>
</table>
<br></td>
</tr>
<%
num = num+1
rowCount = rowCount + 1
rs.MoveNext
loop '--------------------------------------มัน error บรรทัดนี้ค่ะ---------------------------------' แน่นอน เพราะเงื่อนไขอยู่อีกบันทัด
Else '-----------------นี่ไงเงื่อนไขของ if เพราะฉะนั้นต้องย้าย while ลงมาใน if กลับขึ้นไปดูที่แกให้ด้วยคับ
%>
<table width="100%" cellspacing="0" border="0">
<tr>
<td colspan="5" valign=center bgcolor="#FAFDFC" class="darkgray"><div align="center" class="style81">ไม่พบข้อมูลที่ต้องการค้นหา </div></td>
</tr>
<%End If%>
</form>
</table>
<table width="100%" border="0" align="center" class="category">
<tr>
<td>
<div align="center"><font size="1" face="MS Sans Serif">Page Number : </font>
<div align="center">
<%
sType = Request.QueryString("sType")
Call ShowPageNum(Rec, Page, "post_boardquestion.asp" type_car, Prod, ProdType, startyear, stopyear, stratprice, stopprice, sType)
%>
</div>
<font face="MS Sans Serif" size="1"> </font></div></td>
</tr>
</table></td>
<td width="22%" valign="top"><table id="Table_01" width="242" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="51" colspan="5"><img src="images/post_nt1_01.gif" width="242" height="51" alt=""></td>
</tr>
<tr>
<td height="139" background="images/nt1_02.gif"> </td>
<td colspan="3" valign="top"><table id="search" width="100%" border="0" cellpadding="0" cellspacing="0" class="black">
<form action="" method="post" name="form1">
<tr>
<td width="19%" height="31" align="center" ><div align="left">
<div align="left"><strong>ประเภท</strong></div>
</div></td>
<td width="81%" height="31" align="center" ><div align="left">
<select class="back" id="type" onChange="populateList('os');" name="type">
<option value="" selected>- กรุณาเลือกประเภท -</option>
<option value="1">รถเก๋ง</option>
<option value="2">รถ SUV</option>
<option value="3">รถตู้</option>
<option value="4">รถกระบะ</option>
</select>
</div></td>
</tr>
<tr >
<td width="19%" height="31" align="center" ><div align="left">
<div align="left"><strong>ยี่ห้อ</strong></div>
</div></td>
<td width="81%" height="31" align="center" ><div align="left">
<select name="prodType" class="black" id="prodType" onChange="populateList('prod');" >
<option value="" selected>- กรุณาเลือกยี่ห้อ -</option>
<option value="ALFA ROMEO">ALFA ROMEO</option>
<option value="AUDI">AUDI</option>
<option value="BMW">BMW</option>
<option value="CHEVROLET">CHEVROLET</option>
<option value="CHRYSLER">CHRYSLER</option>
<option value="CITROEN">CITROEN</option>
<option value="DAEWOO">DAEWOO</option>
<option value="DAIHATSU">DAIHATSU</option>
<option value="FIAT">FIAT</option>
<option value="FORD">FORD</option>
<option value="HOLDEN">HOLDEN</option>
<option value="HONDA">HONDA</option>
<option value="HYUNDAI">HYUNDAI</option>
<option value="ISUZU">ISUZU</option>
<option value="JAGUAR">JAGUAR</option>
<option value="LEXUS">LEXUS</option>
<option value="MASERATI">MASERATI</option>
<option value="MAZDA">MAZDA</option>
<option value="MERCEDES-BENZ">MERCEDES-BENZ</option>
<option value="MITSUBISHI">MITSUBISHI</option>
<option value="NISSAN">NISSAN</option>
<option value="OPEL">OPEL</option>
<option value="PEUGEOT">PEUGEOT</option>
<option value="PORSCHE">PORSCHE</option>
<option value="RENAULT">RENAULT</option>
<option value="ROLLS-ROYCE">ROLLS-ROYCE</option>
<option value="ROVER">ROVER</option>
<option value="SAAB">SAAB</option>
<option value="SUBARU">SUBARU</option>
<option value="SUZUKI">SUZUKI</option>
<option value="TOYOTA">TOYOTA</option>
<option value="VOLKSWAGEN">VOLKSWAGEN</option>
<option value="VOLVO">VOLVO</option>
</select>
</div></td>
</tr>
<tr>
<td height="32" align="center"><div align="left" >
<div align="left"><strong>รุ่น</strong></div>
</div></td>
<td align="center" ><div align="left">
<select name="prod" class="black" id="prod" onChange="populateList('prods');">
<option value="">- กรุณาเลือกรุ่น -</option>
</select>
</div></td>
</tr>
<tr>
<td height="11" align="center" ><div align="left">
<div align="left"><strong>ปี</strong> </div>
</div></td>
<td height="11" align="center" ><div align="left">
<input name="startyear" class=black id="startyear" style="width:60" size="4" maxlength="4">
<strong>ถึง</strong>
<input name="stopyear" class=black id="stopyear" style="width:60" size="4" maxlength="4">
<font face="MS Sans Serif" size="2">
</font></div></td>
</tr>
</form>
<tr>
<td height="11" align="center" ><div align="left">
<div align="left"><strong>ราคา</strong> </div>
</div></td>
<td height="11" align="center" ><div align="left">
<input name="stratprice" class=black id="stopprice" style="width:60" size="4" maxlength="4">
<strong>ถึง</strong>
<input name="stoppricer" class=black id="stoppricer" style="width:60" size="4" maxlength="4">
<font face="MS Sans Serif" size="2">
</font></div></td>
</tr>
</form>

<tr>
<td colspan="2" height="30"><div align="center">
<input name="Search" type="button" value="search">
</div></td>
</tr>
</table></td>
<td background="images/nt1_04.gif"></td>
</tr>
<tr>
<td colspan="5"><img src="images/nt1_05.gif" width="242" height="8" alt=""></td>
</tr>
<tr>
<td colspan="2"><img src="images/nt1_09.gif" width="16" height="20" alt=""></td>
<td><img src="images/nt1_10.gif" width="212" height="20" alt=""></td>
<td colspan="2"><img src="images/nt1_11.gif" width="14" height="20" alt=""></td>
</tr>
<tr>
<td><img src="images/spacer.gif" width="6" height="1" alt=""></td>
<td><img src="images/spacer.gif" width="10" height="1" alt=""></td>
<td><img src="images/spacer.gif" width="212" height="1" alt=""></td>
<td><img src="images/spacer.gif" width="10" height="1" alt=""></td>
<td><img src="images/spacer.gif" width="4" height="1" alt=""></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" valign="bottom"><div align="center"><font face="MS Sans Serif" size="1" color="#999999"><b>เพื่อนบ้าน : <a href="http://www.rodyont.com/web.php" target="_blank" class="post">รถ</a> <a href="http://www.rodyont.com" target="_blank" class="post">รถใหม่</a> <a href="http://www.rodyont.com/usedcar.php" target="_blank" class="post">รถบ้าน</a> <a href="http://www.rodyont.com/usedcar.php" target="_blank" class="post">รถมือสอง</a>  <a href="http://www.rodyont.com" target="_blank" class="post">ราคารถใหม่</a></b></font></div></td>
</tr>
</table>

<table width="994" height="25" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="98%" bgcolor="#FF6904">
<div align="center" class="style131">
<strong>Copyrights (c) 2007 by ThaiCar Dot Com Co.,Ltd.</strong>Tel. 0-2261-8596 Fax 0-2261-8597
 
<SCRIPT LANGUAGE="javascript1.1" src="http://hits3.truehits.net/data/q0027634.js"></SCRIPT>
<br>
</div>
</td>
<td width="2%" align="left" valign="middle" bgcolor="#FF6904">


</td>
</tr>
</table>
<%
rs.Close
Set rs = Nothing
Call DisconnectDB()
%>
<%
'response.write sWhere
%>
</body>
</html>

Date : 24 พ.ค. 2551 01:54:28

By : varayut

No. 4

Guest

น่าจะโอเคละ ได้ไม่ได้ยังไงก็บอกนะครับ

ปล.อย่าเรียกพี่เด่วผมจาอายุสั้น

Date : 24 พ.ค. 2551 01:55:33

By : varayut

No. 5

Guest

Code แบบนี้ใช้ ดรีมทำแน่ๆ ใช่มั้ยคับ

Date : 26 พ.ค. 2551 23:25:46

By : กระแต

No. 6

Guest

<a href=http://www.rod2hand.com>Rod2hand.com, รถมือสอง, ซื้อรถ, ขายรถ, รถแต่ง, เต้นท์รถ</a>

Date : 24 มิ.ย. 2551 23:17:01

By : rod2hand

No. 7

Guest

[url=http://www.rod2hand.com]Rod2hand.com, รถมือสอง, ซื้อรถ, ขายรถ, รถแต่ง, เต้นท์รถ[/url]

Date : 24 มิ.ย. 2551 23:17:48

By : rod2hand

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ช่วยแก้ให้หน่อยนะทำไม่ได้ค่ะ มัน error loop @ codepage=874 Session.LCID = 1054

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก