webForumDet fria alternativet

Fattar inte vad felet är!!!

ASP

10 svar · 267 visningar · startad av ampy

ampyMedlem sedan feb. 20011 498 inlägg
Trådstart#1

Hejsan!
Jag kan inte se vad felet är. Jag får detta felmeddelande:

Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: 'RecSet'
/nyheter/inloggad.asp, line 298

Detta är rad 297 och 298:

SQL = "SELECT * FROM installningar"
		RecSet.Open SQL, connect, adopenstatic, adlockoptimistic

Jag har även infogat adovbs.inc.
Hoppas någon kan hjälpa mig.

Om ni vill se min databaskoppling så ser den ut så här:

Set Connect = Server.CreateObject("ADODB.Connection") 
		Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("nyheter.mdb")&";"
LarsGMedlem sedan dec. 200012 464 inlägg
#2

Skapar du något recordset?

dvs

set recset = server.createobject("ADODB.recordset")

eller du kanske har satt det till nothing tidigare? Om detta inte hjälper så får du visa lite mer kod.

WibergMedlem sedan juni 20003 169 inlägg
#3

Kan vara en fördel att ha skapar ett recset också... ;)

Set RecSet = server.createobject("ADODB.Recordset")

r/ Äsch! LarsG är snabbast som vanligt... :)

ampyMedlem sedan feb. 20011 498 inlägg
#4

Det blir fortfarande Objekt krävs när jag har lagt in Set RecSet = server.createobject("ADODB.Recordset").

LarsG. vad ska jag visa för mer kod som du skrev.

LarsGMedlem sedan dec. 200012 464 inlägg
#5

Tja, du kan ju visa rad 250-300

ampyMedlem sedan feb. 20011 498 inlägg
#6

Jag visar hela dokumentet istället.


<!-- #include file = "adovbs.inc" -->
<!--
	#################################################################
	#								#
	#  Ampy Nyheter v1.0						#
	#								#		
	#  Denna applikation är fri att använda för icke kommersiellt 	#
        #  bruk under förutsättning att copyrightkoden förblir intakt!	#				
	#								#
	#  © 2001-2002 Andreas			               		#
	#  [url="http://ampy.cjb.net"]http://ampy.cjb.net[/url] 						#
	#								#
	#################################################################
-->

<html>

<head>

