Lav dropdownmenu efter udtræk fra Access database
Jeg har lavet en oversigt, hvor den tager og viser billeder fra min access database. Indtastningen er via upload og i feltetLinkBillede er linket til billede. Feltet Anledning er dette felt jeg ønsker i en dropdownmenu. Dvs. Man kommer ind på siden, hvor man skal vælge anledning. Efter valg viser den alle billeder i den kategori der er valg. Hvis anledning er jul, så er det kun julebillederne der vises. Nedenunder billederne ønsker jeg bemærkning står. Lige nu har jeg også lavet at den viser billede i stort, men ikke tilpasset til billede.Kan i hjælpe med :
-Lav dropdown med anledning sorteret i alfabetisk rækkefølge
Efter valg vises eksempelvis 3 billeder pr. række i bestemt størrelse.
-Klik på billede viser den i stort i tilpasset vindue
- Bemærkning under billede.
<%' If Session("Adgang") = "" then response.Redirect "index.asp" %>
<% If Request("Anledning") = "" then Anledning= "" else Person = Request("Anledning") %>
<html>
<html>
<link href="global.css" rel="stylesheet" type="text/css">
<head>
<title>Vis ønsker www.kennijensen.dk</title>
<link rel="STYLESHEET" type="text/css" href="style.css">
</head>
<body>
<p>
<% Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=Calamus"
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM JeaBilleder order by Anledning"
rs.Open strSQL,conn,,1,1
Response.write "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0""><tr>" & vbcrlf
Response.write "<td width=""181"" class=""tdtop""><strong>Billede</strong></td>" &_
"<td width=""20%"" class=""tdtop"" align=""Center""><strong>Anledning</strong></td>" &_
"<td class=""tdtop""><strong>Bemærkning</strong></td>" & vbcrlf
'"<form action=""OpretBilleder.asp""><td colspan=""2"" align=""Center""><input type=""Submit"" Value=""Opret""></td></form></tr>" & vbcrlf
While Not RS.eof
I = I + 1
response.write "<tr "
If I mod 2 > 0 then Response.write "bgcolor=""#C0C0C0""" else Response.write "bgcolor=""#339966"""
'Response.write "><td> " & RS("Person") & "</td>"
Response.Write "<tr><td class=""tdtop"" align=""Left"" valign=""top""><a href=""#"" Tag=""Vis stort billed"" onclick=""window.open('UploadImages/" & RS("LinkBillede") & "','show','toolbar=no, scrollbars=yes, width=700, height=500')""><img width=""160"" src=""UploadImages/" & RS("LinkBillede") & """ border=""0""></a></td>"
'Response.write "<td style=""font-size: 12px"" align=""Center"">" & RS("Person") & "</td>" & vbcrlf
Response.write "<td style=""font-size: 12px"" align=""Center"">" & RS("Anledning") & "</td>" & vbcrlf
'Response.Write "<td class=""td"" align=""Center"" valign=""Center""><a href=""#"" onclick=""window.open('" & RS("LinkInternetside") & "','show','toolbar=no, scrollbars=yes, width=700, height=500')"">Link</a></td>"
'Response.Write "<td class=""td"" align=""Center"" valign=""Center""><a href=""#"" onclick=""window.open('" & RS("LinkInternetside") & "','show')"">Link</a></td>"
'Response.write "<td style=""font-size: 12px"" align=""Center"">" & RS("LinkBillede") & "</td>" & vbcrlf
'Response.write "<td style=""font-size: 12px"" align=""Center"">" & RS("Pris") & ",-" & "</td>" & vbcrlf
'Response.write "<td style=""font-size: 12px"" align=""Center"">" & RS("KanKobes") & "</td>" & vbcrlf
Response.write "<td style=""font-size: 12px"" align=""Center"">" & RS("Bemaerkning") & "</td>" & vbcrlf
RS.movenext
Wend
Response.write "</table>" & vbcrlf
%>
</p>
<table>
<tr>
</tr>
</table>
</body>
</html>
Tak
