11 svar · 302 visningar · startad av Frexuz
där kan ni se hela min kod..
--------------------------------------------
funktion:
först hämtar jag alla mina (65!!) recordset in i input-fält...
ändrar vissa om jag vill..
sen vill jag uppdatera allt
det e alltså min 'Insert into' som inte fungerar.
-------------------
felmeddelande på rad: 372
Åtgärden är inte tillåten när objektet är öppet
rs.Open SQL, MinCon, 1, 2 <---- den raden
Ditt Recordset är ju fortfarande öppet. ;)
Den här koden är vettigare:
<html>
<head>
<title>Bracket</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<link rel="stylesheet" href="styles/default.css">
<body bgcolor="#999999" text="#cccccc" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Server.MapPath("..\..\db\ra3cup.mdb")
Set Rs = minCon.Execute("SELECT * from playoff")
%>
<!--
här är all HTML
-->
<%
Rs.Close : Set Rs = Nothing
minCon.Close : Set minCon = Nothing
if request.querystring("do") = "change" then
Set MinCon = Server.CreateObject("ADODB.Connection")
MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Server.MapPath("..\..\db\ra3cup.mdb")
SQL = "INSERT INTO playoff (clan1"
For lngTemp = 2 To 65
SQL = SQL & ",clan" & lngTemp
Next
SQL = SQL & ") VALUES (" & rs("clan1")
For lngTemp=2 to 65
SQL = SQL & "," & rs("clan" & lngTemp)
Next
SQL = SQL & ")"
[b][red]Set Rs = minCon.Execute(SQL),,128[/red][/b]
Rs.Close : Set Rs = Nothing
minCon.Close : Set minCon = Nothing
End if
%>
</body>
</html>
Du har redan öppnat ditt recordset, på rad 16.
Du måste stänga det innan du kan öppna det på nytt..
Slut på programsats förväntas.
/ra3cup/admin/edit/editbracket.asp, line 375, column 28
Set Rs = minCon.Execute(SQL),,128
efter sql)
Du kan inte använda ett Recset tillsammans med 128. Skriv bara
minCon.Execute(SQL),,128
Det är i alla fall vad jag tror problemet beror på. :)
hur blir det då`?
Om man kombinerar mitt och Sebbes inlägg så borde det alltså se ut så här:
minCon.Execute SQL,,128
Objektet kunde inte hittas i mängden med det begärda namnet eller numret.
/ra3cup/admin/edit/editbracket.asp, line 366
denna:
SQL = SQL & ") VALUES (" & rs("clan1")
nagot du vill plocka ut som ar knasigt, kontrollera namn.
har gjort typ 6-7 gånger redan
