Live script

tja, får det inte att fungera...

först när jag går in på live sidan;

Microsoft VBScript runtime error '800a01a8' 
Object required: '' 

/live.asp, line 41

och när jag försöker skicka ett meddelande:

Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'Fixbug' 

/live.asp, line 25

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

<table width="100%" class="table" cellspacing="0">
<tr><td class="tdbg"><b><font class="svart">&nbsp;Skriv ett live</font></b></td></tr>
<tr><td class="tdmini" height="1"></td></tr>
<tr><td valign="top" class="tdbla">
<%
        'Kollar så man inte postat live på tre min.

		If Request.Cookies("spamProtectionLive")="" Then
%>
<form method="post" action="?visa=live&amp;do=addLive">
Meddelande som visas i den rullande texten<br />
<input maxlength="45" type="text" name="live" style="width:70%;" size="20" /> (<b>max 45 tecken</b>)<br /><br /><br />
<input type="submit" value="Skicka live" />
</form>
<%
		Else
			Response.Write "<h3>Du får inte skriva ett live till på tre minuter</h3>"
		End If
		
		If Request.Querystring("do")="addLive" Then
		If Len(Request.Form("live")) > 0 Then
	objConn.Execute("INSERT INTO medlemmar(livemess, anvandarnamn, ID) VALUES ('"& Fixbug(Request.Form("live")) &"', '"& Fixbug(session("anvandarnamn")) &"', '"& Fixbug(session("id")) &"' )")
					Response.Cookies("spamProtectionLive") = now
					Response.Cookies("spamProtectionLive").Expires = DateAdd("s", 180, now())
			Response.Redirect "?visa=live"
		Else
			Response.Write "Fyll i ett meddelande."
		End If
		End If
%>
</td></tr>
</table>
<br />
<table width="100%" class="table" cellspacing="0">
<tr><td class="tdbg" colspan="3"><b><font class="svart">&nbsp;Alla live</font></b></td></tr>
	<tr><td colspan="3" class="tdmini" height="1"></td></tr>
<%
	Set objRS = objConn.Execute("SELECT livemess FROM medlemmar ORDER BY ID DESC")
	
		Do While Not objRS.EOF
%>
		<tr>
<%
		If session("admin")="ja" Then
%>
		<td class="tdbla" width="2%"><a href="?visa=live&amp;do=delete&amp;id=<%=objRS("id")%>">[X]</a></td>
<%
		End If
%>
		<td class="tdbla" width="53%">
			<%=Server.htmlEncode(objRS("livemess"))%>
		</td>
		<td class="tdbla" style="text-align:right;" width="44%">
			Skrivet av: <a href="?visa=profil&amp;userId=<%=objRS("id")%>&amp;ukat=press&amp;youAre=<%=session("id")%>"><b><%=Fixbug(objRS("anvandarnamn"))%></b></a>
		</td>		
	</tr>
<%
		objRS.MoveNext
		Loop
		
////////////////////////////////////////////////////////////////////////

////// Raderar ett live, endast administratören kan göra detta.

////////////////////////////////////////////////////////////////////////
	
		If Request.Querystring("do")="delete" Then
		If session("admin")="ja" Then
	objConn.Execute("DELETE livemess FROM medlemmar WHERE id="& CLng(Request.Querystring("id")) &"")
		objRS.Close : Set objRS = Nothing
		objConn.Close : Set objConn = Nothing
			Response.Redirect(Request.ServerVariables("HTTP_REFERER"))
		End If
		End If

%>
</table>

Hur ser funktionen fixbug ut och vilken rad är 41?

Felmeddelande 1 tyder på att du anger fel namn på ditt connectionobjekt, och nummer två tyder på att du inte har definierat funktionen FixBug() någonstans.

Men jag fattar inte, jag har skapat en tabell i min mysql databas vid namn live, har 3 kolumner.. ID, anvnamn & meddelande..

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

<table width="100%" class="table" cellspacing="0">
<tr><td class="tdbg"><b><font class="svart">&nbsp;Skriv ett live</font></b></td></tr>
<tr><td class="tdmini" height="1"></td></tr>
<tr><td valign="top" class="tdbla">
<%
        'Kollar så man inte postat live på tre min.

		If Request.Cookies("spamProtectionLive")="" Then
%>
<form method="post" action="?visa=live&amp;do=addLive">
Meddelande som visas i den rullande texten<br />
<input maxlength="45" type="text" name="live" style="width:70%;" size="20" /> (<b>max 45 tecken</b>)<br /><br /><br />
<input type="submit" value="Skicka live" />
</form>
<%
		Else
			Response.Write "<h3>Du får inte skriva ett live till på tre minuter</h3>"
		End If
		
		If Request.Querystring("do")="addLive" Then
		If Len(Request.Form("live")) > 0 Then
	objConn.Execute("INSERT INTO live(meddelande, anvnamn, id) VALUES ('"& Fixbug(Request.Form("live")) &"', '"& Fixbug(session("anvnamn")) &"', '"& Fixbug(session("id")) &"' )")
					Response.Cookies("spamProtectionLive") = now
					Response.Cookies("spamProtectionLive").Expires = DateAdd("s", 180, now())
			Response.Redirect "?visa=live"
		Else
			Response.Write "Fyll i ett meddelande."
		End If
		End If
%>
</td></tr>
</table>
<br />
<table width="100%" class="table" cellspacing="0">
<tr><td class="tdbg" colspan="3"><b><font class="svart">&nbsp;Alla live</font></b></td></tr>
	<tr><td colspan="3" class="tdmini" height="1"></td></tr>
<%
	Set objRS = objConn.Execute("SELECT * FROM live ORDER BY ID DESC")
	
		Do While Not objRS.EOF
%>
		<tr>
<%
		If session("admin")="ja" Then
%>
		<td class="tdbla" width="2%"><a href="?visa=live&amp;do=delete&amp;id=<%=objRS("id")%>">[X]</a></td>
<%
		End If
%>
		<td class="tdbla" width="53%">
			<%=Server.htmlEncode(objRS("meddelande"))%>
		</td>
		<td class="tdbla" style="text-align:right;" width="44%">
			Skrivet av: <a href="?visa=profil&amp;userId=<%=objRS("id")%>&amp;ukat=press&amp;youAre=<%=session("anvnamn")%>"><b><%=Fixbug(objRS("anvnamn"))%></b></a>
		</td>		
	</tr>
<%
		objRS.MoveNext
		Loop
		
////////////////////////////////////////////////////////////////////////

////// Raderar ett live, endast administratören kan göra detta.

////////////////////////////////////////////////////////////////////////
	
		If Request.Querystring("do")="delete" Then
		If session("admin")="ja" Then
	objConn.Execute("DELETE * FROM live WHERE id="& CLng(Request.Querystring("id")) &"")
		objRS.Close : Set objRS = Nothing
		objConn.Close : Set objConn = Nothing
			Response.Redirect(Request.ServerVariables("HTTP_REFERER"))
		End If
		End If

%>
</table>

rad 25:

	objConn.Execute("INSERT INTO live(meddelande, anvnamn, id) VALUES ('"& Fixbug(Request.Form("live")) &"', '"& Fixbug(session("anvnamn")) &"', '"& Fixbug(session("id")) &"' )")

rad 42:

	Set objRS = objConn.Execute("SELECT * FROM live ORDER BY ID DESC")
	
		Do While Not objRS.EOF

tacksam för hjälp

1. Kontrollera att du kallar connectionobjektet samma sak i databaskopplingar.asp. Samma fel som här.

2. Se till så du har med funktionen FixBugs() i din kod.