An unhandled data type was encountered.

Pekar felet på någon viss rad?

Annars är det väl bara att kommentera bort i koden tills felet försvinner, så har du isolerat orsaken.

Justeja, förlåt..

Felet ligger på rad 77..
Har försökt, försökt ångrat till jag är 100% att felet inte fanns då men det försvinner inte..

Jag vet inte riktigt vad som orsakar felet, men det känns inte rätt att du försöker använda data från recordsetet FR (rad 75) innan du kollar om det är tomt (rad 77).

Om jag vore du skulle jag börja med att fixa till det.
Sedan fixa indenteringen lite bättre.

Edit: och ska det verkligen stå "Blää" på rad 45?

Hehe, tack, de var de som var felet :P

Vad menas me indenteringen?

Nej, de ska inte stå Blää :P Provisoriskt..

http://susning.nu/Indentering

I din kod:

if request.QueryString("do") = "spara" then
if request.QueryString("vad") = "huvud" then

Function FixSql(str)
    str = Trim(str)
    str = Replace(str, "\", "\\")
    str = Replace(str,"'","''")
    str = Replace(str,"<","")
    str = Replace(str,">","")
    str = Replace(str,"/","")

    FixSql = str

End Function

strTitel = FixSql(request.Form("titel"))
strBesk = FixSql(request.Form("besk"))
intAntal = "0"

strSQL ="INSERT INTO forumrum (strTitel, strBesk, intAntal) values ('" & strTitel & "', '" & strBesk & "', " & intAntal & ")"
Connect.Execute(strSQL)

Session("huvud") = "Nu är den sparad"
Response.redirect("admin_forum.asp?do=forum")

else
Blää
end if

elseif request.QueryString("do") = "radera" then
if session("level") = "1" then
SQL = "DELETE FROM forumrum Where B_ID = "&request.QueryString("ID")&""
Session("huvudbort") = "Nu är den borttagen"
Response.redirect("admin_forum.asp?do=forum")
else
response.Write("Du har inte behörighet att ta bort!")
end if
end if

Indenterat:

if request.QueryString("do") = "spara" then
	if request.QueryString("vad") = "huvud" then

		Function FixSql(str)
		    str = Trim(str)
		    str = Replace(str, "\", "\\")
		    str = Replace(str,"'","''")
		    str = Replace(str,"<","")
		    str = Replace(str,">","")
		    str = Replace(str,"/","")

		    FixSql = str

		End Function

		strTitel = FixSql(request.Form("titel"))
		strBesk = FixSql(request.Form("besk"))
		intAntal = "0"
	
		strSQL ="INSERT INTO forumrum (strTitel, strBesk, intAntal) values ('" & strTitel & "', '" & strBesk & "', " & intAntal & ")"
		Connect.Execute(strSQL)

		Session("huvud") = "Nu är den sparad"
		Response.redirect("admin_forum.asp?do=forum")

	else
		Blää
	end if
elseif request.QueryString("do") = "radera" then
	if session("level") = "1" then
		SQL = "DELETE FROM forumrum Where B_ID = "&request.QueryString("ID")&""
		Session("huvudbort") = "Nu är den borttagen"
		Response.redirect("admin_forum.asp?do=forum")
	else
		response.Write("Du har inte behörighet att ta bort!")
	end if
end if

Koden är tydligare och lättare att följa när man ser vilka rader kod som hör ihop.