' 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
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.