03. juni 2002 - 17:23Der er
11 kommentarer og 1 løsning
Lidt popup og indsættes i access
Nogen der kan omskrive denne side http://www.fredericia-bynight.dk/events/default.asp så man (admin) kan sætte noget nyt ind, og ikke mindst en dato ind, på forsiden skal så komme en popup hvis datoen den pågældende dag passer til noget i databasen.
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 overstående side, skal laves om til at den skriver noget fra en database, og den skal jeg kunne skrive ind i fra en anden siden
På min forsiden skal der så være noget kode som tjekker i databasen, er der noget skal der komme en popup, når den kommer skal jeg nok sige hvad den skal "printe" for det bliver jo javascript ikke ?
Okay.. Her har du det du skal sætte i toppen af din default.asp fil: <% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db1.mdb") strSQL = "SELECT * FROM events" Set objRs = objConn.Execute(strSQL) %> <html> <head> <title></title> <script language="JavaScript"> function OpenWind(){ window.open('popup.asp','Din popup','toolbar=no,location=no,directories=no,resizable=yes,scrollbars=no,menubar=no,width=400,height=330') } </script> </head> <% While Not objRs.EOF If DateDiff("d", objRs("dato"), Date()) = 0 Then Session("ID") = objRs("ID") Response.Write("<body onload=""OpenWind();"">") End If objRs.MoveNext() Wend If IsEmpty(Session("ID")) Then Response.Write("<body>") End If Response.Write(Session("ID")) %>
...Det vil altså sige at du skal slætte din body som du har nu og sætte koden ind istedet for! (Den skriver din body for dig!)
og i din popup.asp fil skal du skrive følgende: <% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db1.mdb") strSQL = "SELECT * FROM events WHERE ID=" & Session("ID") Set objRs = objConn.Execute(strSQL) %> <html> <head> <title></title> </head> <body> <% Response.Write("<b>" & objRs("emne") & "</b><br>" & Replace(objRs("tekst"),vbCrLf, "<br>")) %> </body> </html>
Din databasen (db1.mdb) skal indeholde følgende felter: Tabel: events ID Autonumnering Dato Datofelt Emne Tekstfelt Tekst Notatfelt
<% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db1.mdb") If IsEmpty(Session("ID")) Then strSQL = "SELECT * FROM events" Else strSQL = "SELECT * FROM events WHERE ID =" & Session("ID") End If Set objRs = objConn.Execute(strSQL) %> <html> <head> <title></title> <script language="JavaScript"> function OpenWind(){ <% If IsEmpty(Session("ID")) Then %> alert('<%= objRs("tekst") %>'); <% End If %> } </script> </head> <% While Not objRs.EOF If DateDiff("d", objRs("dato"), Date()) = 0 Then Session("ID") = objRs("ID") Response.Write("<body onload=""OpenWind();"">") End If objRs.MoveNext() Wend If IsEmpty(Session("ID")) Then Response.Write("<body>") End If Response.Write(Session("ID")) %>
<% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db1.mdb") If IsEmpty(Session("ID")) Then strSQL = "SELECT * FROM events" Else strSQL = "SELECT * FROM events WHERE ID =" & Session("ID") End If Set objRs = objConn.Execute(strSQL) %> <html> <head> <title></title> <script language="JavaScript"> function OpenWind(){ <% If IsEmpty(Session("ID")) Then %> alert('<%= objRs("emne") %>\n<%= objRs("tekst") %>\n<%= objRs("dato")%>'); <% End If %> } </script> </head> <% While Not objRs.EOF If DateDiff("d", objRs("dato"), Date()) = 0 Then Session("ID") = objRs("ID") Response.Write("<body onload=""OpenWind();"">") End If objRs.MoveNext() Wend If IsEmpty(Session("ID")) Then Response.Write("<body>") End If Response.Write(Session("ID")) %>
<% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db1.mdb") If IsEmpty(Session("ID")) Then strSQL = "SELECT * FROM events" Else strSQL = "SELECT * FROM events WHERE ID =" & Session("ID") End If Set objRs = objConn.Execute(strSQL) %> <html> <head> <title></title> <script language="JavaScript"> function OpenWind(){ <% If IsEmpty(Session("ID")) Then %> alert('<%= objRs("dato") %>\n<%= objRs("emne") %>\n<%= objRs("tekst")%>'); <% End If %> } </script> </head> <% While Not objRs.EOF If DateDiff("d", objRs("dato"), Date()) = 0 Then Session("ID") = objRs("ID") Response.Write("<body onload=""OpenWind();"">") End If objRs.MoveNext() Wend If IsEmpty(Session("ID")) Then Response.Write("<body>") End If Response.Write(Session("ID")) %>
<% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db1.mdb") If IsEmpty(Session("ID")) Then strSQL = "SELECT * FROM events" Else strSQL = "SELECT * FROM events WHERE ID =" & Session("ID") End If Set objRs = objConn.Execute(strSQL) %> <html> <head> <title></title> <script language="JavaScript"> function OpenWind(){ <% If Session("ID") <> "" Then %> alert('<%= objRs("dato") %>\n<%= objRs("emne") %>\n<%= objRs("tekst")%>'); <% End If %> } </script> </head> <% While Not objRs.EOF If DateDiff("d", objRs("dato"), Date()) = 0 Then Session("ID") = objRs("ID") Response.Write("<body onload=""OpenWind();"">") End If objRs.MoveNext() Wend If IsEmpty(Session("ID")) Then Response.Write("<body>") End If Response.Write(Session("ID")) %>
<% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db1.mdb") If IsEmpty(Session("ID")) Then strSQL = "SELECT * FROM events" Else strSQL = "SELECT * FROM events WHERE ID =" & Session("ID") End If Set objRs = objConn.Execute(strSQL) %> <html> <head> <title></title> <script language="JavaScript"> function OpenWind(){ <% If Session("ID") <> "" Then %> alert('<%= objRs("dato") %>\n<%= objRs("emne") %>\n<%= objRs("tekst")%>'); <% End If %> } </script> </head> <% While Not objRs.EOF If DateDiff("d", objRs("dato"), Date()) = 0 Then Session("ID") = objRs("ID") Response.Write("<body onload=""OpenWind();"">") End If objRs.MoveNext() Wend If IsEmpty(Session("ID")) Then Response.Write("<body>") End If Response.Write(Session("ID")) %> //>Rune
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.
Ny bruger
Nybegynder
Opret
Preview
