Kæmpe problem med tabeller sig ter sig!
Hej, jeg har et problem...Jeg har prøvet at løse det selv, men det gik sku ikke så godt!
Koden nedenfor skal jeg have ind på midten af en side, som har en menu i venstre og i højre side!
Men når jeg sætter den ind så skubber den menu i højre side helt ned i bunden af siden...
Hvad er der galt? Please help :)
<!-- start main -->
<%if page="" then
if session("Brugernavn")=Request.Querystring("Brugernavn") Then%> <center>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
<tr><td class="text2" colspan="2" width="444" height="20">
<font color="#801416"><b>Indbakke</b></font> |
<a href="mail.asp?page=outbox&brugernavn=<%=session("brugernavn")%>">
Udbakke</a></td></tr>
<tr>
<td class="text2" bgcolor="#FFFFFF" width="218" height="20" background="new_back4.gif">
<font color="#801416"><b>Fra</b></font></td>
<td class="text2" bgcolor="#FFFFFF" width="218" height="20" background="new_back4.gif">
<font color="#801416"><b>Emne</b></font></td>
<td class="text2" bgcolor="#FFFFFF" width="115" height="20" background="new_back4.gif">
<font color="#801416"><b>Tidspunkt</b></font></td>
<td class="text2" bgcolor="#FFFFFF" width="42" height="20" background="new_back4.gif">
<font color="#801416"><b>Slet</b></font></td></tr>
<%
sql = "select * from Mails where MailModtager='"& Session("Brugernavn") &"' ORDER BY MailId Desc"
Set rs = Server.CreateObject("ADODB.Recordset")
set rs = myConn.execute(SQL)
Set myConn = Server.CreateObject("ADODB.Connection")
if not rs.eof then
count = 15
DIM iRecordCount
iRecordCount = 0
While Not rs.eof and count > 0
count = count -1
IF iRecordCount Mod 2 = 0 THEN%>
<tr bgcolor="#FED38E">
<td class="text" bgcolor="#FFFFFF" width="218" height="20">
<a href="mail.asp?page=read&Id=<%=rs("MailId")%>&brugernavn=<%=rs("MailModtager")%>"><<%=rs("Foran")%>><%=rs("FraBruger")%><<%=rs("bag")%>></a></td>
<td class="text" bgcolor="#FFFFFF" width="218" height="20"><%=rs("MailEmne")%></td>
<td class="text" bgcolor="#FFFFFF" width="115" height="20"><%=rs("Dato")%></td>
<td class="text" bgcolor="#FFFFFF" width="42" height="20">
<a href="mail.asp?page=delete&MailId=<%=rs("MailId")%>&Brugernavn=<%=rs("MailModtager")%>">
<img src="images/kontaktslet.gif" border="0" width="11" height="12"></a></td></tr>
<% ELSE %>
<tr><td class="text" bgcolor="#FFFFFF" width="218" height="20">
<a href="mail.asp?page=read&Id=<%=rs("MailId")%>&brugernavn=<%=rs("MailModtager")%>"><<%=rs("Foran")%>><%=rs("FraBruger")%><<%=rs("bag")%>></a></td>
<td class="text" bgcolor="#FFFFFF" width="218" height="20"><%=rs("MailEmne")%></td>
<td class="text" bgcolor="#FFFFFF" width="115" height="20"><%=rs("Dato")%></td>
<td class="text" bgcolor="#FFFFFF" width="42" height="20">
<a href="mail.asp?page=delete&MailId=<%=rs("MailId")%>&Brugernavn=<%=rs("MailModtager")%>">
<img src="images/kontaktslet.gif" border="0" width="11" height="12"></a></td></tr>
<%end if
iRecordCount = iRecordCount + 1
rs.movenext
Wend
Set myConn = Nothing
else%>
<tr><td class="text" bgcolor="#FFFFFF" width="218"> Ingen breve!</td></tr>
<%end if
else
response.redirect("mail.asp?brugernavn="&session("Brugernavn")&"")
end if
end if
if page="outbox" then
if session("Brugernavn")=Request.Querystring("Brugernavn") Then%>
</div>
<table border="0" cellpadding="0" cellspacing="0" width="100%" style="border-collapse: collapse">
<tr><td class="head">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
<tr><td class="text2" colspan="2" height="20">
<a href="mail.asp?brugernavn=<%=session("brugernavn")%>">Indbakke</a> | <font color="#801416"><b>
Udbakke</b></font></td></tr>
<tr><td class="text2" bgcolor="#FFFFFF" background="new_back4.gif" height="20">
<font color="#801416"><b>Til</b></font></td>
<td class="text2" bgcolor="#FFFFFF" background="new_back4.gif" height="20">
<font color="#801416"><b>Emne</b></font></td>
<td class="text2" bgcolor="#FFFFFF" background="new_back4.gif" height="20">
<font color="#801416"><b>Tidspunkt</b></font></td></tr>
<%sql = "select * from Mails where FraBruger='"& Session("Brugernavn") &"' ORDER BY MailId Desc"
Set rs = Server.CreateObject("ADODB.Recordset")
set rs = myConn.execute(SQL)
DIM iRecordCount2
iRecordCount2 = 0
Do until rs.eof
IF iRecordCount2 Mod 2 = 0 THEN%>
<tr bgcolor="#FED38E"><td class="text" bgcolor="#FFFFFF" height="20"> <<%=rs("Foran")%>><%=rs("MailModtager")%><<%=rs("Bag")%>></td>
<td class="text" bgcolor="#FFFFFF" height="20"><%=rs("MailEmne")%></td>
<td class="text" bgcolor="#FFFFFF" height="20"><%=rs("Dato")%></td></tr>
<%else%>
<tr><td class="text" bgcolor="#FFFFFF" height="20"> <<%=rs("Foran")%>><%=rs("MailModtager")%><<%=rs("Bag")%>></td>
<td class="text" bgcolor="#FFFFFF" height="20"><%=rs("MailEmne")%></td>
<td class="text" bgcolor="#FFFFFF" height="20"><%=rs("Dato")%></td></tr>
<%end if
iRecordCount2 = iRecordCount2 + 1
rs.movenext
loop
%>
</tr></td>
</table>
<%
else
response.write("Din IP er logget, efter at du har prøvet at hacke!")
end if
end if%>
<% if page = "delete" then
if session("Brugernavn")=Request.Querystring("Brugernavn") Then
strSQL = "Select * from Mails where MailId = " & Request.Querystring("MailId") & ""
Set rs = myConn.Execute("select * from Mails where MailId = " & Request.QueryString("MailId"))
if rs("MailModtager") = Session("Brugernavn") then
myconn.Execute("delete from mails where MailId = " & Request.QueryString("MailId") & "")
response.redirect("mail.asp?brugernavn="&Request("brugernavn")&"")
else
response.redirect("mail.asp?brugernavn="&session("Brugernavn")&"")
End if
End if
End if%>
<%if page="new" then%>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
<tr><td class="text2" colspan="2" background="new_back2.gif" height="20">
<a href="mail.asp?brugernavn=<%=session("brugernavn")%>">Indbakke</a> |
<a href="mail.asp?page=outbox&brugernavn=<%=session("brugernavn")%>">
Udbakke</a></td></tr>
<form method="POST" action="mail.asp?page=gem&brugernavn=<%=Session("Brugernavn")%>">
<input type="hidden" name="MailModtager" value="<%=Request("MailModtager")%>">
<tr><td class="text" bgcolor="#FFFFFF" height="30"> Skriv et brev til
<font color="#801416"><b> <%=request("MailModtager")%></b></font>
ved at udfylde felterne nedenfor:</td></tr>
<tr><td class="text" bgcolor="#FFFFFF"> Emne:
<input size="20" name="MailEmne" maxlength="50"></input></td></tr>
<tr><td class="text" bgcolor="#FFFFFF">
<p align="left"> <TEXTAREA Name="MailIndhold" rows=10 cols=40></textarea></p>
</td></tr>
<tr><td bgcolor="#FFFFFF">
<p align="left">
<input type="submit" class="btn" value="SEND BREVET" width="55" height="15"></p>
</td></tr>
</form>
<tr><td bgcolor="#FFFFFF" height="2"></td></tr>
<%end if%>
<%if page="reply" then
if session("Brugernavn")=Request.Querystring("Brugernavn") Then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * from mails where MailId = " & Request.Querystring("Id") & ""
rs.Open strSQL, myConn, 1, 3
Set rst = Server.CreateObject("ADODB.RecordSet")
strSQLt = "Select * from users where username = '" & rs("FraBruger") & "'"
rst.Open strSQLt, myConn, 1, 3
if rs("MailModtager") <> session("Brugernavn") then Response.Redirect("mail.asp?Brugernavn="&Request("Brugernavn")&"") end if
MailTekst = Replace(RS("MailIndhold"), VbCrLF, "<br>")%>
<center>
</div>
<div align="left">
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
<tr><td class="text2" colspan="2" background="new_back2.gif" height="20">
<a href="mail.asp?brugernavn=<%=session("brugernavn")%>">Indbakke</a> |
<a href="mail.asp?page=outbox&brugernavn=<%=session("brugernavn")%>">
Udbakke</a></td></tr>
<form method="POST" action="mail.asp?page=gem&brugernavn=<%=session("Brugernavn")%>">
<input type="hidden" name="MailModtager" value="<%=Request("MailModtager")%>">
<tr><td class="text" bgcolor="#FFFFFF" height="30"> Skriv et brev til <font color="#801416"> <b><%=request("MailModtager")%></b></font>
ved at udfylde felterne nedenfor:</td></tr>
<tr><td class="text" bgcolor="#FFFFFF"> Emne:
<input size="20" name="MailEmne" maxlength="50" value="Re: <%=rs("MailEmne")%>"></input></td></tr>
<tr><td class="text" bgcolor="#FFFFFF">
<p align="left"> <TEXTAREA Name="MailIndhold" rows=10 cols=40>
<----------------------------------->
<%=rs("MailIndhold")%>
</textarea></p>
</td></tr>
<tr><td bgcolor="#FFFFFF">
<p align="left">
<input type="submit" class="btn" value="SEND BREVET" width="55" height="15"></p>
</td></tr>
</form>
<tr><td bgcolor="#FFFFFF" height="2"></td></tr>
<tr><td class="text" bgcolor="#FFFFFF">
<br>
Du svarer på:<br><br>
<blockquote>
<%=MailTekst%>
</blockquote>
</td></tr>
<%else
response.redirect("mail.asp?brugernavn="&session("Brugernavn")&"")
end if
end if%>
<%if page="gem" then
Set rsk3 = Server.CreateObject("ADODB.RecordSet")
strSQLk3 = "Select * From Ignorelist where owner='"&Request("MailModtager")&"' AND Banned='"&Session("Brugernavn")&"'"
rsk3.Open strSQLk3, myConn, 1, 3
If Not (rsk3.BOF Or rsk3.EOF) Then
response.redirect("fejl.asp?error=Brevet er ikke sendt, du er på brugerens ignorerliste!")
end if
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From Mails"
rs.Open strSQL, myConn, 1, 3
Set rsk2 = Server.CreateObject("ADODB.RecordSet")
strSQLk2 = "Select * From users where username='"&request.form("MailModtager")&"'"
rsk2.Open strSQLk2, myConn, 1, 3
Set rsk3 = Server.CreateObject("ADODB.RecordSet")
strSQLk3 = "Select * From MailLog"
rsk3.Open strSQLk3, myConn, 1, 3
rs.addnew
rs("MailModtager") = request.form("MailModtager")
rs("FraBruger") = Session("Brugernavn")
rs("MailEmne") = Request.form("MailEmne")
rs("MailIndhold") = Request.form("MailIndhold")
rs("AfsenderIP") = Request.ServerVariables("REMOTE_ADDR")
rs.update
rsk3.addnew
rsk3("Owner") = request.form("MailModtager")
rsk3("Username") = Session("Brugernavn")
rsk3.update
on error resume next
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = ""&Mailserver&""
JMail.Sender = ""&Mailaddress&""
JMail.Subject = "New mail"
JMail.AddRecipient rsk2("Email")
JMail.Priority = 1
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' ********** Her starter selve email-en
JMail.HTMLBody = "Hi "&rsk2("Username")&", you have just recieved a mail at "&Title&", surf into "&URL&", and read the mail.."
' ********** Her slutter selve email-en
JMail.Execute
Set JMail = Nothing
rs.Close
Set rs = Nothing
rsk2.Close
Set rsk2 = Nothing
Response.Redirect("mail.asp?Brugernavn="&Session("Brugernavn")&"")
end if%>
<%if page="read" then
if session("Brugernavn")=Request.Querystring("Brugernavn") Then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * from mails where MailId = " & Request.Querystring("Id") & ""
rs.Open strSQL, myConn, 1, 3
Set rst = Server.CreateObject("ADODB.RecordSet")
strSQLt = "Select * from users where username = '" & rs("FraBruger") & "'"
rst.Open strSQLt, myConn, 1, 3
rs("Foran") = "i"
rs("Bag") = "/i"
rs.Update
if rs("MailModtager") <> session("Brugernavn") then Response.Redirect("mail.asp?Brugernavn="&Request("Brugernavn")&"") end if
MailTekst = Replace(RS("MailIndhold"), VbCrLF, "<br>")%>
<center>
</div>
<div align="left">
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
<tr><td class="text2" colspan="2" background="new_back2.gif" height="20">
<a href="mail.asp?Brugernavn=<%=Session("Brugernavn")%>">Indbakke</a> |
<a href="mail.asp?Brugernavn=<%=Session("Brugernavn")%>&page=outbox">
Udbakke</a> |
<a href="mail.asp?page=reply&MailModtager=<%=rs("FraBruger")%>&Brugernavn=<%=Session("Brugernavn")%>&ID=<%=Request.Querystring("Id")%>">
Svar på brev</a></td></tr>
<tr><td class="text2" bgcolor="#FFFFFF" height="30">
<a href="profile.asp?ID=<%=rst("userID")%>"><%=rs("FraBruger")%></a>
har sendt dig et brev.</tr>
<tr><td class="text" bgcolor="#FFFFFF" height="20"> Emne: <%=rs("MailEmne")%></td></tr>
<tr><td class="text" bgcolor="#FFFFFF">
<blockquote>
<p><br>
<%=MailTekst%> </p>
</blockquote>
</td></tr>
</tr></td>
</table>
</div>
<%else
response.redirect("mail.asp?brugernavn="&session("Brugernavn")&"")
end if
end if%>
<!-- end main -->
