Hmm.... har försökt lite...
Är session("active") = "" så körs ett visst innehåll... är den inte tom så skrivs röstningen, vilka som är online osv ut i vänster spalten. Högerspalten får en if-sats beroende på vilken sida querystringen anger.. så här. Jag skriver hela koden, först för default.asp:
[red]
<!-- Top of page, always included -->
<!--#include file="top.asp"-->
<!--#include file="body.asp"-->
<!-- Finshing up html document -->
<!--#include file="bottom.asp"-->
sen då body.asp:
[red]
<%
Function DbConn()
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("velveteen.mdb")
Set DbConn = objConn
End Function
If session("active") = "" then
%>
<!-- Innehåll när man INTE är inloggad -->
<tr>
<td><table width="100%" border="0" cellpadding="7" cellspacing="7">
<tr>
<td width="25%" valign="top" bgcolor="#FFFFFF">
<form name="login" method="post" action="_login/login.asp">
<%
If NOT session("error") = "" then
%>
<span class="brod" color="red"><%=session("error")%></span><br>
<% End IF %>
<span class="rubrik">Logga in</span><br>
<span class="brod">Användarnamn</span><br>
<input name="username" type="text">
<br>
<span class="brod">Lösenord</span><br>
<input name="password" type="password">
<br><br>
<input type="submit" name="GO" value="Go!">
</form>
<span class="brod"><a href="default.asp?page=join">Bli medlem!</a></span><br>
<span class="brod"><a href="_misc/forgotPassword.asp">Glömt lösenord?</a></span>
<br><br>
<span class="rubrik">5 senast registrerade</span><br>
<%
Set objConn = DbConn()
strSQLNewMembers = "Select Top 5 * From t_user ORDER BY userSignUpDate DESC"
set objNewMembers = objConn.execute(strSQLNewMembers)
Do Until objNewMembers.EOF
If bgcolor= "EFEFEF" then
bgcolor = "FFFFFF"
else
bgcolor = "EFEFEF"
End IF
response.write "<table width=""100%""><tr><td bgcolor=""#"&bgcolor&"""><span class=""brod""><b>"&objNewMembers("userName")&"</b> - "&objNewMembers("userSex")&" "& DateDiff("yyyy", objNewMembers("userAge"), Date())&", "& objNewMembers("userCity")&"</span></td></tr></table>"
objNewMembers.movenext
Loop
%>
</td>
<td width="75%" valign="top" bgcolor="#f8f8f8">
<font class="rubrik">Skolans egna community!</font>
<br>
<font class="brod">
Detta är Frölundagymnasiets egna community. Här kan ni som går på gymnasiet surfa runt på rasterna och fritiden. Heta diskussioner förs, vågade frågor ställs och de senaste nyheterna inom skollivet visas. Vad väntar du på, <a href="default.asp?page=join">registrera dig här</a> och nu!
</font>
<br><br>
<font class="rubrik">
Bli medlem och ta del av följande
</font>
<br>
<font class="brod">
<b>De senaste nyheterna</b>
<br>
Känns det lite segt att behöva vänta på Frölundanytt när du vill veta vad som händer på skolan? Oroa dig inte, vi uppdaterar så fort det händer något som är värt att veta.
<br>
<b>Personlig sida</b>
<br>
På din personliga sida har du en egen presentation, gästbok och en samling med dina vänner. Du bestämmer själv vad som ska vara med och hur det ska se ut. Inte ett jätteinnovativt koncept, men det funkar!
<br>
<b>Öppna diskussioner</b>
<br>
På vårt diskussionsforum kan du ta upp det du själv vill eller kanske svara på något som nån annan skrivit.
<br>
<b>Din egen kolumn</b>
<br>
För er som vill klaga, berömma eller uppmärksamma om något har vi varje vecka en kolumn för de som skickar in sitt bidrag.
</font>
<br><br>
<font class="rubrik">
Regler
</font>
<br>
<font class="brod">
Liksom i skolan kan du inte heller på Velveteen uppföra dig hur som helst. Vi accepterar ingen rasism, kränkning eller mobbing på communityt. Missbruk av dessa regler gör att du blir av med ditt medlemsskap och i allvarliga fall polisanmälan. Så, behave students! Du blir informerad om användarvillkoren när du registrerar ett medlemskap. Du måste acceptera dom för att kunna bli medlem.
</font>
<br><br>
<font class="rubrik">
Om jag går på någon annan skola då?
</font>
<br>
<font class="brod">
Självklart kan vi inte hindra någon från att bli medlem här, men tanken är att sidan är till för de som går på Frölunda, därför kan du bara välja åldrar som finns på gymnasiet, kurser på Frölunda och så vidare, när du registrerar dig.
</font>
</td>
</tr>
</table></td>
</tr>
</table>
<!-- /Innehåll för inte inloggad SLUT -->
<% Else %>
<!-- Detta är innehåller när man ÄR inloggad -->
<!-- De två cellerna (Logga in och Innehåll)-->
<tr>
<td><table width="100%" border="0" cellpadding="7" cellspacing="7" align="top">
<tr>
<!-- Vänster cellen -->
<td width="25%" valign="top" bgcolor="#FFFFFF">
<%
Set objConn = DbConn()
strSQLInfo = "Select * From t_user Where userName = '" & session("username") & "'"
set objInfo = objConn.execute(strSQLInfo)
%>
<table width="100%" cellspacing="0" cellpadding="0"><tr><td><span class="rubrik">Status:</span><br>
<span class="brod"><b>Välkommen <%=objInfo("userFirstName")%>!</b></span>
</td></tr></table>
<table width="100%" cellspacing="0" cellpadding="0"><tr><td>
<br><br>
<span class="rubrik">Snabbsök</span>
</td></tr></table>
<table width="100%"><tr><td>
<br><br>
<form name="vote" method="post" action="_vote/voting.asp">
<span class="rubrik">Omröstning</span>
<br>
<%
strSQLVote = "Select TOP 1 * From t_Poll1 ORDER by pollID DESC"
strSQLTotal = "Select COUNT(*) AS total FROM t_Poll2"
set objVote = objConn.execute(strSQLVote)
set objTotal = objConn.execute(strSQLTotal)
voteCookie = request.cookies("voteID")
If CInt(voteCookie) = objVote("pollID") then
'visa svaren
arrSvar = Split(objVote("pollAnswers"), "||")
Response.write "<span class=""brod"">"&objVote("pollQuestion")&"</span><br>"
For i = 0 To UBound(arrSvar)
strSQLVotes = "Select COUNT(*) AS antal FROM t_Poll2 WHERE AnsAns = " & i
set objVotes = objConn.execute(strSQLVotes)
intPercent = objVotes( 0 ) / objTotal( 0 ) * 100
Response.write "<span class=""brod"">"&arrSvar( i ) &": "&Round(intPercent)&"%</span><br>"
Next
Else
Response.write "<span class=""brod"">"&objVote("pollQuestion")&"</span><br>"
arrSvar = Split(objVote("pollAnswers"), "||")
For i = 0 To UBound(arrSvar)
Response.Write("<span class=""brod""><input type=""radio"" name=""ans"" value=""" & i & """ /> " & arrSvar( i ) & "</span><br />" & vbCrLf)
Next
%>
<input type="hidden" name="pollID" value="<%=objVote("pollID")%>">
<input type="submit" name="VOTE" value="Rösta">
<% End IF %>
</form>
</td></tr></table>
<table width="100%"><tr><td>
<span class="rubrik">Online just nu</span>
<br>
<%
strOnline = "Select Top 5 * From t_user Where userOnline = True"
set objOnline = objConn.execute(strOnline)
Do Until objOnline.EOF
If bgcolor= "EFEFEF" then
bgcolor = "FFFFFF"
else
bgcolor = "EFEFEF"
End IF
response.write "<table width=""100%"" cellspacing=""2""><tr><td bgcolor=""#"&bgcolor&"""><span class=""brod""><b>"&objOnline("userName")&"</b> - "&objOnline("userSex")&" "& DateDiff("yyyy", objOnline("userAge"), Date())&", "& objOnline("userCity")&"</span></td></tr></table>"
objOnline.movenext
Loop
%>
</td></tr></table>
<table width="100%"><tr><td>
<br><br>
<span class="rubrik">5 senast registrerade</span><br>
<%
Set objConn = DbConn()
strSQLNewMembers = "Select Top 5 * From t_user ORDER BY userSignUpDate DESC"
set objNewMembers = objConn.execute(strSQLNewMembers)
Do Until objNewMembers.EOF
If bgcolor2= "EFEFEF" then
bgcolor2 = "FFFFFF"
else
bgcolor2 = "EFEFEF"
End IF
response.write "<table width=""100%"" cellpadding=""2""><tr><td bgcolor=""#"&bgcolor2&"""><span class=""brod""><b>"&objNewMembers("userName")&"</b> - "&objNewMembers("userSex")&" "& DateDiff("yyyy", objNewMembers("userAge"), Date())&", "& objNewMembers("userCity")&"</span></td></tr></table>"
objNewMembers.movenext
Loop
%>
</td></tr></table>
<!-- /SLUT Vänster cellen -->
<td width="75%" valign="top" bgcolor="#f8f8f8">
<!-- Stora innehållet -->
<%
Dim strPage
strPage = request.querystring("page")
If strPage = "start" then %>
<!--#include file="startPage.asp"-->
<%
ElseIF strPage = "find" then %>
<!--#include file="_/search/find.asp"-->
<%
Elseif strPage = "profile" then %>
<!--#include file="_myaccount/profile.asp"-->
<%
ElseIF strPage = "logoff" then %>
<!--#include file="_misc/logoff.asp"-->
<%
ElseIF strPage = "" then %>
<!--#include file="startPage.asp"-->
<%
ElseIF strPage = "join" then %>
<!--#include file="_registration/step1.asp"-->
<%
End IF
%>
<!-- /SLUT på Stora innehållet -->
</td>
</tr>
</table></td>
</tr>
</table>
<!-- /Slut på den stora innehållstabellen-->
<!-- /Innehåll för inloggad SLUT -->
<% END IF %>