Hvordan laver man en ny side!?
HEj jeg har en hjemme side, og inde under diverse skal jeg have lavet en ny side med samme tabel som på de andre sider, så vil jeg spørge hvordan man gør!? HTML'en ser således ud:<HTML>
<TITLE>www.HighRiseTimes.dk</TITLE>
<LINK HREF=hrt.css REL=STYLESHEET>
<BODY LEFTMARGIN=0 TOPMARGIN=0>
<!--#include file="whobanned.asp"-->
<%
strFarve = "FFFFFF"
%>
<!--#include file="js.asp"-->
<TABLE WIDTH=451 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD>
<IMG SRC="images/indhold_01.gif" WIDTH=34 HEIGHT=32></TD>
<TD WIDTH=328 HEIGHT=32 valign=middle>
<b>
<%
if request.QueryString("side") = "konkurrence" then
Response.write "konkurrence"
elseif request.QueryString("side") = "toj" then
Response.write "figurer"
elseif request.QueryString("side") = "url" then
Response.write "url generator"
elseif request.QueryString("side") = "info" or request.QueryString("side") = "designs" then
Response.write "information"
else
Response.write "diverse"
end if
%>
:</b>
</TD>
<TD>
<a href=java script:history.back(-1)><IMG SRC="images/indhold_03.gif" WIDTH=89 HEIGHT=32 BORDER=0></a></TD>
</TR>
<TR>
<TD COLSPAN=3>
<IMG SRC="images/indhold_04.gif" WIDTH=451 HEIGHT=8></TD>
</TR>
<TR>
<TD COLSPAN=3 WIDTH=451 BACKGROUND=images/indhold_05.gif>
<%
if request.QueryString("side") = "toj" then
response.write "<table border=0 width=451><td width=33% align=center><a href=nyheder.asp?side=login>ægte</a></td><td width=33% align=center><a href=nyheder.asp?side=nyhedsog>søg</a></td><td width=33% align=center><a href=nyheder.asp?side=showall>falske</a></td></table><IMG SRC=images/indhold_04.gif WIDTH=451 HEIGHT=8><br><br>"
elseif request.QueryString("side") = "url" then
response.write "<table border=0 width=451><td width=50% align=center><a onMouseMove=""bubble(' url ');"" onMouseOver=""document.all['bubble'].style.visibility='visible';"" onMouseOut=""document.all['bubble'].style.visibility='hidden';"" href=diverse.asp?side=url><img src=images/url.gif border=0></a></td><td width=50% align=center><a onMouseMove=""bubble(' start ');"" onMouseOver=""document.all['bubble'].style.visibility='visible';"" onMouseOut=""document.all['bubble'].style.visibility='hidden';"" href=diverse.asp><img src=images/forside.gif border=0></a></td></table><IMG SRC=images/indhold_04.gif WIDTH=451 HEIGHT=8><br><br>"
elseif request.QueryString("side") = "info" or request.QueryString("side") = "designs" then
response.write "<table border=0 width=451><td width=33% align=center><a onMouseMove=""bubble(' information ');"" onMouseOver=""document.all['bubble'].style.visibility='visible';"" onMouseOut=""document.all['bubble'].style.visibility='hidden';"" href=diverse.asp?side=info><img src=images/info2.gif border=0></a></td><td width=33% align=center><a onMouseMove=""bubble(' designs ');"" onMouseOver=""document.all['bubble'].style.visibility='visible';"" onMouseOut=""document.all['bubble'].style.visibility='hidden';"" href=diverse.asp?side=designs><img src=images/designs.gif border=0></a></td><td width=33% align=center><a onMouseMove=""bubble(' start ');"" onMouseOver=""document.all['bubble'].style.visibility='visible';"" onMouseOut=""document.all['bubble'].style.visibility='hidden';"" href=diverse.asp><img src=images/forside.gif border=0></a></td></table><IMG SRC=images/indhold_04.gif WIDTH=451 HEIGHT=8><br><br>"
elseif request.QueryString("side") = "konkurrence" then
response.write "<table border=0 width=451><td width=50% align=center><a onMouseMove=""bubble(' konkurrence ');"" onMouseOver=""document.all['bubble'].style.visibility='visible';"" onMouseOut=""document.all['bubble'].style.visibility='hidden';"" href=diverse.asp?side=konkurrence><img src=images/kon.gif border=0></a></td><td width=50% align=center><a onMouseMove=""bubble(' start ');"" onMouseOver=""document.all['bubble'].style.visibility='visible';"" onMouseOut=""document.all['bubble'].style.visibility='hidden';"" href=diverse.asp><img src=images/forside.gif border=0></a></td></table><IMG SRC=images/indhold_04.gif WIDTH=451 HEIGHT=8><br><br>"
end if
%>
<table border=0><TR><TD>
<%
MyDay = Day(Now)
MyMonth = Month(Now)
MyHour = Hour(Now)
MyMinute = Minute(Now)
MySecond = Second(Now)
If len(MyDay) < 2 then strD = "0" else strD = "" end if
If len(MyMonth) < 2 then strM = "0" else strM = "" end if
If len(MyHour) < 2 then strH = "0" else strH = "" end if
If len(MyMinute) < 2 then strMi = "0" else strMi = "" end if
If len(MySecond) < 2 then strS = "0" else strS = "" end if
strLigeNu = strD & Day(Now) & "-" & strM & Month(Now) & "-" & Year(Now) & " " & strH & Hour(Now) & ":" & strMi & Minute(Now) & ":" & strS & Second(Now)
strMode = Request.QueryString("side")
Select Case strMode
Case "konkurrence"
strKon = "1"
%>
<b><%=strKon%>. konkurrence</b><br><br>
Så nu er konkurrencen
slut og vi vil se frem til mange flere konkurrencer på highrisetimes i
fremtiden :)<br><br>
De 3 heldige vindere blev:<br><br>
<table border=0 cellspacing=0 cellpadding=0 width=100% align=center>
<tr><td><i>placering:</i></td><td><i>navn:</i></td><td><i>præmie:</i></td></tr>
<tr><td>1</td><td>II GoTcHa II</td><td>Rødstol + Sparegris</td></tr>
<tr><td>2</td><td>Nattensgud</td><td>Grønsofa</td></tr>
<tr><td>3</td><td>Søren</td><td>Bananpalme</td></tr></table><br><img src=images/indhold_04.gif>
<center><img src=ting/rodstol.gif> <img src=ting/gris.gif> <img src=ting/gronsofa.gif> <img src=ting/bananpalme.gif></center><br>
<table cellpadding=0 border=0 cellspacing=0><tr><td colspan=2><img src=images/indhold_04.gif></td></tr></table><table border=0><tr><td valign=top><b>facts</b><br>Som sagt er vinderne af <%=strKon%>. konkurrence fundet og naturligvis vil en ny blive sat igang så snart, at der er muligheder og idéer nok.<br>Ligger du/i inde med noget er du velkommen til at skrive ind og bidrage med idéer m.m.<br><br>
<TABLE Border=0 cellspacing=0 cellpadding=0><TR><TD>
<IMG SRC="images/submit_01.gif" WIDTH=10 HEIGHT=20></TD>
<TD BACKGROUND=images/submit_02.gif>
forslag</TD>
<TD>
<input type="image" name="submit" src="images/submit_03.gif" WIDTH=25 HEIGHT=20 border=0></TD>
</TR>
</TABLE></td><td valign=top><img src=images/konhisbag.gif></td></tr></table>
<%
Case "info"
%>
Der
menes at HighRiseTimes skulle være den første avis, som omtalte HøjHuset.
Den kørte godt indtil avisen N-Xpress blev oprettet. HighRiseTimes kunne
ikke følge med N-Xpresss's side og da
Pacroon ikke havde tid til at drive HighRise længere, måtte den lukke
ned.
Brugeren
<a href="http://www.n.dk/community/user2/profile/frProfile.asp?userId=1413116">HighRiseTimes</a>
blev oprettet mens avisen kørte godt. Den blev senere glemt og ejeren var
i lang tid ukendt<br><br>
I 2002 købte <a href="http://www.n.dk/community/user2/profile/frProfile.asp?userId=81">Mysjkin</a>
og <a href="http://www.n.dk/community/user2/profile/frProfile.asp?userId=1605764">CodeRED
BoY</a> ( IndiCator ) brugeren <a href="http://www.n.dk/community/user2/profile/frProfile.asp?userId=1413116">HighRiseTimes</a>
af <a href="http://www.n.dk/community/user2/profile/frProfile.asp?userId=1526036">Artiphex</a>
( Nuværende <a href="http://www.n.dk/community/user2/profile/frProfile.asp?userId=1270926">Basic</a>
), som åbenbart lagde inde med brugeren. Prisen lå på omkring et planteland.<br>
<br>
Efter
købet af brugeren prøvede <a href="http://www.n.dk/community/user2/profile/frProfile.asp?userId=81">Mysjkin</a>
at starte HighRiseTimes samme med nogle andre. Det blev dog ikke til
noget, men siden kan ses på <a href="http://www.highrise.tk/">http://www.highrise.tk/</a>.<br><br>
Da
<a href="http://www.n.dk/community/user2/profile/frProfile.asp?userId=81">Mysjkin</a>
stoppede et par måneder efter han havde opgivet at fuldende avisen, gav
han brugeren <a href="http://www.n.dk/community/user2/profile/frProfile.asp?userId=1413116">HighRiseTimes</a>
til Kjutie, som hurtigt tænkte på at starte
HighRiseTimes op igen. Han aftalte med The Leader, IndiCator og Psychotic,
at HighRiseTimes skulle stå færdigt efter en måned eller to.
<%
Case "designs"
%>
<table border=0 cellpadding=0 cellspacing=0><tr><td><b>HighRiseTimes v.08:</b><br>Det
nuværende design kaldes v.08.
<br>HighRiseTimes har denne gang forladt NetStationen 4's farver og gået over til en helt anden stil.<br>I denne version er det utroligt nemt at finde den information, der søges, da der overalt er søgefunktioner.<br><br>HighRiseTimes v.08 er designet og programmeret af The Leader, Kjutie og IndiCator.</td><td valign=top><img src=images/hrt.gif></td></tr></table>
<%
Case "url"
%>
<table border=0 cellspacing=0 cellpadding=0><td><img src=images/info.gif></td><td> </td><td valign=top>URL Generatoren blev i sin tid udviklet af Monk, om var ejer af siden NSRoot.cjb.net.</td></table><br><img src=images/indhold_04.gif>
<FORM Action="diverse.asp?side=urlpost" method="post">
<TABLE cellPadding=5 border=0>
<TR>
<TD>Bruger:</TD>
<TD><INPUT class='hvidt' maxLength=10 name=user></TD>
<TD align=right><INPUT class="knap" onclick="form.url.value = 'http://www.n.dk/community/user/frUser.asp?u=' + form.user.value" type=button value="Generér URL"></TD></TR>
<TR>
<TD width="300">Lejlighed:</TD>
<TD><INPUT class='hvidt' maxLength=6 name=room></TD>
<TD align=right><INPUT class="knap" onclick="form.url.value = 'http://www.n.dk/community/hh/frRoom.asp?id=' + form.room.value" type=button value="Generér URL"></TD></TR>
<TR>
<TD>Ting:</TD>
<TD><INPUT class='hvidt' maxLength=6 name=thing></TD>
<TD align=right><INPUT class="knap" onclick="form.url.value = 'http://www.n.dk/community/hh/frItem.asp?id=' + form.thing.value" type=button value="Generér URL"></font></TD></TR>
<TR>
<TD colspan=3><INPUT class="hvidt_stor" name="url"><br><br>
<TABLE Border=0 cellspacing=0 cellpadding=0><TR><TD>
<IMG SRC="images/submit_01.gif" WIDTH=10 HEIGHT=20></TD>
<TD BACKGROUND=images/submit_02.gif>
gå til url</TD>
<TD>
<input type="image" name="submit" src="images/submit_03.gif" WIDTH=25 HEIGHT=20 border=0></TD><TD> </TD><TD>
<IMG SRC="images/submit_01.gif" WIDTH=10 HEIGHT=20></TD>
<TD BACKGROUND=images/submit_02.gif>
fortryd</TD>
<TD>
<a href=diverse.asp?side=url><img src="images/submit_03.gif" WIDTH=25 HEIGHT=20 border=0></a></TD>
</TR>
</TABLE>
</TD>
</TR></TABLE></FORM>
<%
Case "urlpost"
if len(Request.Form("url")) = 0 then
response.redirect "diverse.asp?side=url"
else
Response.Redirect Request.Form("url")
end if
Case Else
Response.write "<br><table border=0 cellpadding=0 cellspacing=0>"
Response.write "<tr><td><a href=diverse.asp?side=konkurrence><img src=images/kon.gif border=0></a></td><td> </td><td valign=top><b>Konkurrencer</b><br>Deltag eller se resultater fra gamle konkurrencer.</td></tr><tr><td colspan=3><br></td></tr>"
Response.write "<tr><td><a href=diverse.asp?side=info><img src=images/info2.gif border=0></a></td><td> </td><td valign=top><b>Information</b><br>Læs dig klogere om HighRiseTimes og få information om det nuværende design.</td></tr><tr><td colspan=3><br></td></tr>"
Response.write "<tr><td><a href=diverse.asp?side=url><img src=images/url.gif border=0></a></td><td> </td><td valign=top><b>URL Generator</b><br>Find en bestemt ting, lejlighed eller bruger ved hjælp af url generatoren.</td></tr><tr><td colspan=3><br></td></tr>"
Response.write "</table>"
End Select
%>
</TD></TR></TABLE>
</TD>
</TR>
<TR>
<TD COLSPAN=3 class=end WIDTH=451 HEIGHT=43 ALIGN=CENTER><br>
<!--#include file="include.asp"--></TD>
</TR>
</TABLE>
</BODY>
</HTML>
