vad är det för fel, det vägrar att komma ngt...de står bara ingenting

----kod-----

<% Response.Buffer = True %>
<!-- #include file = "meny.asp" --><br>
<table width="500" border="0" cellpadding="1" cellspacing="1" bgcolor="#000000">
<!--DWLayoutTable-->
<tr valign="top" bgcolor="#85B000">
<td width="493" height="19" valign="top"><table width="496" border="0" cellpadding="1" cellspacing="1" bgcolor="#000000">
<tr>
<td bgcolor="#597700"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<!--DWLayoutTable-->
<tr>
<td width="363" height="19" valign="top"> <strong> <font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Sök
medlemmar</strong></font></strong></td>
<td width="152" valign="top"> </td>
<td width="79" rowspan="2" valign="top"><div align="right"><strong><font color="#000000" size="4">::</font></strong></div></td>
</tr>
<tr>
<td height="1"></td>
<td></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr valign="top" bgcolor="#666666">
<td height="14" valign="top"><p> </p>
<p>Välkommen till forumet..<br>
Om en rad är ifylld med "<font color="#CCCCCC">grått</font>" så
är den tråden/svaren rätt nya! <br>
<script>


function submitonce(theform){
if (document.all||document.getElementById){
for (i=0;i<theform.length;i++){
var tempobj=theform.elements[i]
if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
tempobj.disabled=true
}
}
}
</script>
<%
Function mysql(q)
mysql=Replace(Replace(q,"\","\\"),"'","\'")
end function

nextPage = TRIM( Request("nextPage"))
IF nextPage = "" THEN nextPage = 1

Set Connect = Server.CreateObject("ADODB.Connection")
oppna="Driver=MySql;server=localhost;user=joxxe;pwd=paswoord;database=databbaaasseenn"
Connect.Open(oppna)

if request.querystring("action") = "spara" Then
connect.execute("Insert into forum (titel,inlagg,namn,namnid,org,datum) values ('" & (request.form("titel")) & "','" & (request.form("inlagg")) & "','" & (session("user")) & "','" & session("id") & "','ja','" & now & "')")


connect.execute("Update anv set status=status+" & poangforum & " where id='"&session("id")&"'")



response.redirect "forum.asp"
end if





postPerSida = 15

sida=nextpage

set con = server.createObject("ADODB.Connection")
con.open(oppna)


paging = "SELECT * FROM anv where id='"&session("id")&"' limit " & (sida - 1) * postpersida & ", " & postpersida
set rs = con.execute(paging)
do until rs.eof



set rs2=Connect.execute("SELECT count(*) FROM forum where svarpa='"&rs("id")&"'")

antal = rs2(0)
set rs2=nothing
%>
<% if now < rs("datum")+1 then%>
</p>
<table width="490" border="0" cellpadding="0" cellspacing="0" bgcolor="#85B000">
<% else %>
<table width="490" border="0" cellpadding="0" cellspacing="0" bgcolor="#999999" >
<% end if %>
<tr onMouseOver="this.style.background='#666666'" onMouseOut="this.style.background=''">
<td width="40"><div align="center"></div></td>
<td width="420"> ">
<% if rs("titel")&"" = "" then%>
Ingen rubrik angiven på denna tråd
<% else %>
<%=rs("titel")%>
<% end if %>
</td>
<td width="98">(<%=antal%>)
<% If session("admin") = "1" then%>
">Ta bort
<% End If %>
</td>
</tr>
</table>

<%
rs.movenext
loop

set rakna = con.execute("Select Count(*) from forum")
antalposter = rakna(0)
set rakna = nothing
poster = Int((antalposter - 1) / postpersida) + 1
%>
<br>
<br>
<%
IF poster > 1 THEN

%>
Sida:
<%
FOR a = 1 to poster
IF a <> cINT( nextPage ) THEN %>
<%=a%>
<%
ELSE %>
(<%=a%>)
<%
END IF
NEXT
end if
set rs=nothing
%>





<hr>
<strong>Lägg till ny Rubrik</strong><br>
<form name="form1" method="post" action="forum.asp?action=spara" onSubmit="submitonce(this)">
titel:<br>
<input type="text" name="titel">
<br>
inl&auml;gg:<br>
<textarea name="inlagg" cols="50" rows="4"></textarea>
<br>
<input type="submit" name="Submit" value="spara">
</form>
</table></td>
</tr>
</table>

<!-- #include file = "power.asp" -->

---slut---
va e fel?