Jo! Kan du så ik' lige smide koden op!
**********
F. Mahmood
Mange tusind tak (:
<HTML>
<!--#INCLUDE FILE="txt/databas.asp"-->
<!--#INCLUDE FILE="txt/english.txt"-->
<HEAD>
<SCRIPT TYPE="text/javascript">
function test() {
var test;
document.getElementById("tribe2").visible=false;
document.getElementById("tribe2").hidden=true;
return false;
}
function tribe(mySel) {
var myVal;
myVal = mySel.options[mySel.selectedIndex].value;
document.getElementById("whatever").innerHTML = "tribe" + myVal;
document.getElementById("tribe" + myVal).hidden==true;
}
</SCRIPT>
<SCRIPT TYPE="text/javascript">
<!--
function dropdown(mySel)
{
var myWin, myVal;
myVal = mySel.options[mySel.selectedIndex].value;
if(myVal)
{
if(mySel.form.target)myWin = parent[mySel.form.target];
else myWin = window;
if (! myWin) return true;
myWin.location = myVal;
}
return false;
}
//-->
</SCRIPT>
<script language="JavaScript">
function Linker()
{
var tall = document.Meny.DDlinker.selectedIndex;
location.href = document.Meny.DDlinker.options[tall].value;
}
</script>
<%
Function style(s)
s = "" & s
s = Replace(s,"[F]","<B>")
s = Replace(s,"[/F]","</B>")
s = Replace(s,"[K]","<I>")
s = Replace(s,"[/K]","</I>")
s = Replace(s,"[U]","<U>")
s = Replace(s,"[/U]","</U>")
style = s
End Function
Function remstyle(s)
s = "" & s
s = Replace(s,"[F]","")
s = Replace(s,"[/F]","")
s = Replace(s,"[K]","")
s = Replace(s,"[/K]","")
s = Replace(s,"[U]","")
s = Replace(s,"[/U]","")
remstyle = s
End Function
Function stripHTML(strHTML)
Dim objRegExp, strOutput
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<(.|\\n)+?>"
strOutput = objRegExp.Replace(strHTML, "")
stripHTML = strOutput 'Return the value of strOutput
Set objRegExp = Nothing
End Function
Function InsertHyperlinks(inText)
Dim objRegExp, strBuf
Dim objMatches, objMatch
Dim Value, ReplaceValue, iStart, iEnd
strBuf = ""
iStart = 1
iEnd = 1
Set objRegExp = New RegExp
objRegExp.Pattern = "\\b(www|http|\\S+@)\\S+\\b" ' Match URLs and emails
objRegExp.IgnoreCase = True ' Set case insensitivity.
objRegExp.Global = True ' Set global applicability.
Set objMatches = objRegExp.Execute(inText)
For Each objMatch in objMatches
iEnd = objMatch.FirstIndex
strBuf = strBuf & Mid(inText, iStart, iEnd-iStart+1)
If InStr(1, objMatch.Value, "@") Then
strBuf = strBuf & GetHref(objMatch.Value, "EMAIL", "_BLANK")
Else
strBuf = strBuf & GetHref(objMatch.Value, "WEB", "_BLANK")
End If
iStart = iEnd+objMatch.Length+1
Next
strBuf = strBuf & Mid(inText, iStart)
InsertHyperlinks = strBuf
End Function
Function GetHref(url, urlType, Target)
Dim strBuf
strBuf = "<a href="""
If UCase(urlType) = "WEB" Then
If LCase(Left(url, 3)) = "www" Then
strBuf = "<a href=""http://" & url & """ Target=""" & _
Target & """>" & url & "</a>"
Else
strBuf = "<a href=""" & url & """ Target=""" & _
Target & """>" & url & "</a>"
End If
ElseIf UCase(urlType) = "EMAIL" Then
strBuf = "<a href=""mailto:" & url & """ Target=""" & _
Target & """>" & url & "</a>"
End If
GetHref = Replace(strBuf, vbCrLf, "<br>")
GetHref = GetHref
End Function
Function pal(str)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "\\[PAL\\]([^\\[]*)\\[/PAL\\]"
str = objRegExp.Replace(str, "<A HREF=""medlem.asp?user=$1"">$1</A>")
pal = str
End function
Function img(str)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "\\[IMG\\]([^\\[]*)\\[/IMG\\]"
str = objRegExp.Replace(str, "<IMG SRC=""$1"">")
img = str
End function
Function remimg(str)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "\\[IMG\\]([^\\[]*)\\[/IMG\\]"
str = objRegExp.Replace(str, "")
remimg = str
End function
%>
<script language="JavaScript">
<!--
function popup(theURL,the_width,the_hight,lista){
if(the_width==null||the_width==0){the_width=780;}
if(the_hight==null||the_hight==0){the_hight=400;}
myWindow=window.open(theURL,lista,"toolbar=no,scrollbars=no,location=no,directories=no,resizable=no,width="+the_width+ ",height="+the_hight+",screenX=0,screenY=0");
}
//-->
function validate(){
if (document.mess.subject.value=="") {
alert("# Error\\nYou need a topic.")
document.mess.subject.focus();
return false;
}
if (document.mess.subject.value=="Subject") {
alert("# Error\\nYou need a topic.")
document.mess.subject.focus();
return false;
}
if (document.mess.messet.value=="") {
alert("# Error\\nType a message.")
document.mess.messet.focus();
return false;
}
if (document.mess.messet.value=="Your message") {
alert("# Error\\nType a message.")
document.mess.messet.focus();
return false;
}
}
</script>
<SCRIPT LANGUAGE="JavaScript">
function ClipBoard()
{
holdtext.innerText = copytext.innerText;
Copied = holdtext.createTextRange();
Copied.execCommand("Copy");
}
</SCRIPT>
<STYLE>
<!--#INCLUDE FILE="txt/style.txt"-->
body { scrollbar-base-color: #ECECEC }
.text {color:"#747474"; border:1px solid #D5D5D5;font-family: Arial; background: #FFFFFF; font-size:11px; font-weight: bold }
.submit {color:"#FFFFFF"; font-family: Arial; background: "#FA2F2F"; font-size:10px; font-weight: bold; }
<MM:BeginLock translatorClass="MM_SSI" type="ssi_include" depFiles="D:\\Moviemakers SITE\\Moviemakers hemsida\\txt\\style.txt" orig="%3C!--#INCLUDE FILE=%22txt/style.txt%22--%3E" >.login {color:"#747474"; border:1px solid #D5D5D5;font-family: Arial; background: #F7F6F6; font-size:11px; font-weight: bold }
A {text-decoration: none}
A:link {color:"#6F6F6F"; text-decoration: none; font-weight: bold}
A:visited {color:"#6F6F6F"; font-weight: bold}
A:hover {color:"#000000"; text-decoration: none; font-weight: bold}<MM:EndLock>
</STYLE>
</HEAD>
<TITLE>Moviemakers.Nu - Film community made by moviemakers for moviemakers!</TITLE>
<BODY BGCOLOR="#FFFFFF" TEXT="#747474" LINK="#000000" leftMargin="0" topMargin="0" marginheight="0" marginwith="0">
<FONT SIZE="1" FACE="Verdana">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" COLS="0" WIDTH="100%">
<TR>
<TD HEIGHT="26" WIDTH="467"><IMG SRC="pictures/logo.gif"></TD>
<TD HEIGHT="26" WIDTH="100%" BACKGROUND="pictures/up_bg.gif"></TD>
</TR>
<TR>
<TD HEIGHT="1" WIDTH="100%" BGCOLOR="#A0A2A1" COLSPAN="2"></TD>
</TR>
<TR>
<TD HEIGHT="1" WIDTH="100%" BGCOLOR="#E6E6E6" COLSPAN="2"></TD>
</TR>
</TABLE>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" COLS="0" WIDTH="100%">
<TR>
<TD HEIGHT="75" WIDTH="700" BGCOLOR="#000000">
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"
WIDTH="800" HEIGHT="150" id="lmg_flashlogo" ALIGN="">
<PARAM NAME=movie VALUE="lmg_flashlogo.swf"> <PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE=#FFFFFF>
<EMBED src="lmg_flashlogo.swf" quality=high bgcolor=#FFFFFF WIDTH="698" HEIGHT="75" NAME="lmg_flashlogo" ALIGN=""
TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED></OBJECT>
</TD>
<TD HEIGHT="75" WIDTH="100%" BGCOLOR="#FFFFFF"></TD>
</TR>
</TABLE>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" COLS="0" WIDTH="100%">
<TR>
<TD HEIGHT="1" WIDTH="100%" BGCOLOR="#E6E6E6" COLSPAN="2"></TD>
</TR>
<TR>
<TD HEIGHT="1" WIDTH="100%" BGCOLOR="#A0A2A1" COLSPAN="2"></TD>
</TR>
<% IF Request.QueryString("do") = "level" OR Request.QueryString("do") = "level_and_person" THEN %>
<TR>
<TD HEIGHT="22" WIDTH="100%" COLSPAN="2" BACKGROUND="pictures/up_bg2.gif"></TD>
</TR>
<% ELSE %>
<TR>
<TD HEIGHT="22" WIDTH="100%" COLSPAN="2" BACKGROUND="pictures/up_bg2.gif">
<!--#INCLUDE FILE="txt/status.txt"-->
</TD>
</TR>
<% END IF%>
<TR>
<TD HEIGHT="1" WIDTH="100%" BGCOLOR="#FFFFFF" COLSPAN="2"></TD>
</TR>
<TR>
<TD HEIGHT="1" WIDTH="100%" BGCOLOR="#A0A2A1" COLSPAN="2"></TD>
</TR>
<TR>
<TD HEIGHT="10" WIDTH="100%" COLSPAN="2"></TD>
</TR>
</TABLE>
<TABLE>
<TR>
<TD WIDTH="5"></TD>
<TD WIDTH="137" VALIGN="top">
<!--#INCLUDE FILE="txt/meny.txt"-->
</TD>
<TD WIDTH="700" VALIGN="top">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" COLS="0">
<TR>
<TD WIDTH="550" VALIGN="top">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" COLS="0">
<TR>
<TD WIDTH="550" HEIGHT="1" BGCOLOR="#DADADA" COLSPAN="3"></TD>
</TR>
<TR>
<TD WIDTH="1" BGCOLOR="#DADADA"></TD>
<TD WIDTH="548" HEIGHT="51" VALIGN="top" BGCOLOR="#FEFEFE"><IMG SRC="pictures/profil.gif"></TD>
<TD WIDTH="1" BGCOLOR="#DADADA"></TD>
</TR>
<TR>
<TD WIDTH="1" BGCOLOR="#DADADA"></TD>
<TD WIDTH="548" HEIGHT="337" VALIGN="top" BGCOLOR="#FAFAFA">
<CENTER>
<FONT SIZE="1">
<%
IF session("inloggad") = "ja" THEN
IF Request.QueryString("user") = session("username") THEN
tracking("Viewing own profile")
ELSEIF Right(Request.QueryString("user"),1) = "s" OR Right(Request.QueryString("user"),1) = "S" THEN
tracking("Viewing <A HREF=""medlem.asp?user=" & Request.QueryString("user") & """>" & Request.QueryString("user") & "</A> profile")
ELSE
tracking("Viewing <A HREF=""medlem.asp?user=" & Request.QueryString("user") & """>" & Request.QueryString("user") & "'s</A> profile")
END IF
END IF
SET RStemp = MinCon.Execute("SELECT * FROM person WHERE username='" & Request.QueryString("user") & "'")
IF RStemp.EOF THEN
%>
<SCRIPT>
alert('<%=Request.QueryString("user")%> dont exist here on Moviemakers.nu.');
history.go(-1);
</SCRIPT>
<%
ELSE
namn = RStemp("fornamn") & " " & RStemp("efternamn")
%>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" COLS="0" WIDTH="535">
<TR>
<TD WIDTH="374" HEIGHT="335" VALIGN="top">
<FONT SIZE="1">
<%
IF Len(RStemp("personnummer")) = 10 OR isnull(RStemp("personnummer")) THEN
datumet = RStemp("personnummer")
age = Fix(DateDiff("d",datumet, Date)/365.2375)
IF datepart("m",date()) = datepart("m",datumet) and datepart("d",date()) = datepart("d",datumet) and not datepart("yyyy",datumet) = datepart("yyyy",date()) Then age = age +1
age = " (" & age & " years old)"
ELSE
age = ""
END IF
%>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" COLS="0">
<TR>
<TD WIDTH="60" ROWSPAN="3">
<% IF NOT RStemp("bild") = "" THEN %>
<IMG SRC="<%=RStemp("bild")%>" BORDER="1" WIDTH="50" HEIGHT="50">
<% ELSE %>
<IMG SRC="pictures/none2.gif" WIDTH="50" HEIGHT="50">
<% END IF %>
</TD>
<TD WIDTH="180"><FONT SIZE="2"><B><%=checkuser(RStemp("username"))%></B></TD>
<TD VALIGN="top" WIDTH="90"></TD>
<TD VALIGN="top" WIDTH="27"></TD>
</TR>
<TR>
<TD WIDTH="180" ROWSPAN="2"><FONT SIZE="1"><I><%=namn%> <%=age%>
<BR>
<% IF NOT isnull(RStemp("art_type")) THEN %>
<%=RStemp("art_type")%> (<%=RStemp("level")%>)
<% END IF %>
</I>
</TD>
<TD VALIGN="top" WIDTH="90" HEIGHT="15"></TD>
<TD VALIGN="top" WIDTH="27"></TD>
</TR>
<TR>
<TD VALIGN="top" WIDTH="90" HEIGHT="15"></TD>
<TD VALIGN="top" WIDTH="27"><FONT SIZE="1"></TD>
</TR>
</TABLE>
<P>
<%
ego = RStemp("ego")
ego = StripHTML(ego)
IF RStemp("vip") = "ja" THEN
ego = style(ego)
ego = remimg(ego)
ELSE
ego = remstyle(ego)
ego = remimg(ego)
END IF
ego = add(ego)
ego = pal(ego)
ego = InsertHyperlinks(ego)
Response.Write ego
%>
<P>
<CENTER>
<TABLE BORDER="0">
<TR>
<%
SET bilder = MinCon.Execute("SELECT * FROM bilder WHERE username='" & Request.QueryString("user") & "'")
DO While NOT bilder.EOF
%>
<TD WIDTH="45"><FONT SIZE="1">
<A HREF="bilder\\<%=bilder("filnamn")%>" TARGET="whatever"><IMG SRC="bilder\\<%=bilder("filnamn")%>" WIDTH="40" HEIGHT="40" BORDER="1"></A>
<% IF bilder("username") = session("username") THEN %>
<BR><A HREF="command_two.asp?do=rembild&ID=<%=bilder("ID")%>">Delete</A>
<% END IF %>
</TD>
<%
bilder.MoveNext
Loop
%>
</TR>
</TABLE>
</CENTER>
</TD>
<TD WIDTH="5"></TD>
<TD WIDTH="1" BACKGROUND="pictures/bg.gif" BACKGROUND="pictures/bg.gif"></TD>
<TD WIDTH="5"></TD>
<TD WIDTH="150" VALIGN="top">
<FONT SIZE="1">
<%
IF NOT RStemp("hemsida") = "" THEN
IF Left(RStemp("hemsida"), 7) = "http://" THEN
lank = "<A HREF=""" & RStemp("hemsida") & """ TARGET=""Lank"">Click here</A>"
ELSE
lank = "<A HREF=""http://" & RStemp("hemsida") & """ TARGET=""Lank"">Click here</A>"
END IF
ELSE
lank = "Click here"
END IF
%>
<BR><B>Homepage</B> (<%=lank%>)
<% IF session("username") = Request.QueryString("user") THEN %>
<BR>
<BR><A HREF="javascript:popup('upload.asp', 440, 250, 'Upload')">Upload Picture</A>
<% END IF %>
<P>
<% SET RStemp = MinCon.Execute("SELECT * FROM person WHERE username='" & Request.QueryString("user") & "'") %>
<TABLE BORDER="0">
<TR>
<TD WIDTH="37" ALIGN="center" VALIGN="top">
<%
IF session("inloggad") = "ja" THEN
IF session("username") = Request.QueryString("user") THEN
Response.Write "<IMG SRC=""pictures/icon_buddy_no.gif"" BORDER=""0"" ALT=""You cant not add yourself in the list with friends."" TITLE=""You cannot add yourself in your list. : )"">"
ELSE
SET temp = MinCon.Execute("SELECT * FROM kompisar WHERE kompis='" & Request.QueryString("user") & "' AND username='" & session("username") & "'")
IF temp.EOF THEN
Response.Write "<A HREF=""command.asp?do=kompis&user=" & Request.QueryString("user") & """><IMG SRC=""pictures/icon_buddy_add.gif"" BORDER=""0"" ALT=""Add " & Request.QueryString("user") & " to your list with friends."" TITLE=""Add " & Request.QueryString("user") & " to your list with friends.""></A>"
ELSE
Response.Write "<A HREF=""command.asp?do=rem_kompis&user=" & Request.QueryString("user") & """><IMG SRC=""pictures/icon_buddy_del.gif"" BORDER=""0"" ALT=""Delete " & Request.QueryString("user") & " from your list with friends."" TITLE=""Delete " & Request.QueryString("user") & " from your list with friends.""></A>"
END IF
END IF
ELSE
Response.Write "<IMG SRC=""pictures/icon_buddy_no.gif"" BORDER=""0"" ALT=""You are not logged in."" TITLE=""You are not logged in."">"
END IF
%>
</TD>
<TD WIDTH="37" ALIGN="center">
<%
IF NOT RStemp("MSN") = "" THEN
IF RStemp("msnshow") = "no" THEN
%>
<IMG SRC="pictures/MSN_3.gif" TITLE="MSN is hidden."></A>
<% ELSE %>
<SPAN ID="copytext" STYLE="display:none;"><%=RStemp("MSN")%>
</SPAN><TEXTAREA ID="holdtext" STYLE="display:none;" rows="1" cols="20"></TEXTAREA>
<A HREF="javascript:ClipBoard();"><IMG SRC="pictures/MSN_1.gif" TITLE="Click here and use CTRL+V (I.E only) to paste the E-mail: <%=RStemp("MSN")%>" BORDER="0"></A>
<%
END IF
ELSE
%>
<IMG SRC="pictures/MSN_2.gif" TITLE="Have not added MSN.">
<% END IF %>
<P>
</TD>
<TD WIDTH="37" ALIGN="center" VALIGN="top">
<%
IF NOT RStemp("email") = "" THEN
IF RStemp("mailshow") = "no" THEN
%>
<IMG SRC="pictures/MAIL_3.gif" TITLE="The user hiding the e-mail."></A>
<%
ELSE
%>
<A HREF="mailto:<%=RStemp("email")%>"><IMG SRC="pictures/MAIL_1.gif" TITLE="<%=RStemp("email")%>" BORDER="0"></A>
<%
END IF
ELSE
%>
<IMG SRC="pictures/MAIL_2.gif" TITLE="Have not added any e-mail.">
<% END IF%>
</TD>
<TD WIDTH="37" ALIGN="center" VALIGN="top">
<%
IF NOT RStemp("icqnummer") = "" THEN
IF RStemp("icqshow") = "no" THEN
%>
<IMG SRC="pictures/ICQ_3.gif" TITLE="He is hiding it from you."></A>
<% ELSE %>
<A HREF="http://public.icq.com/public/panels/respondpanel/links/add.html?<%=RStemp("icqnummer")%>" TARGET="ICQ"><IMG SRC="pictures/ICQ_1.gif" TITLE="Add <%=RStemp("icqnummer")%> to my ICQ list." BORDER="0"></A>
<% END IF %>
<% ELSE %>
<IMG SRC="pictures/ICQ_2.gif" TITLE="Have not added or does not use ICQ.">
<% END IF%>
</TD>
</TR>
<FORM ACTION="command.asp?do=mess&dir=medlem" NAME="mess" METHOD="post">
<INPUT TYPE="hidden" NAME="msg_to" VALUE="<%=Request.QueryString("user")%>">
</TABLE>
<% IF session("inloggad") = "ja" AND Request.QueryString("user") <> session("username") THEN %>
<INPUT TYPE="text" CLASS="text" NAME="subject" STYLE="width: 150;" VALUE="Subject" size="20"><BR>
<TEXTAREA CLASS="text" STYLE="width: 150; height: 40;" NAME="messet" rows="1" cols="20">Your message</TEXTAREA>
<% IF session("admin") = "super" OR session("admin") = "yes" THEN %>
<INPUT TYPE="checkbox" NAME="send_as_admin" VALUE="1"> <B>Send as Admin?</B>
<% END IF %>
<INPUT TYPE="image" SRC="pictures/knappar/skicka.gif" ALT="" OnClick="return validate();">
<% END IF %>
</TD>
</TR>
</FORM>
<TR>
<FORM ACTION="medlem.asp?user=<%=Request.QueryString("user")%>" NAME="bas" METHOD=POST>
<TD WIDTH="374"><FONT SIZE="1">
<% IF session("admin") = "yes" OR session("admin") = "super" THEN %>
<IMG SRC="pictures/inv.gif"> <SELECT CLASS="text" STYLE="width: 200;" NAME="gourl">
<OPTION SELECTED>Admin menu</OPTION>
<% IF session("admin") = "super" THEN %>
<OPTION VALUE="javascript:NewWindow('guldis.asp?user=<%=Request.QueryString("user")%>', 'Guldstatus', '300', '200', 'no')">Gold Status</OPTION>
<% IF RStemp("admin") = "yes" OR RStemp("admin") = "super" THEN %>
<OPTION VALUE="command_two.asp?do=rem_admin&user=<%=Request.QueryString("user")%>">Remove admin rights</OPTION>
<% ELSE %>
<OPTION VALUE="command_two.asp?do=admin&user=<%=Request.QueryString("user")%>">Add admin rights</OPTION>
<% END IF %>
<% IF RStemp("admin") = "yes" OR RStemp("admin") = "super" THEN %>
<% ELSEIF RStemp("admin") = "forum" THEN %>
<OPTION VALUE="command_two.asp?do=rem_forumadmin&user=<%=Request.QueryString("user")%>">Delete admin rights</OPTION>
<% ELSE %>
<OPTION VALUE="command_two.asp?do=forumadmin&user=<%=Request.QueryString("user")%>">Add forum admin rights</OPTION>
<% END IF %>
<% END IF %>
<% IF NOT session("username") = Request.QueryString("user") THEN %>
<OPTION VALUE="javascript:NewWindow('change.asp?do=username&user=<%=Request.QueryString("user")%>', 'Fråga', '350', '200', 'no')">Change Username</OPTION>
<% END IF %>
<% IF RStemp("banned") = "ja" THEN %>
<OPTION VALUE="command_two.asp?do=unban&user=<%=Request.QueryString("user")%>">Unban member</OPTION>
<% ELSE %>
<OPTION VALUE="javascript:NewWindow('ban.asp?user=<%=Request.QueryString("user")%>', 'Bannlys', '300', '200', 'no')">Ban member</OPTION>
<% END IF %>
<OPTION VALUE="command_two.asp?do=removeuser&user=<%=Request.QueryString("user")%>">Delete member</OPTION>
</SELECT> <INPUT TYPE="button" VALUE="Go for it!" OnClick="dropdown(bas.gourl);" CLASS="text">
<% END IF %>
</TD>
</FORM>
<TD WIDTH="5"></TD>
<TD WIDTH="1"></TD>
<TD WIDTH="5"></TD>
<TD WIDTH="150"></TD>
</TR>
</TABLE>
<%
END IF
%>
</TD>
<TD WIDTH="1" BGCOLOR="#DADADA"></TD>
</TR>
<TR>
<TD WIDTH="1" BGCOLOR="#DADADA"></TD>
<TD WIDTH="548" HEIGHT="37" VALIGN="top" BACKGROUND="pictures/recension_down.gif"></TD>
<TD WIDTH="1" BGCOLOR="#DADADA"></TD>
</TR>
<TR>
<TD WIDTH="550" HEIGHT="1" BGCOLOR="#DADADA" COLSPAN="3"></TD>
</TR>
</TABLE>
</TD>
<TD WIDTH="400" VALIGN="top">
<!--#INCLUDE FILE="txt/banner.txt"-->
</TD>
</TR>
</TABLE>