selvfølgelig ikke ;0)
<%
db = "../../DB/mmrweb.mdb"
dim sea3(10), sea4(10)
sea3(1) = "CD/CD/CD"
sea4(1) = "CD - CD"
sea3(2) = "CD/MAXI/MAXICD"
sea4(2) = "CD - MAXI"
sea3(3) = "CD/NYE/NYECD"
sea4(3) = "CD - NYE"
sea3(4) = "DVD/FILM/DVD"
sea4(4) = "DVD - FILM"
sea3(5) = "VINYL/GÆSTELISTE/VINYLGUEST"
sea4(5) = "VINYL - GÆSTELISTE"
sea3(6) = "VINYL/LP/LP"
sea4(6) = "VINYL - LP"
sea3(7) = "VINYL/MAXI/MAXI"
sea4(7) = "VINYL - MAXI"
sea3(8) = "VINYL/NYE/NYEPLADER"
sea4(8) = "VINYL - NYE"
sea3(9) = "VINYL/SINGLER/SINGLER"
sea4(9) = "VINYL - SINGLER"
sea4(10) = "SPIL"
sea3(10) = "Games/SPIL/Games"
sea2 = Split(request("cats"),"/")
'0 = kategori
'1 = underkategori
'2 = tabel
sea = Split(request("cat"),"/")
'0 = kategori
'1 = underkategori
'2 = tabel
'3 = sortering
'4 = Antal pr. side
'5 = Fra
'6 = søgeord
'7 = Felt der sorteres på
seatest = sea(0) & "/" & sea(1) & "/" & sea(2)
if request("cats") <> "" and request("cats") <> seatest then
sea(0) = sea2(0)
sea(1) = sea2(1)
sea(2) = sea2(2)
end if
select case sea(2)
case "CD"
catsub = "CC"
art = "Kunstner"
sql = 1
case "DVD"
catsub = "DV"
art = "Kunstner"
sql = 1
case "LP"
catsub = "VL"
art = "Kunstner"
sql = 1
case "MAXI"
catsub = "VM"
art = "Kunstner"
sql = 1
case "MAXICD"
catsub = "CM"
art = "Kunstner"
sql = 1
case "NYECD"
catsub = "CN"
art = "Kunstner"
sql = 1
case "NYEPLADER"
catsub = "VN"
art = "Kunstner"
sql = 1
case "SINGLER"
catsub = "VS"
art = "Kunstner"
sql = 1
case "VINYLGUEST"
catsub = "VG"
art = "Kunstner"
sql = 1
case "Games"
catsub = "GA"
art = "Producent"
sql = 2
end select
sea(6) = replace(sea(6), "*", " ")
if request("searhwords") = "" then searchword = sea(6)
if request("searhwords") <> "" then searchword = request("searhwords")
if request("D1") <> sea(4) then
numbers = sea(4)
else
numbers = sea(4)
end if
fra = sea(5)
if request("fra") <> "" then fra = request("fra")
Set con = Server.CreateObject("ADODB.Connection")
con.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../system/mmr-ini.mdb")
con.Open
strSQL = "SELECT Key, Keyvalue, Keynumber FROM inikeys WHERE Keysection Like 'main' Order by Keynumber;"
Set rs=con.execute(strSQL)
main=rs.getrows()
antal=ubound(main,2)
con.Close
set con = nothing
set rs = nothing
%>
<%
function findmenu(streng, numb)
strtemp = Split(streng,"|")
lang = strtemp(lg)
findtemp = Split(lang,"*")
findmenu = findtemp(numb)
end function
function findtext(streng)
strtemp = Split(streng,"|")
findtext = strtemp(lg)
end function
%>
<%
Response.Write("<!-- " & vbcrlf)
Response.Write(" 1 ) Reference to the files containing the javascript. " & vbcrlf)
Response.Write(" These files must be located on your server. " & vbcrlf)
Response.Write("-->" & vbcrlf)
Response.Write("<script type=""text/javascript"" src=""scripts/highslide/highslide.js""></script>" & vbcrlf)
Response.Write("<script type=""text/javascript"" src=""scripts/highslide/highslide-html.js""></script>" & vbcrlf)
Response.Write("<!-- " & vbcrlf)
Response.Write(" 2) Optionally override the settings defined at the top" & vbcrlf)
Response.Write(" of the highslide.js file. The parameter hs.graphicsDir is important!" & vbcrlf)
Response.Write("-->" & vbcrlf)
Response.Write("<script type=""text/javascript""> " & vbcrlf)
Response.Write(" hs.graphicsDir = 'scripts/highslide/graphics/';" & vbcrlf)
Response.Write(" hs.outlineType = 'rounded-white';" & vbcrlf)
Response.Write(" hs.outlineWhileAnimating = true;" & vbcrlf)
Response.Write(" hs.objectLoadTime = 'after';" & vbcrlf)
Response.Write("</script>" & vbcrlf)
Response.Write("<!-- " & vbcrlf)
Response.Write(" 3) These CSS-styles are necessary for the script to work. You may also put" & vbcrlf)
Response.Write(" them in an external CSS-file. See the webpage for documentation." & vbcrlf)
Response.Write("-->" & vbcrlf)
Response.Write("<style type=""text/css"">" & vbcrlf)
Response.Write("a.highslide {" & vbcrlf)
Response.Write(" font-family: Verdana, Helvetica;" & vbcrlf)
Response.Write(" font-size: 10pt;" & vbcrlf)
Response.Write(" color: #fff;" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write("a:hover.highslide {" & vbcrlf)
Response.Write(" font-family: Verdana, Helvetica;" & vbcrlf)
Response.Write(" font-size: 10pt;" & vbcrlf)
Response.Write(" color: #fff;" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write(".highslide-html {" & vbcrlf)
Response.Write(" background-color: white;" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write(".highslide-html-content {" & vbcrlf)
Response.Write(" position: absolute;" & vbcrlf)
Response.Write(" display: none;" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write(".highslide-loading {" & vbcrlf)
Response.Write(" display: block;" & vbcrlf)
Response.Write(" color: black;" & vbcrlf)
Response.Write(" font-size: 10pt;" & vbcrlf)
Response.Write(" font-family: sans-serif;" & vbcrlf)
Response.Write(" font-weight: bold;" & vbcrlf)
Response.Write(" text-decoration: none;" & vbcrlf)
Response.Write(" padding: 2px;" & vbcrlf)
Response.Write(" border: 1px solid black;" & vbcrlf)
Response.Write(" background-color: white;" & vbcrlf)
Response.Write(" " & vbcrlf)
Response.Write(" /*padding-left: 22px;" & vbcrlf)
Response.Write(" background-image: url(scripts/highslide/graphics/loader.white.gif);" & vbcrlf)
Response.Write(" background-repeat: no-repeat;" & vbcrlf)
Response.Write(" background-position: 3px 1px;*/ " & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write(".control {" & vbcrlf)
Response.Write(" float: right;" & vbcrlf)
Response.Write(" display: block;" & vbcrlf)
Response.Write(" /*position: relative;*/" & vbcrlf)
Response.Write(" margin: 0 5px;" & vbcrlf)
Response.Write(" font-size: 10px;" & vbcrlf)
Response.Write(" font-weight: bold;" & vbcrlf)
Response.Write(" text-decoration: none;" & vbcrlf)
'Response.Write(" text-transform: uppercase;" & vbcrlf)
Response.Write(" color: #999;" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write(".control:hover {" & vbcrlf)
Response.Write(" color: black !important;" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write(".highslide-move {" & vbcrlf)
Response.Write(" cursor: move;" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write(".highslide-display-block {" & vbcrlf)
Response.Write(" display: block;" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write(".highslide-display-none {" & vbcrlf)
Response.Write(" display: none;" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write("</style>" & vbcrlf)
%>
<script type="text/javascript">
function findNextTr(elm){
var t = elm;
while(t.tagName!='TR')t = t.parentNode;
t = t.nextSibling;
while(t.tagName!='TR')t = t.nextSibling;
return t;
}
window.onload = function() {
document.getElementById("_load").style.display="none";
}
</script>
<%
Antalprside = numbers
Sidenavn = "showrecords.php?colstyle=1&"
'Sidenavn = Request.ServerVariables("SCRIPT_NAME") & "?"
Startpost = 0
Sortering1 = sea(7)
Sortering2 = sea(3)
Sortering = Sortering1 & Sortering2
if sea(7) = "Type" then sea(7) = "[" & sea(7) & "]"
if sea(3) <> "" then
Sortering = sea(7) & " " & sea(3)
else
if sql = 1 then
Sortering = "Kunstner ASC"
else
Sortering = "Titel ASC"
end if
end if
'if request("sortnavn") <> "" then Sortering = replace(Sortering,"Nr",request("sortnavn"))
'if request("sortart") <> "" then Sortering = replace(Sortering,"ASC",request("sortart"))
if fra <> "" then Startpost = cint(fra)
Set con = Server.CreateObject("ADODB.Connection")
con.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(db)
con.Open
if searchword <> "" then
if sql = 1 then
strSQL = "SELECT Nr, Kunstner, Titel, Pris, [Årgang], Label, Nummer, Land, Stand, [Type], image FROM " & sea(2) & " WHERE Kunstner LIKE '%" & replace(searchword, " ", "%") & "%' OR Titel LIKE '%" & replace(searchword, " ", "%") & "%' OR [Type] like '%" & replace(searchword, " ", "%") & "%' Order by " & Sortering
end if
if sql = 2 then
strSQL = "SELECT Nr, Kunstner, Titel, Pris, [Årgang], Label, Nummer, Land, Stand, [Type], image FROM " & sea(2) & " WHERE Kunstner LIKE '%" & replace(searchword, " ", "%") & "%' OR Titel LIKE '%" & replace(searchword, " ", "%") & "%' OR [Type] like '%" & replace(searchword, " ", "%") & "%' Order by " & Sortering
'strSQL = "SELECT Nr, Kunstner, Titel, Pris, [Årgang], Label, Nummer, Land, Stand, [Type], image FROM " & sea(2) & " WHERE Titel LIKE '%" & replace(searchword, " ", "%") & "%' Order by " & Sortering
end if
else
strSQL = "SELECT Nr, Kunstner, Titel, Pris, [Årgang], Label, Nummer, Land, Stand, [Type], image FROM " & sea(2) & " Order by " & Sortering
end if
Set rs=con.execute(strSQL)
if rs.eof or rs.bof then
antal = 0
else
count=0
arr=rs.getrows()
antal=ubound(arr,2)
end if
con.Close
set con = nothing
set rs = nothing
Slutpost = Startpost + Antalprside -1
if Slutpost>antal then Slutpost=antal
%>
<style>
.komb {
border: 1px solid Blue;
}
</style>
<body>
<center><div id="_load" style="width:100%;height:100%;z-index:99;background-color:white;">Page loading....</div></center>
<% 'response.write strSQL %>
<form name="searching" Action="<%=Sidenavn%>cat=<%=sea(0)%>/<%=sea(1)%>/<%=sea(2)%>/<%=Sortering2%>/<%=numbers%>/0//<%=Sortering1%>" method="POST" style="margin-top: 0; margin-bottom: 0">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="97%" id="AutoNumber1" height="22">
<tr>
<td width="13%" height="22" valign="top"><font face="Verdana">
<img border="1" src="images/system/lupe_ani.gif" align="absbottom" width="17" height="18"><font size="2"><b>R</b></font><b><font size="2">esultat</font></b></font></td>
<td width="87%" height="22">
<p align="center"><font face="Verdana" size="1"><b>Søgeord:</b>
<input type="text" value="<%=searchword%>" name="searhwords" size="20" style="font-size: 8 pt; font-family: Verdana">
<b>i </b> <select size="1" name="cats" style="font-size: 8 pt; font-family: Verdana">
<%
for r = 1 to 10
if sea3(r) = seatest then %>
<option value="<%=sea3(r)%>" SELECTED><%=sea4(r)%></option>
<% else %>
<option value="<%=sea3(r)%>"><%=sea4(r)%></option>
<% end if %>
<% next %>
</select><input type="submit" value="Søg" name="B1" style="font-size: 8 pt; font-family: Verdana">
<b>Antal pr. side:</b>
<select size="1" name="D1" style="font-size: 8 pt; font-family: Verdana" onchange="window.searching.submit();">
<%
for x = 15 to 60 step 15
if int(numbers) = int(x) then
Response.Write("<option value=""" & x & """ selected>" & x & "</option>" & vbcrlf)
else
Response.Write("<option value=""" & x & """>" & x & "</option>" & vbcrlf)
end if
next
%>
</select></font></td>
</tr>
</table>
</form>
<font face="Verdana"><b><font size="2">Katalog:</font></b><b>
<font size="2" color="#0000FF"><%=sea(0)%>(<%=sea(1)%>)</font><br><font size="2">Søgeord: <font size="2" color="#0000FF"><%=searchword%></font><br>
</font></b>
<br>
<% if antal = 0 then
response.write "<center> Søgningen gav ingen resultater! </center>"
else
%>
<FORM METHOD="POST" ACTION="<%=Sidenavn%>cat=<%=sea(0)%>/<%=sea(1)%>/<%=sea(2)%>/<%=Sortering2%>/<%=sea(4)%>/<%=Startpost%>/<%=searchword%>/<%=Sortering1%>" style="margin-top: 0; margin-bottom: 0">
<%
sidestart=0
sideantal=1+int(antal/Antalprside)
foersteside=0
sidsteside=(sideantal-1)*Antalprside
tilbage=Startpost-Antalprside
if tilbage<0 then tilbage=0
frem=Startpost+Antalprside
if frem>antal then frem=antal+1
%><center>
<% if Startpost > 0 then %>
<a href="<%=Sidenavn%>cat=<%=sea(0)%>/<%=sea(1)%>/<%=sea(2)%>/<%=Sortering2%>/<%=sea(4)%>/0/<%=searchword%>/<%=Sortering1%>" onMouseOver="window.status=' '; return true" onMouseOut="window.status=' '">
<img src="images/system/f1.gif" alt="Første side" border="1" class="komb" style="border-width: 0"></a> <a href="<%=Sidenavn%>cat=<%=sea(0)%>/<%=sea(1)%>/<%=sea(2)%>/<%=Sortering2%>/<%=sea(4)%>/<%=tilbage%>/<%=searchword%>/<%=Sortering1%>" onMouseOver="window.status=' '; return true" onMouseOut="window.status=''">
<img src="images/system/b1.gif" alt="Forrige side" border="1" class="komb" style="border-width: 0"></a><% end if %>
<select name="fra" size="1" onchange="submit(this)" style="font-family: Verdana; font-size: 10; color: #0000FF">
<%
for i=1 to sideantal
response.write "<option value='" & sidestart & "'"
if sidestart=Startpost then response.write " selected"
sidste=sidestart+Antalprside-1
if sidste > antal then sidste = antal
response.write ">" & sidestart + 1 & " - " & sidste + 1 & "</option>"
sidestart=sidestart+Antalprside
next
%>
</select>
<% if Startpost < sidsteside then %> <a href="<%=Sidenavn%>cat=<%=sea(0)%>/<%=sea(1)%>/<%=sea(2)%>/<%=Sortering2%>/<%=sea(4)%>/<%=frem%>/<%=searchword%>/<%=Sortering1%>" onMouseOver="window.status=''; return true" onMouseOut="window.status=''"><img src="images/system/n1.gif" alt="Næste side" border="1" class="komb" style="border-width: 0"></a>
<a href="<%=Sidenavn%>cat=<%=sea(0)%>/<%=sea(1)%>/<%=sea(2)%>/<%=Sortering2%>/<%=sea(4)%>/<%=sidsteside%>/<%=searchword%>/<%=Sortering1%>" onMouseOver="window.status=' '; return true" onMouseOut="window.status=''">
<img src="images/system/l1.gif" alt="Sidste side" border="1" class="komb" style="border-width: 0"></a><% end if %></center>
</form>
<font size="1">
<br>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="97%" id="AutoNumber2">
<tr>
<!-- <td width="83" style="border-bottom-style: solid; border-bottom-width: 1">
<b><font face="Verdana" size="1" color="#0000FF">Ordrenr</font></b></td> -->
<td width="286" style="border-bottom-style: solid; border-bottom-width: 1">
<b><font face="Verdana" size="1" color="#0000FF"><%=art%>
<a href="<%=Sidenavn%>cat=<%=sea(0)%>/<%=sea(1)%>/<%=sea(2)%>/ASC/<%=sea(4)%>/<%=Startpost%>/<%=searchword%>/Kunstner" onMouseOver="window.status=' '; return true" onMouseOut="window.status=' '">
<img border="1" alt="Sorter stigende" src="images/system/sortasc.gif" class="komb" style="border-width: 0"></a>
<a href="<%=Sidenavn%>cat=<%=sea(0)%>/<%=sea(1)%>/<%=sea(2)%>/DESC/<%=sea(4)%>/<%=Startpost%>/<%=searchword%>/Kunstner" onMouseOver="window.status=' '; return true" onMouseOut="window.status=' '">
<img border="1" alt="Sorter faldende" src="images/system/sortdesc.gif" class="komb" style="border-width: 0"></a></font></b></td>
<td width="290" style="border-bottom-style: solid; border-bottom-width: 1">
<b><font face="Verdana" size="1" color="#0000FF">Titel
<a href="<%=Sidenavn%>cat=<%=sea(0)%>/<%=sea(1)%>/<%=sea(2)%>/ASC/<%=sea(4)%>/<%=Startpost%>/<%=searchword%>/Titel" onMouseOver="window.status=' '; return true" onMouseOut="window.status=' '">
<img border="1" alt="Sorter stigende" src="images/system/sortasc.gif" class="komb" style="border-width: 0"></a>
<a href="<%=Sidenavn%>cat=<%=sea(0)%>/<%=sea(1)%>/<%=sea(2)%>/DESC/<%=sea(4)%>/<%=Startpost%>/<%=searchword%>/Titel" onMouseOver="window.status=' '; return true" onMouseOut="window.status=' '">
<img border="1" alt="Sorter faldende" src="images/system/sortdesc.gif" class="komb" style="border-width: 0"></a></font></b></td>
<td width="85" style="border-bottom-style: solid; border-bottom-width: 1">
<b><font face="Verdana" size="1" color="#0000FF">Type
<a href="<%=Sidenavn%>cat=<%=sea(0)%>/<%=sea(1)%>/<%=sea(2)%>/ASC/<%=sea(4)%>/<%=Startpost%>/<%=searchword%>/Type" onMouseOver="window.status=' '; return true" onMouseOut="window.status=' '">
<img border="1" alt="Sorter stigende" src="images/system/sortasc.gif" class="komb" style="border-width: 0"></a>
<a href="<%=Sidenavn%>cat=<%=sea(0)%>/<%=sea(1)%>/<%=sea(2)%>/DESC/<%=sea(4)%>/<%=Startpost%>/<%=searchword%>/Type" onMouseOver="window.status=' '; return true" onMouseOut="window.status=' '">
<img border="1" alt="Sorter faldende" src="images/system/sortdesc.gif" class="komb" style="border-width: 0"></a></font></b></td>
<td width="53" style="border-bottom-style: solid; border-bottom-width: 1">
<b><font face="Verdana" size="1" color="#0000FF">Dkr Pris</font></b></td>
<td width="42" style="border-bottom-style: solid; border-bottom-width: 1">
<p align="center"> </td>
<td width="19" style="border-bottom-style: solid; border-bottom-width: 1">
<p align="center"> </td>
</tr>
<%
counter = 0
for i = Startpost to Slutpost
if counter = 1 then
counter = 0
else
counter = 1
end if
if counter = 0 then
color="#ffffff"
else
color="#E3E3E3"
end if
if arr(1,i) <> "" then
tempest = replace(arr(1,i),"'","´")
else
tempest = arr(1,i)
end if
Response.Write("<tr>" & vbcrlf)
'Response.Write(" <td width=""83"" bgcolor=""" & color & """>" & vbcrlf)
'Response.Write(" <font face=""Verdana"" size=""1"" color=""#0000FF"">" & arr(0,i) & "</font></td>" & vbcrlf)
Response.Write(" <td width=""286"" bgcolor=""" & color & """>" & vbcrlf)
Response.Write(" <font face=""Verdana"" size=""1"">" & tempest & "</font></td>" & vbcrlf)
Response.Write(" <td width=""290"" bgcolor=""" & color & """>" & vbcrlf)
Response.Write(" <font face=""Verdana"" size=""1"">" & replace(arr(2,i),"'","´") & "</font></td>" & vbcrlf)
Response.Write(" <td width=""85"" bgcolor=""" & color & """>" & vbcrlf)
Response.Write(" <font face=""Verdana"" size=""1"" color=""#0000FF"">" & arr(9,i) & "</font></td>" & vbcrlf)
Response.Write(" <td width=""53"" bgcolor=""" & color & """>" & vbcrlf)
Response.Write(" <p align=""center""><font face=""Verdana"" size=""1"" color=""#0000FF"">" & arr(3,i) & "</font></td>" & vbcrlf)
Response.Write(" <td width=""42"" align=""center"">" & vbcrlf)
if arr(10,i) <> "" then
Response.Write(" <a id=""thumb"" href=""../albumimages/" & arr(10,i) & """ class=""highslide""" & vbcrlf)
Response.Write(" onclick=""return hs.expand(this, { captionEval: 'this.thumb.alt' })"">" & vbcrlf)
Response.Write(" <img border=""0"" src=""images/system/cam.gif"" alt="""" />" & vbcrlf)
Response.Write(" </a> " & vbcrlf)
end if
Response.Write(" <a href=""
http://mysterymanrecords.dk/danish/therecord.asp?rec=" & sea(0) & "/" & sea(1) & "/" & sea(2) & "/" & arr(0,i) & """ onclick=""return hs.htmlExpand(this, { contentId: 'highslide-html', objectType: 'iframe', objectWidth: 460, objectHeight: 220} )"" class=""highslide""><img border='0' src='images/system/info.gif' Alt='Vareinfo'></a>" & vbcrlf)
Response.Write("</td>" & vbcrlf)
Response.Write(" <td width=""19"">" & vbcrlf)
Response.Write(" <p align=""center"">" & vbcrlf)
Response.Write(" <A HREF=""java script:void(0)"" onClick='top.tilskrivVare(""<b>" & replace(arr(2,i), "'", "´") & "</b><BR>" & tempest & "(" & catsub & arr(0,i) & ")"", top.prisKonvert(" & arr(3,i) & "));'><img border=""1"" src=""images/system/kurvJuster.gif"" Alt='Læg i varekurv'></a></td>" & vbcrlf)
Response.Write(" </tr>")
next
%>
<!-- slut på selve dataudtrækket -->
<!-- Skal valg af side og sortering ligge i bunden, skal det ligge her -->
</table><br>
<FORM METHOD="POST" ACTION="<%=Sidenavn%>cat=<%=sea(0)%>/<%=sea(1)%>/<%=sea(2)%>/<%=Sortering2%>/<%=sea(4)%>/<%=Startpost%>/<%=searchword%>/<%=Sortering1%>" style="margin-top: 0; margin-bottom: 0">
<%
sidestart=0
sideantal=1+int(antal/Antalprside)
foersteside=0
sidsteside=(sideantal-1)*Antalprside
tilbage=Startpost-Antalprside
if tilbage<0 then tilbage=0
frem=Startpost+Antalprside
if frem>antal then frem=antal+1
%><center>
<% if Startpost > 0 then %>
<a href="<%=Sidenavn%>cat=<%=sea(0)%>/<%=sea(1)%>/<%=sea(2)%>/<%=Sortering2%>/<%=sea(4)%>/0/<%=searchword%>/<%=Sortering1%>" onMouseOver="window.status=' '; return true" onMouseOut="window.status=' '">
<img src="images/system/f1.gif" alt="Første side" border="1" class="komb" style="border-width: 0"></a> <a href="<%=Sidenavn%>cat=<%=sea(0)%>/<%=sea(1)%>/<%=sea(2)%>/<%=Sortering2%>/<%=sea(4)%>/<%=tilbage%>/<%=searchword%>/<%=Sortering1%>" onMouseOver="window.status=' '; return true" onMouseOut="window.status=''">
<img src="images/system/b1.gif" alt="Forrige side" border="1" class="komb" style="border-width: 0"></a><% end if %>
<select name="fra" size="1" onchange="submit(this)" style="font-family: Verdana; font-size: 10; color: #0000FF">
<%
for i=1 to sideantal
response.write "<option value='" & sidestart & "'"
if sidestart=Startpost then response.write " selected"
sidste=sidestart+Antalprside-1
if sidste > antal then sidste = antal
response.write ">" & sidestart + 1 & " - " & sidste + 1 & "</option>"
sidestart=sidestart+Antalprside
next
%>
</select><% if Startpost < sidsteside then %> <a href="<%=Sidenavn%>cat=<%=sea(0)%>/<%=sea(1)%>/<%=sea(2)%>/<%=Sortering2%>/<%=sea(4)%>/<%=frem%>/<%=searchword%>/<%=Sortering1%>" onMouseOver="window.status=''; return true" onMouseOut="window.status=''"><img src="images/system/n1.gif" alt="Næste side" border="1" class="komb" style="border-width: 0"></a>
<a href="<%=Sidenavn%>cat=<%=sea(0)%>/<%=sea(1)%>/<%=sea(2)%>/<%=Sortering2%>/<%=sea(4)%>/<%=sidsteside%>/<%=searchword%>/<%=Sortering1%>" onMouseOver="window.status=' '; return true" onMouseOut="window.status=''">
<img src="images/system/l1.gif" alt="Sidste side" border="1" class="komb" style="border-width: 0"></a><% end if %></center>
</form>
<% end if %></font></font>
<%
Response.Write("<div class=""highslide-html-content"" id=""highslide-html"" style=""width: 300px"">" & vbcrlf)
Response.Write(" <div class=""highslide-move"" style=""border: 0; height: 18px; padding: 2px; cursor: default"">" & vbcrlf)
Response.Write(" <a href=""#"" onclick=""hs.close(this); return false"" class=""control"">LUK</a>" & vbcrlf)
Response.Write(" </div>" & vbcrlf)
Response.Write(" " & vbcrlf)
Response.Write(" <div class=""highslide-body""></div>" & vbcrlf)
Response.Write(" " & vbcrlf)
Response.Write(" <div style=""text-align: center; border-top: 1px solid silver; padding: 5px 0"">" & vbcrlf)
Response.Write(" <small>" & vbcrlf)
Response.Write(" Powered by <i>CPC Data</i>" & vbcrlf)
Response.Write(" </small>" & vbcrlf)
Response.Write(" </div>" & vbcrlf)
Response.Write("</div>" & vbcrlf)
Response.Write("</div>")
%>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
