10 svar · 245 visningar · startad av ampy
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")&";"
------------------
Ampy.cjb.net
[Redigerat av ampy den 17 dec 2001]
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.
------------------
essentitia preter non sans multiplicandum
Kan vara en fördel att ha skapar ett recset också... ;)
Set RecSet = server.createobject("ADODB.Recordset")
r/ Äsch! LarsG är snabbast som vanligt... :)
------------------
Mvh. Wiberg
[Redigerat av Wiberg den 17 dec 2001]
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.
------------------
Ampy.cjb.net
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> | <a href="inloggad.asp?vad=installningar">Ändra inställningar</a> | <a href="inloggad.asp?vad=radera">Ändra/Radera gamla nyheter</a> | <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>
------------------
Ampy.cjb.net
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.
------------------
essentitia preter non sans multiplicandum
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.
------------------
Ampy.cjb.net
Så din databas ligger i samma katalog som denna ASP-filen, du borde nog lägga den utanför webrooten?
------------------
Mostly Harmless
Det ska väl inte spela någon roll om jag har databasen utanför webrooten eller inte?
------------------
Ampy.cjb.net
