Hmmm heheh
Du kan väl slå en blick på min kod och ge mig förslag när du sett den :)
<% Option Explicit %>
<!--#include file="../incfiles/adminstatus.inc"-->
<!--#include file="../incfiles/adovbs.inc"-->
<!--#include file="../incfiles/databas.inc"-->
<%
Dim Connection, RS, SQLStmt, uid, avdid, avdelning, val, sid, sid2, scriptname, datumbeg, title2
Dim datumbeg2, datum2, fromyear2, frommonth2, fromday2, toyear2, tomonth2, today2, datumfran2, datumtill2
scriptname = Request.Servervariables("script_name")
sid = Request.Querystring("sid")
If sid <> "" Then
sid2 = Cint(sid)
End If
%>
<html>
<head>
<title>Meny</title>
<link REL="STYLESHEET" HREF="../style/adminmenystyle.css" TYPE="TEXT/CSS">
</head>
<body bgcolor="#cccc99" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<br>
<table border="0">
<td width="2"> </td>
<td valign="top" width="150">
<%
Dim SQLStmt2, SQLStmt3, RS2, RS3, mvid, menyval, dl, datum
Dim menykategori, menyvalid, mkurl, mktarget, mvurl, mvtarget, title
Dim fromyear, frommonth, fromday, toyear, tomonth, today, datumfran, datumtill
SQLStmt2 = "Select id, datumbeg, fromyear, frommonth, fromday, toyear, tomonth, today, title, menyval, dl, url, target FROM menyval WHERE menyid = 1 AND aktiv = 'j' ORDER BY ordning ASC"
Set RS2 = Connection.Execute(SQLStmt2)
Do until RS2.EOF
mvid = Cint(RS2("id"))
menyval = RS2("menyval")
dl = RS2("dl")
mvurl = RS2("url")
mvtarget = RS2("target")
title = RS2("title")
datumbeg = RS2("datumbeg")
If datumbeg = "j" Then
fromyear = RS2("fromyear")
frommonth = RS2("frommonth")
fromday = RS2("fromday")
toyear = RS2("toyear")
tomonth = RS2("tomonth")
today = RS2("today")
If frommonth < 10 Then
frommonth = 0 & frommonth
End If
If fromday < 10 Then
fromday = 0 & fromday
End If
If tomonth < 10 Then
tomonth = 0 & tomonth
End If
If today <10 Then
today = 0&today
End If
datumfran = CDate(fromyear & "-" & frommonth & "-" & fromday)
datumtill = CDate(toyear & "-" & tomonth & "-" & today)
datum = date
End If
%>
<em class="b">
<%'--------------Kolla datumbegränsning om direktlänk är JA-----------------------------------------%>
<%
If dl = "j" AND datumbeg = "j" Then
If datum >= datumfran AND datum <= datumtill Then
%>
<A HREF="<% =mvurl %>" title="<% =title %>" target="<% =mvtarget %>"><% =menyval %></A><br>
<% End If %>
<% End If %>
<% If dl = "j" AND datumbeg = "n" Then %>
<A HREF="<% =mvurl %>" title="<% =title %>" target="<% =mvtarget %>"><% =menyval %></A><br>
<% End If %>
<%'-------------------------------------------------------%>
<%
If dl = "n" AND datumbeg = "j" Then
If datum >= datumfran AND datum <= datumtill Then
%>
<% If sid2 = mvid Then %>
<A HREF="<%=scriptname%>"><% =menyval %></A><BR>
<% Else %>
<A HREF="<%=scriptname%>?sid=<% =mvid %>" title="<%=title%>"><% =menyval %></A><BR>
<% End If %>
<% End If %>
<% End If %>
<%If dl = "n" AND datumbeg = "n" Then %>
<% If sid2 = mvid Then %>
<A HREF="<%=scriptname%>"><% =menyval %></A><BR>
<% Else %>
<A HREF="<%=scriptname%>?sid=<% =mvid %>" title="<%=title%>"><% =menyval %></A><BR>
<% End If %>
<% End If %>
</em>
<%'-------------------------------------------------------%>
<%
If dl = "n" Then
If sid <> "" Then
SQLStmt3 = "Select menyvalid, id, url, title, target, aktiv, menykategori, datumbeg, fromyear, frommonth, fromday, toyear, tomonth, today FROM menykategori WHERE aktiv = 'j' AND menyvalid = "& sid &" ORDER BY ordning "
Set RS3 = Connection.Execute(SQLStmt3)
Do until RS3.EOF
mkurl = RS3("url")
mktarget = RS3("target")
menykategori = RS3("menykategori")
menyvalid = Cint(RS3("menyvalid"))
title2 = RS3("title")
%>
<% If mvid = menyvalid Then
datumbeg2 = RS3("datumbeg")
If datumbeg2 = "j" Then
fromyear2 = RS3("fromyear")
frommonth2 = RS3("frommonth")
fromday2 = RS3("fromday")
toyear2 = RS3("toyear")
tomonth2 = RS3("tomonth")
today2 = RS3("today")
If frommonth2 < 10 Then
frommonth2 = 0 & frommonth2
End If
If fromday2 < 10 Then
fromday2 = 0 & fromday2
End If
If tomonth2 < 10 Then
tomonth2 = 0 & tomonth2
End If
If today2 <10 Then
today2 = 0&today2
End If
datumfran2 = CDate(fromyear2 & "-" & frommonth2 & "-" & fromday2)
datumtill2 = CDate(toyear2 & "-" & tomonth2 & "-" & today2)
datum2 = date
End If
If datum2 >= datumfran2 AND datum2 <= datumtill2 Then
%>
<em> - <A HREF="<% =mkurl %>" title="<%=title2%>" target="<% =mktarget %>"><% =menykategori %></A><BR></em>
<% ElseIf datumbeg2 = "n" Then %>
<em> - <A HREF="<% =mkurl %>" title="<%=title2%>" target="<% =mktarget %>"><% =menykategori %></A><BR></em>
<%
'End If
'End If
End If
End If
%>
<%
RS3.Movenext
Loop
RS3.Close
End If
End If
RS2.Movenext
Loop
RS2.Close
Connection.Close
Set Connection = nothing
%>
</td>
</table>
<br>
</body>
</html>
------------------
Ingenting är omöjligt, bara en utmaning.
