1 svar · 226 visningar · startad av Gimbo
Hejsan, har snickrat ihop denna kod, som jag vill skall fungera som en tradmeny, dvs nar jag klickar pa nagonting i menyn sa skall dess undermny dyka upp under och inte helt ensamma som de gor nu, just nu nar jag klickar pa ngt i menyn sa dyker dess underlankar upp helt ensamma dvs huvudmenyn forsvinner, hur skall jag fixa detta??
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "xxx", "xxx", "xxx"
If Request.Querystring("s") = "" then
SQL = "SELECT DISTINCT productCategoryID FROM ProductItem"
set rs = Conn.execute(SQL)
'0=======================
'0====Getting the menu===
'0=======================
response.write "<b>HOME</b>"
response.write "<br>"
do until rs.eof
response.write "<a href=""products.asp?s=1&product="&rs("productCategoryID")&" ""> - "&rs("productCategoryID")&"</a> <br>"
rs.MoveNext
loop
elseif Request.Querystring("s") = "1" then
SQL = "SELECT DISTINCT productTypeID FROM ProductItem WHERE productCategoryID = '"&Request.Querystring("product")&"' "
set rs = Conn.execute(SQL)
'0==========================
'0====Getting the SubMenu===
'0==========================
do until rs.eof
response.write "<a href=""products.asp?s=1&rug="&rs("productTypeID")&" ""> - "&rs("productTypeID")&"</a> <br>"
rs.MoveNext
loop
else
response.write "problems"
end if
conn.close
set Conn = nothing
set rs = nothing
%>
själv kör jag med en nästlad sats, nackdelen är att man inte kan fälla ihop den :-)
<%if request("info") = "" then%>
<table><tr>
<td></td>
</tr></table>
<%else%>
<%end if%>
<!-- -->
<!-- Ändra Lösenord -->
<%if request("info") = "personal" and request("change") = "pass" then%>
o s v