Problemer med tagwall
Hej alle eksperten brugere.... Jeg sidder med et problem i min tagwall. Når jeg skal skrive et tag gemmer den det rigtigt nok i databasen, men prøv at se hvilkne fejl den også spytter ud: www.b-teens.dk/default.asp. I skal lige vælge tagwall bagefter.-----------------------------------------------------------
Jeg vedlægger lige tagwall.asp
-----------------------------------------------------------
<%
sub tagwall
ban()
if getmode() = "delete" then
restricted()
SQL = "DELETE FROM tagwall WHERE id = " & request.querystring("id")
set RS = conn.execute(SQL)
response.redirect("?page=5")
end if
response.write("<table width='540' border='0' cellspacing='0' cellpadding='0' align='center'>")
response.write("<tr>")
response.write("<td align='center'>")
if getmode() = "normal" then
SQL = "SELECT COUNT(*) as tags FROM tagwall"
set RS = conn.execute(SQL)
tagcount = RS("tags")
SQL = "SELECT id, addeddate, addedtime, author, email, topic, body, IP FROM tagwall ORDER BY id DESC;"
set RS = conn.execute(SQL)
tagpage = trim(request.querystring("tagpage"))
if tagpage = "" then tagpage = 1
list = request.querystring("list")
if list = "" then list = 5
rest = (tagcount Mod list)
rcsleft = list
if (rest = 0) then
pages = int(tagcount / list )
else
pages = int(tagcount / list + 1)
end if
if RS.EOF then
Response.write("Ingen tags fundet i databasen!")
else
RS.move(list * tagpage - list)
end if
response.write("<a href='?page=6&mode=addtag'>Tilføj tag</a><br><br><br>")
do while not RS.EOF and rcsleft > 0
email = RS("email")
response.write("<table width='540' border='0' cellspacing='0' cellpadding='2'>")
response.write("<tr>")
response.write("<td width='350'><strong>" & RS("topic") & "</strong></td>")
response.write("<td width='190' align='right'><font color='#CCCCCC'>IP: ")
if session("authlevel") = "1" or session("authlevel") = "2" then
response.write(RS("ip") & " |</font> <a href='?page=5&mode=delete&id=" & RS("id") & "'><img src='gfx/gif/icons/delete.gif' border='0' alt='Slet tag'></a></td>")
else
response.write("Logged</font>")
end if
response.write("</tr>")
response.write("<tr>")
response.write("<td colspan='2' height='1' background='gfx/gif/dot.gif'></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td colspan='2'><font color='#999999'>[ Tilføjet d. " & formatdatetime(RS("addeddate"),2) & " kl. " & formatdatetime(RS("addedtime"),4) & " af ")
if not email = "" then
author = "<a href='mailto:" & email & "'>" & RS("author") & "</a>"
else
author = RS("nick")
end if
response.write(author)
response.write(" ]</font></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td colspan='2'>" & RS("body") & "</td>")
response.write("</tr>")
response.write("</table><br><br>")
rcsleft = rcsleft - 1
RS.moveNext()
loop
if Cint(tagcount) > 0 then
response.write("<table width='520' border='0' cellspacing='0' cellpadding='0' align='center'>")
response.write("<tr>")
response.write("<td width='150' height='3'>")
if Cint(tagpage) > 1 then
response.write("<a href='?page=5&tagpage=" & tagpage - 1 & "&list=" & list &"'><< Forrige side</a>")
End if
response.write("</td>")
response.write("<td width='205' height='3' align='center'>Side " & tagpage & " af " & pages)
response.write("<br>")
response.write("Vis <a href='?page=5&tagpage=1&list=5'>5</a>, <a href='?page=5&tagpage=1&list=10'>10</a>, <a href='?page=5&tagpage=1&list=15'>15</a> nyheder pr. side</td>")
response.write("<td width='150' height='3' class='text' align='right'>")
If Cint(tagpage) < pages then
response.write("<a href='?page=5&tagpage=" & tagpage + 1 & "&list=" & list & "'>Næste side >></a>")
End if
response.write("</td>")
response.write("</tr>")
response.write("</table>")
end if
end if
if getmode() = "addtag" then
if session("login") = "true" then
SQL = "SELECT nick, email FROM members WHERE id = " & session("memberid")
set RS = conn.execute(SQL)
author = RS("nick")
email = RS("email")
else
author = request.cookies("nick")
email = request.cookies("email")
end if
if request.form("mode") = "insert" then
topic = replace(request.form("topic"),"'","''")
body = replace(request.form("body"),"'","''")
bodyStr = replace(body,vbcrlf,"<br>")
author = request.form("nick")
email = request.form("email")
err = 0
if author = "" then
err = 1
errormsg = "<br>Du skal skrive dit nick"
end if
if instr(email,"@") = 0 or instr(email,".") = 0 or email = "" then
err = 1
errormsg = errormsg + "<br>Email-adressen er ikke gyldig"
end if
if topic = "" then
err = 1
errormsg = errormsg + "<br>Du skal skrive et emne"
end if
if body = "" then
err = 1
errormsg = errormsg + "<br>Du skal skrive et tag :P"
end if
if err = 0 then
SQL = "INSERT INTO tagwall(author, email, topic, body, ip) values('"
SQL = SQL & author & "','"
SQL = SQL & email & "','"
SQL = SQL & topic & "','"
SQL = SQL & bodyStr & "','"
SQL = SQL & Request.ServerVariables("REMOTE_ADDR") & "')"
set RSinsert = conn.Execute(SQL)
if request.form("remember") = "true" then
Response.cookies("nick") = author
Response.Cookies("nick").Expires = Date+365
Response.cookies("email") = email
Response.Cookies("email").Expires = Date+365
end if
response.redirect("http://www.b-teens.dk/default.asp?page=5")
end if
end if
response.write("<form name='form1' method='post' action='default.asp?page=6&mode=addtag'><input type='hidden' name='mode' value='insert'>")
response.write("<table width='540' border='0' cellspacing='0' cellpadding='2'>")
response.write("<tr>")
response.write("<td colspan='2'>Bemærk at alle felter markeret med * skal udfyldes<br><font color='#990000'>" & errormsg & "</font><br><br></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td width='115'>Nick: *</td>")
response.write("<td width='417'><input name='nick' type='text' id='nick' value='" & author & "' class='textfield' size='30'")
if session("login") = "true" then response.write(" readonly")
response.write("></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td>Email:</td>")
response.write("<td><input name='email' type='text' id='email' value='" & email & "' class='textfield' size='30'")
if session("login") = "true" then response.write(" readonly")
response.write("></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td>Emne: *</td>")
response.write("<td><input name='topic' type='text' id='topic' value='" & topic & "' class='textfield' size='30'></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td valign='top'>Tag: *</td>")
response.write("<td><textarea name='body' cols='65' rows='10' id='body' class='textfield'>" & body & "</textarea></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td> </td>")
response.write("<td><input type='checkbox' name='remember' value='true'")
if session("login") = "true" then response.write(" disabled")
response.write(">Husk mine oplysninger (cookies)</td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td> </td>")
response.write("<td><br> <br> <input type='submit' name='Submit' value='Gem tag' class='formbutton'> </td>")
response.write("</tr>")
response.write("</table>")
response.write("</form>")
response.write("<br><a href='?page=5'>< Tilbage til tagwall</a>")
end if
response.write("</td>")
response.write("</tr>")
response.write("</table>")
end sub
%>
-----------------------------------------------------------
På forhånd tak!
