<% 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 %>

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%>