Hejsan.
Jag försöker att öppna data från samma databas men från flera tabeller samtidigt men lyckas inte riktigt.
Det går bra från två tabeller med denna kod:
------------
set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM shipping, weight"
rs.Open sql, Conn, 3,3
--------------------

Men då jag försöker lägga till en tredje "option" så går det inte:
-------------------
set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM shipping, weight, option"
rs.Open sql, Conn, 3,3
-----------------

Då genereras detta felmess:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in FROM clause.

/admin/tariffer.asp, line 16


Någon som förstår vad som är fel?

/Stellan

access??

testa sql = "SELECT * FROM shipping, weight, [option]"

Japp, det funkade kanonbra :)
Nu försöker jag samma variant på update också men det går dåligt.
Jag får till svar att databasen är endast read only.
Men jag uppdaterar ju andra sidor så det är den inte.

Uppdatera = "Select * FROM shipping, weight, [option]"
rs.Open Uppdatera, Conn, adOpenDynamic, adLockOptimistic

/Stellan

Testa med UPDATE-kommando direkt i SQLen och exekutera direkt:

conn.execute("UPDATE tabellen SET fält1=123, fält2='text text' WHERE Id=21")

Med lite mer dynamik ser raden ut såhär:

conn.execute("UPDATE tabellen SET fält1="&falt1&", fält2='"&falt2&"' WHERE Id="&Idnr)

Observera också att fält1 är exempel på numeriskt fält, fält2 på textfält (glöm ej att tänka på SQL-injections). Givetvis skall du innan raden körs ha deklarerat variablarna och givit dem de korrekta värden.

Jadu, nu har jag provat massor varianter på detta,men tyvärr resultatlöst.
Jag försöker med denna kod och detta skall uppdatera tre olíka tabeller i samma databas (access)

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
Uppdatera = "Select * FROM shipping, weight, [option]"
rs.Open Uppdatera, Conn, adOpenDynamic, adLockOptimistic
rs("pg") = Request.Form("pg")
rs("fs") = Request.Form("fs")
rs("fak") = Request.Form("fak")
rs("kort") = Request.Form("kort")
rs("price1") = Request.Form("price1")
rs("weight2") = Request.Form("weight2")
rs("price2") = Request.Form("price2")
rs("weight3") = Request.Form("weight3")
rs("price3") = Request.Form("price3")
rs("weight4") = Request.Form("weight4")
rs("price4") = Request.Form("price4")
rs("weight5") = Request.Form("weight5")
rs("price5") = Request.Form("price5")
rs("weight6") = Request.Form("weight6")
rs("price6") = Request.Form("price6")
rs("weight7") = Request.Form("weight7")
rs("price7") = Request.Form("price7")
rs("weight8") = Request.Form("weight8")
rs("price8") = Request.Form("price8")
rs("weight9") = Request.Form("weight9")
rs("price9") = Request.Form("price9")
rs("companyname") = Request.Form("companyname")
rs("receipt") = Request.Form("receipt")
rs("smtp") = Request.Form("smtp")
rs("tax") = Request.Form("tax")
rs.Update
rs.Close
Conn.Close
%>

Hej och tack för hjälpen.
Jag löste det genom att göra så här.

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
Uppdatera = "SELECT * FROM shipping"
rs.Open Uppdatera, Conn, adOpenDynamic, adLockOptimistic
rs("pg") = Request.Form("pg")
rs("fs") = Request.Form("fs")
rs("fak") = Request.Form("fak")
rs("kort") = Request.Form("kort")
rs.Update
rs.Close
'Conn.Close
%>

<%
'Set rs = Server.CreateObject("ADODB.RecordSet")
Uppdatera = "SELECT * FROM weight"
rs.Open Uppdatera, Conn, adOpenDynamic, adLockOptimistic
rs("weight1") = Request.Form("weight1")
rs("price1") = Request.Form("price1")
rs("weight2") = Request.Form("weight2")
rs("price2") = Request.Form("price2")
rs("weight3") = Request.Form("weight3")
rs("price3") = Request.Form("price3")
rs("weight4") = Request.Form("weight4")
rs("price4") = Request.Form("price4")
rs("weight5") = Request.Form("weight5")
rs("price5") = Request.Form("price5")
rs("weight6") = Request.Form("weight6")
rs("price6") = Request.Form("price6")
rs("weight7") = Request.Form("weight7")
rs("price7") = Request.Form("price7")
rs("weight8") = Request.Form("weight8")
rs("price8") = Request.Form("price8")
rs("weight9") = Request.Form("weight9")
rs.Update
rs.Close
'Conn.Close
%>

<%
'Set rs = Server.CreateObject("ADODB.RecordSet")
Uppdatera = "SELECT * FROM [option]"
rs.Open Uppdatera, Conn, adOpenDynamic, adLockOptimistic
rs("companyname") = Request.Form("companyname")
rs("receipt") = Request.Form("receipt")
rs("smtp") = Request.Form("smtp")
rs("tax") = Request.Form("tax")
rs.Update
rs.Close
Conn.Close
%>

    rs("weight1") = Request.Form("weight1")
    rs("price1") = Request.Form("price1")
    rs("weight2") = Request.Form("weight2")
    rs("price2") = Request.Form("price2")
    rs("weight3") = Request.Form("weight3")
    rs("price3") = Request.Form("price3")
    rs("weight4") = Request.Form("weight4")
    rs("price4") = Request.Form("price4")
    rs("weight5") = Request.Form("weight5")
    rs("price5") = Request.Form("price5")
    rs("weight6") = Request.Form("weight6")
    rs("price6") = Request.Form("price6")
    rs("weight7") = Request.Form("weight7")
    rs("price7") = Request.Form("price7")
    rs("weight8") = Request.Form("weight8")
    rs("price8") = Request.Form("price8")
    rs("weight9") = Request.Form("weight9")   
    rs.Update 

     rs("price9") = Request.Form("price9")

Hej.
Jo den saknas där ser jag. Den är säkert väldigt statisk och bygger på gammal teknik som jag behärskar.
Just nu bygger jag en kundinloggning, vilket fungerar bra efter Pelles fina artikel i ämnet. MEN Efter lyckad inlogging så vill jag att just den kundens uppgifter ska presenteras i orderformuläret som skall skickas iväg. Det har jag ännu inte lyckats med. Har du något tips om det finns avhandlat här på Pellesoft?

/Stellan