09. januar 2001 - 09:27Der er
7 kommentarer og 1 løsning
Åben/luk nyt vindue og reload hovedvindue
Hej
Jeg sidder hernede på mit arbejde og mangler min bog, så jeg tænkte at der nok var nogle af jer kloge hoveder der kunne hjælpe mig.
Jeg skal åbne et nyt vindue(brugerdefineret) og indtaste nogle oplysninger som bliver gemt i en database. Vinduet lukker samtidigt med at jeg gemmer oplysningerne. Når dette er gjort ell. mens det bliver gjort skal mit hoved-vindue reloades så de nye oplysninger kommer med der.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Den blev lavet til et andet spørgsmål men mon ikke du kan bruge: http://hjem.get2net.dk/Jakob.Aggernaes/temp/exp37998.html Den åbner en popup med en form som så udfyldes og sender data tilbage til hovedsiden (og lukker sig) Du skal blot selv sørge for submit til din database.
Jeg beklager den lange svartid men der var en del andet der lige skulle rettes til inden jeg kom så langt. Men jeg kan desværre ikke få det til at fungerer, så her kommer lige lidt mere uddybende oplysninger om hele processen. Siden bliver åbnet fra en frame der hedder id2k som følgende : <a onclick=\"window.open(\'indkoebskurv.asp?recordset=<%= Request.Querystring(\"recordset\") %>&varenr=<%= ProdRS(\"VareNr\") %>\', \'Indkoebskurv\', \'toolbar=no, status=no, left=150, top=200, width=400, height=81\');\"> <img src=\"gfx/kurv.gif\" width=23 height=12 border=0 alt=\"\" style=\"cursor:hand;\"> </a>
Efter jeg har indtastet nogle oplysninger bliver de bhandlet som følgende(skulle gerne lukke og genindlæse hovedvinduet) <% @language=\"VBScript\" %> <% Option Explicit Response.Buffer = True Response.Expires = 0
Dim KurveRS, KoebRS, strConnection strConnection = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../../access/lm-indkoebskurv.mdb\") Set KurveRS = Server.CreateObject(\"ADODB.RecordSet\") KurveRS.Open \"SELECT * FROM Kurve WHERE SessionId = \" & session(\"KurveId\") & \"\", strConnection, 1,3
If KurveRS.EOF Then KurveRS.AddNew KurveRS(\"SessionId\") = session(\"KurveId\") KurveRS(\"Dato\") = now KurveRS.Update End If Set KoebRS = Server.CreateObject(\"ADODB.RecordSet\") KoebRS.Open \"SELECT * FROM Indhold WHERE Varenummer = \'\" & Request.Form(\"varenr\") & \"\'\", strConnection, 1,3
If KoebRS.EOF Then KoebRS.AddNew KoebRS(\"Varenummer\") = Request.Form(\"varenr\") KoebRS(\"Antal\") = Request.Form(\"antal\") KoebRS(\"KurveId\") = session(\"KurveId\") KoebRS(\"DataTabel\") = Request.Form(\"recordset\") KoebRS.Update Else KoebRS(\"Antal\") = KoebRS(\"Antal\") + Request.Form(\"antal\") KoebRS.Update End If
Jeg beklager at måtte lukke dette spørgsmål, men jeg har ikke kunnet få noget af det til at virke så jeg gik den lange vej i stedet og fik den til at kalde scriptet i samme vindue.
Hmmmmmm....geeeet og jakoba gav dig ellers korrekte svar - at du så spørger om noget andet end det, du ville have spurgt om, burde vel ikke hindre lidt points-uddeling :)) /mvh
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.