Frågan#1
När man går in på bloggen, sin egna eller andras så öppnas kommentarsrutan direkt, den ska bara öppnas när man klickar på länken
jag hittar inte felet
<%
did=Request.QueryString("ID")
Set mainRS=objConn.Execute("Select * From tblUsers")
uid=request.querystring("uid")
Set diary=objConn.Execute("SELECT userID, username, picture, id, rubrik, agare, inlagg, insantDate, insantTime, clicks, tblUsers.vip "&_
"FROM tblUsers_Diary INNER JOIN tblUsers ON tblUsers_Diary.agare = tblUsers.userID where id = " & did & " order by id desc")
Set diary_Reply=objConn.Execute("SELECT userID, username, picture, id, agare, skickatAv, inlagg, insantDate, insantTime, tblUsers.vip "&_
"FROM tblUsers_Diary_Reply INNER JOIN tblUsers ON tblUsers_Diary_Reply.skickatAv = tblUsers.userID where id = " & did & " order by id desc")
set RS = objConn.Execute("SELECT * FROM tblUsers u INNER JOIN tblUsers_block b ON u.userID = b.vemArBlockad where vemArBlockad="& uid &" and vemBlockar = "& diary ("userID"))
Tstamp=Now()
objConn.Execute("UPDATE tblUsers SET TStamp = '"& Tstamp &"' WHERE userID = " & UserID &"")
if not request.querystring("userID") = Session("userID") then
SET objConn = connect()
varVisitor=UserID
varVisited=diary("userID")
varDID=request.querystring("ID")
varDate=Date()
varTime=Time()
diary1 = "INSERT INTO tblUsers_DiaryVisitors"
diary1 = diary1 & "(DID,visitor,visited,diaryDate,diaryTime) "
diary1 = diary1 & "VALUES("& varDID &","& varVisitor &","& varVisited &",'"& varDate &"','"& varTime &"')"
'response.write diary1
'response.end
objConn.Execute diary1
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">
<html>
<head>
<title>Läs bloggen</title>
<link type="text/css" rel="StyleSheet" href="/include/css/style.css">
<script language="JavaScript" src="/include/scripts.js"></script>
</head>
<body class="bg">
<TABLE width="800" style="margin-left:0px; margin-top:0px;" border="0" cellpadding="0" cellspacing="0">
<TR valign=top>
<!-- Loggan börjar -->
<TD valign="top" align="left" style="<%=mainBGColor%>" colspan="6">
<table height="60" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" align="center" height="30" width="308" class="rubrik" style="<%=mainBGColor%>">
<%=logotext%>
</td>
<td style="<%=mainBGColor%>" valign="top" width="16" rowspan="2"> </td>
<td style="<%=mainBGColor%>" valign="top" width="468" rowspan="2">
<%set vipCheck=objConn.Execute("SELECT * from tblUsers WHERE userID="& UserID)
IF vipCheck("vip") = "0" THEN
Response.Write Reklam
ELSE
Response.Write Extra
END IF%>
</td>
</tr>
<tr>
<td valign="top" align="center" style="<%=mainBGColor%>">
<iframe style="<%=mainBGColor%>" height="30" width="300" src="/mail/newMail.asp" frameborder="0" scrolling="no"></iframe>
</td>
</tr>
</table>
<!--#include virtual="/menu.asp"-->
</TD>
<!-- Loggan slutar -->
</TR>
<TR>
[B][I]
<!-- Bloggen startar -->
<TD style="<%=mainBGColor%>" width="100%" height="100%" valign="top">
<p class="outset"> :: Läs blogg :: </p>
<table width="800">
<tr>
<td>
<%If diary.eof then
Response.write "Bloggen är tom"
else
With Response
do until diary.eof%>
<%If not RS.EOF then
Response.Write "<span class=""brodtext"">Du har inte rättighet att skriva kommentar då du är blockad av en användare</span>"
else%>
<a class="rubrik_s" href="javascript:openAd()">Skriv kommentar till inlägg '<%=diary("rubrik")%>'</a>.
<hr>
<script type="text/javascript">
function closeAd() {
document.getElementById("popad").style.display="none";
}
function openAd() {
document.getElementById("popad").style.display="block";
}
</script>
<div id="popad" style="<%=mainBGColor%> display:none;padding:5px;position: absolute; left: 50%; top: 40%;
margin-left:-180px; z-index: 101; height: 200px; width: 300px; no-repeat; border:1px black dotted ">
<div style="<%=mainBGColor%>;padding-bottom:13px;">
<a href="javascript:closeAd()" class="brodtext" style="float:right;">Stäng(x)</a><br/>
<span class="brodtext">Svara på inlägget till rubrik '<%=diary("rubrik")%>'</span>
</div>
<br />
<%if request.querystring("err") = 1 then%>
<span style="color:#FF0000;" class="brodtext"><b>Du kan inte posta en tom kommentar</b></span>
<%End If%>
<form action="diary_reply_Save.asp" method="post">
<input type="hidden" name="txtInlaggID" value="<%=request.querystring("ID")%>">
<input type="hidden" name="txtSkickatAv" value="<%=Session("userID")%>">
<input type="hidden" name="txtAgare" value="<%=Request.Querystring("agare")%>">
<textarea class="brodtext" name="txtSvara" style="width:290px; height: 100px;"></textarea>
<br>
<input class="button" type="submit" value="Skicka svar">
</form>
</div>
<%End If%>
</td>
</tr>
<tr>
<td width="800" align="left" valign="top" class="presentation" style="background-color:#FFFFFF; border-weight:solid; border-width:1px; border-color:#000000;">
<%
.Write "Skriven av <a class=""menu"" href=""/view.asp?userID= "& diary("userID") &" "">"& diary("username") &"</a> "
.Write " "& diary("insantDate") &" "& diary("insantTime") &" "
.Write " | "
.Write "<a class=""menu"" href=""/diary/?userID="& diary("userID") &"&name="& diary("username")&"&ID="& diary("id")&" "">Till bloggen ==></a><hr>"
.Write "<b>"& diary("rubrik") &"</b><br /><br />"
.Write ""& replace(diary("inlagg"),vbCrLf,"<br>")&""
diary.movenext: loop
End With
End If%>
<hr>
<%
If diary_reply.eof then
Response.Write "<br>"
Response.write "<b>Inlägget har inga kommentarer</b>"
else
With Response
do until diary_reply.eof
.Write "<br>"
.Write "<b>Skriven av <a class=""menu"" href=""/view.asp?userID= "& diary_Reply("skickatAv") &" "">"& diary_reply("username") &"</a> </b>"
.Write "<b> "& diary_reply("insantDate") &" "& diary_reply("insantTime") &" <b>"
.Write "<br>"
.Write "<b>"& replace(diary_reply("inlagg"),vbCrLf,"")&" </b><br>"
diary_reply.movenext: loop
End With
End If%>
</td>
</tr>
</table>
</TD>
<!-- Bloggen slutar -->
[/I][/B]
</TR>
</TABLE>
</body>
</html>
