Är inte säker men får man inte det fel meddelandet om man inte har Inkluderat adovbs.inc ?
------------------
Dont drink and drive!!! smoke shit and fly!!!
Frågan#1
<% Set Connect = Server.CreateObject("ADODB.Connection")
Set RecSet = server.createobject("ADODB.Recordset")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("gastbok.mdb")
SQL = "SELECT * FROM installningar WHERE id = "&request.querystring("id")
RecSet.Open SQL, Connect
minfont = RecSet("minfont")
minsize = RecSet("minsize")
mintext = RecSet("mintext")
minlink = RecSet("minlink")
minhover = RecSet("minhover")
minbg = RecSet("minbg")
minbgbild = RecSet("minbgbild")
minform = RecSet("minform")
mintbl = RecSet("mintbl")
%>
<style type="text/css">
<!--
A:Visited { font-family: "<%=minfont%>" ; color:<%=minlink%> ; text-decoration:none ; font-weight:normal ; font-size:<%=minsize%>px ;}
A:Link { font-family: "<%=minfont%>" ; color:<%=minlink%> ; text-decoration:none ; font-weight:normal ; font-size:<%=minsize%>px ; }
A:Hover { font-family: "<%=minfont%>" ; color:<%=minhover%> ; text-decoration:none ; font-weight:normal ; font-size:<%=minsize%>px ; }
BODY { background-color:<%=minbg%> ; background-image:url(<%=minbgbild%> ) ; color:<%=mintext%> ; margin:10 ;}
BODY { font-family:<%=minfont%> ; font-size:<%=minsize%>px ; }
table { font-family:<%=minfont%> ; font-size:<%=minsize%>px ; }
.mess { background-color:<%=mintbl%> ; }
form { font-family:<%=minfont%>; font-size:<%=minsize%>px ; }
input { font-family:<%=minfont%>; font-size:<%=minsize%>px ; color:<%=minform%> ; border-width:1px ; border-color: Black ; }
textarea { font-family:<%=minfont%> ; font-size:<%=minsize%>px ; color:<%=minform%> ; border-width:1px ; border-color: Black ; }
//-->
</style>
</head>
<body>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td><br>
<%
RecSet.Close
Set RecSet = Nothing
'0=================================================================================================0
' Öppna databasen
'0=================================================================================================0
If Request.QueryString("pallebook") = "" Then
MyPage = Request("nasta_sida")
If MyPage = "" then
MyPage = 1
End If
MyPagesize = mittantal
SQL = "SELECT * FROM gbook ORDER BY userid DESC"
Set RecSet = Server.Createobject("ADODB.Recordset")
RecSet.CursorLocation = 3
RecSet.CacheSize = 5
RecSet.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("gastbok.mdb")
If RecSet.EOF Then
Response.write "Just nu finns det inga inlägg i gästboken"
Else
RecSet.MoveFirst
[b]RecSet.PageSize = MyPageSize[/b]
MaxCount = Cint(RecSet.PageCount)
RecSet.AbsolutePage = MyPage
HowManyRecs = 0
HowManyFields = RecSet.Fields.Count -1
Do While Not RecSet.EOF AND HowManyRecs < RecSet.PageSize
Counter = Counter + 1
Detta felmeddelande får jag:
ADODB.Recordset fel '800a0bb9'
Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.
/ampy/gratisgastbok/pallebook.asp, line 158
Rad 158 är skriven med fetstil, hoppas någon kan se vad felet är för jag lyckas inte se det.
------------------
Ampy.cjb.net