Gemme data 3 steder på en gang

Kan du ikke lave noget med at brugeren indtaster data i en form og poster til "side1" side1 gemmer data i db1 og submitter sig selv til side2 som gemmer data i db2 osv. ???

Bare en idé har ikke prøvet lign. selv

//akj

Hvordan er databaserne placeret ift. hinanden ? Samme server eller ?

Skal oprettelsen foregå i realtid ?

Du skal have fat i løsningen fra dk_akj, da det ikke er muligt at connecte til access-db på tværs af servere/sites.

Når du submitter til side1, så gem også data i Form felter som HIDDEN, og submit automatisk formen til side2 osv. !

Side3 redirecter så tilbage til udgangspunktet !

Så du skal sende referencesiden med hele vejen rundt !

Jeg ville nok løse problemmet med en fælles MySQL database, som de 3 sider deltes om. Så man gemmer alle data et centralt sted, istedet for at have 3 databaser med samme indhold flere steder.

De ligger i 3 forskellige mapper på samme server. Grunden til jeg ikke kan have en fælles database er at alle data i de forskellige databaser ikke er ens

Er det din egen server ??
Hvis ja kunne man jo lave en applikation til at "replikere" brugerdata.
//akj

malte>> hvis de ligger på samme server, og du har adgang til dem alle tre fra samme hjemmeside, så er det ikke noget problem

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=database1.mdb"

Conn.Execute("INSERT INTO tabel (felter), VALUES (værdier)")

Conn.Close
Set Conn = Nothing

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=database2.mdb"

Conn.Execute("INSERT INTO tabel (felter), VALUES (værdier)")

Conn.Close
Set Conn = Nothing

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=database3.mdb"

Conn.Execute("INSERT INTO tabel (felter), VALUES (værdier)")

Conn.Close
Set Conn = Nothing

hmm.. det kan da vist gøres bedre...

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=database1.mdb"
Conn.Execute("INSERT INTO tabel (felter), VALUES (værdier)")
Conn.Close

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=database2.mdb"
Conn.Execute("INSERT INTO tabel (felter), VALUES (værdier)")
Conn.Close

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=database3.mdb"
Conn.Execute("INSERT INTO tabel (felter), VALUES (værdier)")
Conn.Close

Set Conn = Nothing