---
title: "Live script"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/153470-live-script"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jeppeweb"
published: "2006-11-07T09:14:58.000Z"
updated: "2006-11-07T09:47:56.000Z"
replies: 4
views: 309
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/153470-live-script"
---

# Live script

## #1 — Jeppeweb, 2006-11-07T09:14Z

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>
```

Permalänk: https://www.webforum.nu/p/153470

## #2 — colione, 2006-11-07T09:17Z

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

Permalänk: https://www.webforum.nu/p/1893625

## #3 — @nders, 2006-11-07T09:18Z

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.

Permalänk: https://www.webforum.nu/p/1893626

## #4 — Jeppeweb, 2006-11-07T09:35Z

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

Permalänk: https://www.webforum.nu/p/1893633

## #5 — @nders, 2006-11-07T09:47Z

1) Kontrollera att du kallar connectionobjektet samma sak i *databaskopplingar.asp*. Samma fel som [här](http://www.webforum.nu/showthread.php?t=149681).

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

Permalänk: https://www.webforum.nu/p/1893639

---

Tråden på webben: https://www.webforum.nu/amne/asp/153470-live-script