Line 23: dbTable = "sub4"
Line 24: ElseIf Request("sub3") = "" And Request("sub2") <> "" Then
Line 25: Dim s1check As DataRow = dbh.GetData("select * from sub1 where sub1pagename='" & Request("sub1") & "'").Rows(0)
Line 26: p = New page1("sub2 where sub2canbeseen='True' and sub2Pagename='" & Request("sub2") & "' and sub1_id1=" & s1check("sub1id1"), "products")
Line 27: SubsFound = dbh.GetData("select * from proionta,sub4,sub3,sub2,sub1 where sub2_id1=" & p.id1 & " and sub1canbeseen='True' and sub1_id1=sub1id1 and sub2canbeseen='True' and sub2_id1=sub2id1 and sub3canbeseen='True' and sub3_id1=sub3id1 and sub4canbeseen='True' and sub4_id1=sub4id1 and proiontacanbeseen='True'")
|