øhh hvordan udskrives et obj recordset hehe

Prøv lige med

If objrecordset.BOF Or objrecordset.EOF Then

Hovsa var lige lidt hurtigt....

Prøv istedet med

if objrecordset.eof then
  Response.Write \"ingen poster\"
else
  response.write objrecordset(\"pris\")
  response.write request.form(\"varenr\")
End if

dette du har lavet vil kun skrive den første record ud!

ok jeg har ændræt det nu..

strSQl = \" SELECT pris FROM varesortiment as kobspris where varenr = \" & request.form(\"plus1\")


Dim Sti
Sti =Server.MapPath(\"access\\varesortiment.mdb\")

Dim objConnection
Set objConnection    = Server.CreateObject(\"ADODB.Connection\")

Dim objRecordSet
Set objRecordSet    = Server.CreateObject(\"ADODB.Recordset\")

\' Open DataSource \'
objConnection.Open \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Sti & \"\"



if objrecordset.eof then
  Response.Write \"ingen poster\"
else
  response.write objrecordset(\"pris\")
  response.write request.form(\"varenr\")



response.write \"<form><input type=\"\"hidden\"\" name=\"\"varenr\"\" VALUE=\"\"\"& (\"varenr\") &\"\"\"></form><br><br>\"
response.write request.form(\"varenr\")
response.write \"<br><form><input type=\"\"hidden\"\" name=\"\"price\"\" VALUE=\"\"\"& (\"pris\") &\"\"\"><br>\"

End If
objConnection.Close
Set objConnection = Nothing

nu siger den:
ADODB.Recordset error \'800a0e78\'

Operation is not allowed when the object is closed. ADODB.Recordset error \'800a0e78\'

jeg trode jeg havde åbnet for recordsettet ..eller hvad

response.write \"<br><form><input type=\"\"hidden\"\" name=\"\"price\"\" VALUE=\"\"\"& (\"pris\") &\"\"\"><br>\"

skal være!


response.write \"<br><form><input type=\"\"hidden\"\" name=\"\"price\"\" VALUE=\"\"\"& objrecordset(\"pris\") &\"\"\"><br>\"

går jeg udfra, du har struktureret dit eks, på en meget snørklet måde:)

Men dog meget Struktureret!!

hehe ja det er ved at være sent på aftenen så det kan vist halte lidt med omhyggeligheden :O)

virker det?

maddrich - ikke helt den kommer med denne her:
ADODB.Recordset error \'800a0e78\'

Operation is not allowed when the object is closed.

på denne linie
if objrecordset.eof then

kan i lure den af..jeg har prøvet at bytte om på set objrecordset og objconnection.open sætningenerne..men den var temmeligt ligeglad
så nu er den som jeg postede den sidste...dog med maddrich`s tilføjelse

jeg har også prøvet med
if NOT objrecordset.BOF or objrecordset.EOF
then response.write \"bllah blaah\"
else
end if
......
....

prøv
istedet for

Set objRecordSet = objConnection.execute(sql)

så får du da i det mindste exekveret et eller andet:)

LOL det er da helt klart et forsøg værd :O)
2 sek

<%
response.buffer = true

Sti =Server.MapPath(\"access\\varesortiment.mdb\")
Set objConnection  = Server.CreateObject(\"ADODB.Connection\")
objConnection.Open \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Sti & \"\"
strSQl = \" SELECT pris FROM varesortiment as kobspris where varenr = \" & request.form(\"plus1\")
Set objRecordSet  = objConnection.execute(sql)

if objrecordset.eof then
  Response.Write \"ingen poster\"
else
  response.write objrecordset(\"pris\")
  response.write request.form(\"varenr\")
response.write \"<form><input type=\"\"hidden\"\" name=\"\"varenr\"\" VALUE=\"\"\"& (\"varenr\") &\"\"\"></form><br><br>\"
response.write request.form(\"varenr\")
response.write \"<br><form><input type=\"\"hidden\"\" name=\"\"price\"\" VALUE=\"\"\"& (\"pris\") &\"\"\"><br>\"
End If
objConnection.Close
Set objConnection = Nothing
%>

Det er nogen gange også smart at bruge \"response.buffer = true\"

Og her glemte jeg selvfølgelig den sidste rettelse fra før:

response.write \"<br><form><input type=\"\"hidden\"\" name=\"\"price\"\" VALUE=\"\"\"& objrecordset(\"pris\") &\"\"\"><br>\"

Hmm den er fløjtende...den kommer igen med at
Operation is not allowed when the object is closed.


jeg bliver nød til at smutte nu...sengen kalder
vi må lige sove på den.

Tusind tak for hjælpen indtil nu
hvis i har lyst kan i lege lidt vidrer..her er den som den ser ud nu:
<%
response. write request.form(\"plus1\")
response.write request.form(\"minus1\")

strSQl = \" SELECT pris FROM varesortiment as kobspris where varenr = \" & request.form(\"plus1\")


Dim Sti
Sti =Server.MapPath(\"access\\varesortiment.mdb\")

Dim objConnection
Set objConnection    = Server.CreateObject(\"ADODB.Connection\")

Dim objRecordSet
Set objRecordSet    = Server.CreateObject(\"ADODB.Recordset\")

\' Open DataSource \'
objConnection.Open \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Sti & \"\"




if objrecordset.eof then
  Response.Write \"ingen poster\"
else
  response.write objrecordset(\"pris\")
  response.write request.form(\"varenr\")
Set objRecordSet = objConnection.execute(sql)


response.write \"<form><input type=\"\"hidden\"\" name=\"\"varenr\"\" VALUE=\"\"\"& (\"varenr\") &\"\"\"></form><br><br>\"
response.write request.form(\"varenr\")
response.write \"<br><form><input type=\"\"hidden\"\" name=\"\"price\"\" VALUE=\"\"\"& objrecordset(\"pris\") &\"\"\"><br>\"


End If
objConnection.Close
Set objConnection = Nothing



\'500 implemetere startmoduller herfra...Husk at
\'frameID, listID,sourceID,multiID skal medtages

jeg har response.buffer=true på
dog tidligere på siden

<%
response.buffer = true

Sti =Server.MapPath(\"access\\varesortiment.mdb\")
Set objConnection  = Server.CreateObject(\"ADODB.Connection\")
objConnection.Open \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Sti & \"\"
strSQl = \" SELECT pris FROM varesortiment as kobspris where varenr = \" & request.form(\"plus1\")
Set objRecordSet  = objConnection.execute(sql)

if objrecordset.eof then
  Response.Write \"ingen poster\"
else
  response.write objrecordset(\"pris\")
  response.write request.form(\"varenr\")
response.write \"<form><input type=\"\"hidden\"\" name=\"\"varenr\"\" VALUE=\"\"\"& (\"varenr\") &\"\"\"></form><br><br>\"
response.write request.form(\"varenr\")
response.write \"<br><form><input type=\"\"hidden\"\" name=\"\"price\"\" VALUE=\"\"\"& objrecordset(\"pris\") &\"\"\"><br>\"
End If
objConnection.Close
Set objConnection = Nothing
%>

det skulle virke, du gør det forkerte at du sidder \"Set objRecordSet = objConnection.execute(sql) \"

ind efter at du bruger det! det skal være FØR \"if objrecordset.eof then \"

den kan ikke åbne det hvis det ikke er blevet defineret!

at objectrecordset eksekverer din SQL og derfor kan det ikke bruge det til en ....