<% Set conn = Server.createObject("ADODB.Connection") conn.Open MM_connect sql = "select * from firstpage Where ID=1" Set rs = conn.Execute(sql) On error Resume Next pronew1 = rs("ProNew1") pronew2 = rs("ProNew2") pronew3 = rs("ProNew3") prorecommend1 = rs("ProRecommend1") prorecommend2 = rs("ProRecommend2") prorecommend3 = rs("ProRecommend3") prorecommend4 = rs("ProRecommend4") promotion = rs("promotion") rs.Close set rs =nothing %> AUTOEXIM.COM - Auto parts, Auto accessories, Cars, Racing, Sports
New Products & Hilight
<% If pronew1 <> 0 Then set rs = conn.Execute("Select ProName,ProImages, ProImageL,ProID,ProDescription,ProPrice,ProDiscount From Product Where ProID="&pronew1) %> <% End If If pronew2 <> 0 Then set rs = conn.Execute("Select ProName,ProImages, ProImageL,ProID,ProDescription,ProPrice,ProDiscount From Product Where ProID="&pronew2) %> <% End If If pronew3 <> 0 Then set rs = conn.Execute("Select ProName,ProImages, ProImageL,ProID,ProDescription,ProPrice,ProDiscount From Product Where ProID="&pronew3) %> <% End If %>
<%=rs("ProName")%>
">" border="0"> <%=Left(rs("ProDescription"),250)%> > ...

">

<% If rs("ProDiscount") = 0 Then Response.Write("ราคา: "&FormatNumber(rs("ProPrice"))&" "&rate) Else Response.Write("ราคา: "&FormatNumber(rs("proprice"))&" "&rate&"
") Response.Write("ราคาพิเศษ: "&FormatNumber(rs("prodiscount"))&" "&rate) End If %>


">

<%=rs("ProName")%>
">" border="0"> <%=Left(rs("ProDescription"),250)%> > ...

">

<% If rs("ProDiscount") = 0 Then Response.Write("ราคา: "&FormatNumber(rs("ProPrice"))&" "&rate) Else Response.Write("ราคา: "&FormatNumber(rs("proprice"))&" "&rate&"
") Response.Write("ราคาพิเศษ: "&FormatNumber(rs("prodiscount"))&" "&rate) End If %>


">

<%=rs("ProName")%>
">" border="0"> <%=Left(rs("ProDescription"),250)%> > ...

">

<% If rs("ProDiscount") = 0 Then Response.Write("ราคา: "&FormatNumber(rs("ProPrice"))&" "&rate) Else Response.Write("ราคา: "&FormatNumber(rs("proprice"))&" "&rate&"
") Response.Write("ราคาพิเศษ: "&FormatNumber(rs("prodiscount"))&" "&rate) End If %>


">

Recommend Products
<% If (prorecommend1 <> 0) And (prorecommend2 <> 0) Then Set rs = conn.Execute("Select ProID,ProName,ProImageS,ProDescription From Product Where ProID="&prorecommend1) proid1 = rs("ProID") proname1 = rs("ProName") proimages1 = rs("ProImageS") prodescription1 = rs("ProDescription") rs.Close set rs = nothing Set rs = conn.Execute("Select ProID,ProName,ProImageS,ProDescription From Product Where ProID="&prorecommend2) proid2 = rs("ProID") proname2 = rs("ProName") proimages2 = rs("ProImageS") prodescription2 = rs("ProDescription") rs.Close set rs = nothing %> <% End If If (prorecommend3 <> 0) And (prorecommend4 <> 0) Then Set rs = conn.Execute("Select ProID,ProName,ProImageS,ProDescription From Product Where ProID="&prorecommend3) proid3 = rs("ProID") proname3 = rs("ProName") proimages3 = rs("ProImageS") prodescription3 = rs("ProDescription") rs.Close set rs = nothing Set rs = conn.Execute("Select ProID,ProName,ProImageS,ProDescription From Product Where ProID="&prorecommend4) proid4 = rs("ProID") proname4 = rs("ProName") proimages4 = rs("ProImageS") prodescription4 = rs("ProDescription") rs.Close set rs = nothing conn.Close set conn =nothing %> <% End If %>
<%=proname1%>
<%=left(prodescription1,150)%>> ...

<%=proname2%>
<%=left(prodescription2,150)%>> ...


<%=proname3%>
<%=left(prodescription3,150)%>> ...

<%=proname4%>
<%=left(prodescription4,150)%>> ...


   
Special Promotion
<%=promotion%>