<style type="text/css">
body { 
scrollbar-base-color: #FFE784; 
scrollbar-arrow-color: #000000; 
scrollbar-highlight-color: #; 
scrollbar-3dlight-color: #000000; 
scrollbar-darkshadow-color: #000000; 
scrollbar-track-color: #FFF7EF }
</style>

<STYLE type=text/css>A:link {
	COLOR: #000080; TEXT-DECORATION: none
}
A:visited {
	COLOR: #000080; TEXT-DECORATION: none
}
A:active {
	COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
	COLOR: #5A5AFC; TEXT-DECORATION: none
}
</STYLE>

<style type="text/css">
input,textarea {font-family: Verdana; font-size:10px; font-weight: normal; border: 1px solid (color: #000000); background-color:#FFFFFF ; color: #000000}
</style>

<title>Ampy Nyheter v1.0</title>
</head>

<body onLoad="currentField=false;" >

<center>

<table bgcolor="<%=bgtable%>" border="0" cellpadding="2" cellspacing="3" width="500" style="border: 1 solid #000000">
	<tr>
		<td width="475">
		<font face=verdana size=1>

		<a href="inloggad.asp?vad=skriva">Skriva nyheter</a> &#0124; <a href="inloggad.asp?vad=installningar">Ändra inställningar</a> &#0124; <a href="inloggad.asp?vad=radera">Ändra/Radera gamla nyheter</a> &#0124; <a href="inloggad.asp?vad=loggaut">Logga ut</a>
		<br>
		<hr color="#008100">

		

		<%If Request.Querystring("vad") = "skriva" Then%>

		<form name="form1" method="post" action="inloggad.asp?vad=uppdatera">
		<font face=verdana size=1>
		Datum:<br>
		<INPUT TYPE=text name="datum" SIZE=85 value="<%

		Response.Write WeekdayName(Weekday(Now())) & " " & Day(Date()) & " " & MonthName(Month(Date())) & " " & Year(Date()) & " - " & Hour(Time()) & ":" & Minute(Time())

		%>"> </font></i><br><br>

		<font face=verdana size=1>
		Nyheten:<br>

		<textarea name="nyheter" cols="85" rows="7" onFocus="currentField=this"></textarea>

		<br><br>

		Kortfattat:<br>
		<INPUT TYPE=text name="kortfattat" SIZE=85 value="Din text - <%

		Response.Write Day(Date()) & " " & MonthName(Month(Date())) & " " & Hour(Time()) & ":" & Minute(Time())

		%>"> <br><font color="#006600">Ex: Nytt uppdateringssystem - <%

		Response.Write Day(Date()) & " " & MonthName(Month(Date())) & " " & Hour(Time()) & ":" & Minute(Time())

		%></font>

		<br><br>

		<INPUT type="submit" name="Submit" value="Spara">

		</form>

		<br><br>

		Saker att infoga: <i>(ni måste klicka i nyhetsfältet först)</i><br><br>
		   

<table>
	<tr>
		<td>
<font face=verdana size=1>
		<a href="#" onClick='if(currentField){ currentField.value+="<a href=\"\"></a>"; currentField.focus(); } return false'>Länk</a>
		<br><a href="#" onClick='if(currentField){ currentField.value+="<font color=\"#FF0000\">texten</font>"; currentField.focus(); } return false'>Röd text</a>
		<br><a href="#" onClick='if(currentField){ currentField.value+="<font color=\"#FFFF00\">texten</font>"; currentField.focus(); } return false'>Gul text</a>
		<br><a href="#" onClick='if(currentField){ currentField.value+="<font color=\"#0000FF\">texten</font>"; currentField.focus(); } return false'>Blå text</a>
		</td>

	
		<td>
<font face=verdana size=1>
		<br><a href="#" onClick='if(currentField){ currentField.value+="<font color=\"#00FF00\">texten</font>"; currentField.focus(); } return false'>Grön text</a>
		<br><a href="#" onClick='if(currentField){ currentField.value+="<b></b>"; currentField.focus(); } return false'>Fet text</a>
		<br><a href="#" onClick='if(currentField){ currentField.value+="<i></i>"; currentField.focus(); } return false'>Kursiv text</a>
		<br><a href="#" onClick='if(currentField){ currentField.value+="<u></u>"; currentField.focus(); } return false'>Understruken text</a>
		<br>
		</td>
</tr>
</table>
		

		</td>

	</tr>

</table>

		<%End If%>

		

		

		<%If Request.Querystring("vad") = "uppdatera" Then%>

		

		<%

		Set Connect = Server.CreateObject("ADODB.Connection") 
		Set RecSet = server.createobject("ADODB.Recordset")
		Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("nyheter.mdb")&";"
		
		

		Addera = "Select * From nyheter" 
		RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

		RecSet.AddNew

		RecSet("datum") = Request.Form("datum")
		RecSet("nyheter") = Request.Form("nyheter")
		RecSet("kortfattat") = Request.Form("kortfattat")

		RecSet.Update
	
		

		Response.Redirect "inloggad.asp?vad=visatexten"

		End If%>

		<%If Request.Querystring("vad") = "visatexten" Then%>

		

		<%
		
		sql = "SELECT * FROM nyheter ORDER BY ID DESC"
		RecSet.Open sql, connect, adopenstatic, adlockoptimistic

		

		%>

		<i><font color="116320"><%=RecSet("datum")%></i></font>
		<br><br>

		<%=RecSet("nyheter")%>

		<br><br>
		<img src="gubbe.gif"> / <i>Webmastern</i><br><br>

		

		<%
		Set Connect = Server.CreateObject("ADODB.Connection") 
		Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("nyheter.mdb")

		Set RecSet = Server.CreateObject("ADODB.Recordset")

		Addera = "Select TOP 4 * From nyheter ORDER BY id desc"

		RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
		%>
		<br>
		<%
		RecSet.MoveNext 
		do until RecSet.EOF %>
		<br> <% response.write RecSet("kortfattat")
		RecSet.MoveNext
		Loop

		
		
		
		End If

		%>

		

		<%If Request.Querystring("vad") = "installningar" Then

		
		SQL = "SELECT * FROM installningar"
		RecSet.Open SQL, connect, adopenstatic, adlockoptimistic
		%>

		Här nedan kan du ändra inställningar så att allt passar efter din smak. 
		
		<br><br><br><form method="post" action="inloggad.asp?vad=change">
		<input type="text" name="bgtable" value="<%=RecSet("bgtable")%>"> Bakgrundsfärg på tabellen:

		<br><input type="text" name="bgcolor" value="<%=RecSet("bgcolor")%>"> Bakgrundsfärg på sidan:

		<br><input type="text" name="bgform" value="<%=RecSet("bgform")%>"> Bakgrundsfärg i formulären:

		<br><input type="text" name="link" value="<%=RecSet("link")%>"> Färg för länkar:

		<br><input type="text" name="linkover" value="<%=RecSet("linkover")%>"> Färg för hover:

		<br><input type="text" name="namn" value="<%=RecSet("namn")%>"> Ditt namn som syns i Nyheterna

		<br><input type="text" name="bild" value="<%=RecSet("bild")%>"> Vill du ha en bild före ditt namn (20*20) - Skriv "ja" eller "nej"

		<br><input type="text" name="bildurl" value="<%=RecSet("bildurl")%>"> Länk till bilden om du vill ha det

		<br><input type="text" name="username" value="<%=RecSet("username")%>"> Ditt användarnamn till att logga in

		<br><input type="password" name="password" value="<%=RecSet("password")%>"> Lösenord

		<br><input type="text" name="kortfattningar" value="<%=RecSet("kortfattningar")%>"> Hur många kortfattningar det ska vara

		<br><br><input type="submit" value="Ändra/Uppdatera">

		

		</td>

		</tr>

		</table>

		<%End If%>

		<%If Request.Querystring("vad") = "change" Then%>

	        <%

		

		Uppdatera = "SELECT * FROM installningar"
		RecSet.Open Uppdatera, Connect, adOpenDynamic, adLockOptimistic

		RecSet("bgtable") = Request.Form("bgtable")
		RecSet("bgcolor") = Request.Form("bgcolor")
		RecSet("bgform") = Request.Form("bgform")
		RecSet("link") = Request.Form("link")
		RecSet("linkover") = Request.Form("linkover")
		RecSet("namn") = Request.Form("namn")
		RecSet("bild") = Request.Form("bild")
		RecSet("bildurl") = Request.Form("bildurl")		
		RecSet("username") = Request.Form("username")
		RecSet("password") = Request.Form("password")
		RecSet("kortfattningar") = Request.Form("kortfattningar")
		RecSet.Update 

		Response.Redirect "inloggad.asp?vad=change2"

		
		

		End If

		%>

                <%If Request.Querystring("vad") = "change2" Then%>

		<center>Nu är dina uppgifter ändrade</center>

		
		<%End If

		If Request.Querystring("vad") = "radera" Then%>

		Här kan du radera eller ta bort gamla meddelanden. <br><br>

		
		<%
		
		SQL = "SELECT * FROM nyheter ORDER BY ID DESC"
		RecSet.open SQL, connect, adopenstatic, adlockoptimistic
		%>

		<textarea name="nyheter" cols="85" rows="7"><%=RecSet("nyheter")%></textarea>
		

		

		<%End If%>

		<%If Request.Querystring("vad") = "loggaut" Then

		Session.Abandon
		Response.Redirect "admin.asp"	

	End If
%>

		

</body>

</html>
LarsGMedlem sedan dec. 200012 464 inlägg
#7

Du skapar bara ett recordset om du kommer in i denna if

<%If Request.Querystring("vad") = "uppdatera" Then%>

Det kanske är enklast att flytta skapandet utanför if

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Set RecSet = server.createobject("ADODB.Recordset")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("nyheter.mdb")&";"

If Request.Querystring("vad") = "uppdatera" Then%>

eller så får du lägga till skapandet inom varje if-sats där du använder databasen.

ampyMedlem sedan feb. 20011 498 inlägg
#8

Nu fick jag detta:

Feltyp:
Provider (0x80004005)
Odefinierat fel
/nyheter/inloggad.asp, line 91

Rad 91:

Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("nyheter.mdb")&";"

Jag är säker på att jag har skrivit rätt sökväg till databasnen.

Vides avatarVideMedlem sedan dec. 19998 577 inlägg
#9

Så din databas ligger i samma katalog som denna ASP-filen, du borde nog lägga den utanför webrooten?

ampyMedlem sedan feb. 20011 498 inlägg
#10

Det ska väl inte spela någon roll om jag har databasen utanför webrooten eller inte?

ampyMedlem sedan feb. 20011 498 inlägg
#11

Är det ingen som vet vad felet kan vara?

264 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a
126 ms — deklarationer (db)
0 ms — hämta statistik (cache)
135 ms — hämta tråd, inlägg och bilagor (db)
125 ms — ändringar (db)