' A Function to check if some field entered by user is empty Function ChkString(string) If string = "" Then string = " " ChkString = Replace(string, "'", "''") End Function
' Receiving values from Form overskrift = ChkString(Request.Form("overskrift")) dato = ChkString(Request.Form("dato")) tekst = ChkString(Request.Form("tekst")) data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/kornumgaard.mdb") sql_insert = "insert into kalender (overskrift, dato, tekst values ('" & overskrift & "', '" & dato & "', '" & tekst & "' )" ' Creating Connection Object and opening the database Set con = Server.CreateObject("ADODB.Connection") 'con.Open data_source con.Execute sql_insert ' Done. Close the connection
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.
Du har jo deaktiveret linien hvor du åbner forbindelsen til databasen, denne her linie: 'con.Open data_source Skal se sådan her ud: con.Open data_source
nu bliver den smidt i db'en men jeg kan ikke se udtrækket.
arran.asp
<!-- #include file="databaseforbindelse.asp" -->
<script language="JavaScript"> function visevent(id) { var Url = "vis.asp?id="+id; var WindowWidth = 500; var WindowHeight = 400; var WindowTop = (screen.availHeight/2) - (WindowHeight/2); var WindowLeft = (screen.availWidth/2) - (WindowWidth/2); var WindowProps = 'toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable,width='+WindowWidth+',height='+WindowHeight+',left='+WindowLeft+',top='+WindowTop+',screenx='+WindowLeft+',screeny='+WindowTop; PoppedWindow = window.open(Url,"PoppedWindow",WindowProps); } </script>
<table border="0" cellpadding="0" cellspacing="0" width="100%" > <% SQL = "SELECT * FROM kalender WHERE emne='arran' AND " if isDate(dtmDate) then SQL = SQL & "Month(dato)='" & Month(dtmDate) & "' AND Year(dato)='" & Year(dtmDate) & "' order by dato" else SQL = SQL & "Month(dato)=Month(Date()) AND Year(dato)=Year(Date()) order by dato" end if Set Query = Conn.Execute(SQL) if Query.EOF then %> <tr> <td width="100%" class="nyhed" align="center" colspan="2">Der ingen arrangementer i denne måned.</td> <% end if %> <% Do until Query.EOF %>
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.