บริษัท
ห้างเทพนคร จำกัด
<%
Sql = "Select ID_pro, Id_typ from Product ,Type_Product, BrandProduct where Typ_Pro = Id_typ and Bra_Pro = ID_Bra "
set Rs = server.CreateObject("ADODB.RECORDSET")
Rs.open Sql ,adoCon,3,3
array001 = "":array002 = "":array003 = "":array004 = "":array005 = ""
do until rs.eof
select case rs("Id_typ")
case "001"
array001 = array001 & rs("Id_typ") & "," & rs("ID_pro") & "|"
case "002"
array002 = array002 & rs("Id_typ") & "," & rs("ID_pro") & "|"
case "003"
array003 = array003 & rs("Id_typ") & "," & rs("ID_pro") & "|"
case "004"
array004 = array004 & rs("Id_typ") & "," & rs("ID_pro") & "|"
case "005"
array005 = array005 & rs("Id_typ") & "," & rs("ID_pro") & "|"
end select
rs.movenext
loop
Rndpass = ""
Endarray = 0
Do Until Endarray = 5
Randomize
random = int(rnd * 5)
NotIn = 0
if Rndpass <> "" then
ArrayRndPass = Split(Rndpass,",")
NotIn = 0
For j = 0 to UBound(ArrayRndPass)
if trim(random) = trim(arrayRndpass(j)) then NotIn = 1
next
end if
if NotIn = 0 then
Rndpass = Rndpass & random & ","
Endarray = Endarray + 1
end if
loop
ArrayRndPass = Split(Rndpass,",")
for i = 0 to UBound(ArrayRndPass) - 1
select case ArrayRndPass(i)
case "0"
Datashow = Split(array001,"|")
case "1"
Datashow = Split(array002,"|")
case "2"
Datashow = Split(array003,"|")
case "3"
Datashow = Split(array004,"|")
case "4"
Datashow = Split(array005,"|")
end select
random = int(rnd * UBound(Datashow))
if random >= 0 then
Showdata = Datashow(random)
DataCheck = Split(Datashow(random),",")
Sql = "Select ID_pro, Name_pro,Des_pro, Name_ttp, Name_Bra,Typ_pro from Product ,Type_Product, BrandProduct where Typ_Pro = Id_typ and Bra_Pro = ID_Bra and Id_Typ ='" & DataCheck(0) & "' and ID_pro ='" & DataCheck(1) & "' order by Id_Pro"
set Rs = server.CreateObject("ADODB.RECORDSET")
Rs.open Sql ,adoCon,3,3
files = "Database/Pic/" & rs("Name_ttp") & "/" & rs("Name_Pro") & "/" & rs("Name_Pro") & "_S.jpg"
filesR = files
files = server.MapPath(files)
if ReportFilestatus(files) = false then
filesR= "Database/Pic/Notpic_S.jpg"
end if
%>
<%
end if
next
%>
-
