Avatar billede hojben Novice
08. januar 2005 - 00:42 Der er 55 kommentarer og
1 løsning

Træk nyheder ud at database.

Jeg har følgende indhold i database:

Tabel: News
Felter: Nyheds-ID, Dato, Headline, Tekst

Databasen ligger i "db"

Hvad skal der til for at trække:
Dato og Headline ud for derefter at vise det i en tabel?

Der skal være links på Headline som åbnes i popup vindue med:
Dato, Headline og tekst præsenteret på en pæn måde.

/Hojben
Avatar billede kalp Novice
08. januar 2005 - 00:45 #1
Hej hojben:)

Tjah hvis ikke der kommer en superhurtig ASP gut forbi så kan jeg godt lige ordne det:)
Avatar billede hojben Novice
08. januar 2005 - 00:45 #2
Go for it mate... :)
Avatar billede kalp Novice
08. januar 2005 - 00:46 #3
Im on it hehe
Avatar billede kalp Novice
08. januar 2005 - 00:50 #4
færdig om lidt;)
Avatar billede kalp Novice
08. januar 2005 - 00:55 #5
Okay kan jo ikke helt teste om det virker men burde det:)

gem dette som visnyhed.asp


<%
dim mode,  id
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

    id = Request("rid")
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#0000CC" vlink="#0000CC" alink="#0000CC0">
<div align="center"> <font face="Courier New, Courier, mono" size="2"> </font></div>
<font face="Courier New, Courier, mono" size="2"><o:p></o:p><o:p></o:p> </font>
<tr>
  <td>
    <p align="center"><font face="Courier New, Courier, mono" size="2"><br>
      </font></p>
    <div align="center"><font face="Courier New, Courier, mono" size="2"></font></div>
    <p align="center"><font face="Courier New, Courier, mono" size="2"><br>
      </font> </p>
    <p><font face="Courier New, Courier, mono" size="2">
      <%    strSQL = "SELECT * From news where Nyheds-ID = " & id
    Set rs = myConn.Execute(strSQL)
%>
      </font></p>
    <div align="center">
      <div align="center"><font face="Courier New, Courier, mono" size="5"><b><%=rs("headline")%></b></font><br>
        <font color="#FF0000" size="2" face="Courier New, Courier, mono"><strong><br>
        </strong></font><br>
      </div>
    </div>
    <table width="48%" border="0" align="center" cellpadding="4" cellspacing="4">
      <tr>
        <td height="16" bgcolor="#000000">
          <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr bgcolor="#000000">
              <td height="28" width="42%">
                <div align="left"><font face="Courier New, Courier, mono" size="2" color="#FFFFFF"><strong>Indhold</strong></font></div>
              </td>
              <td height="28" width="58%">
                <div align="right"><font size="2" face="Courier New, Courier, mono" color="#FFFFFF"><strong>Dato
                  :</strong></font> <font face="Courier New, Courier, mono" size="2" color="#FFFFFF"><%=rs("dato")%></font></div>
              </td>
            </tr>
          </table>
        </td>
      </tr>
      <tr>
        <td height="28" bgcolor="#FFFFFF"><font face="Courier New, Courier, mono" size="2">
          </font> <font face="Courier New, Courier, mono" size="2"> <%= Replace(rs("tekst"),vbCrLf,"<br>") %></font></td>
      </tr>
    </table>
    <font face="Courier New, Courier, mono" size="2"><br>
    </font>
</body>
</html>



der kommer lige lidt mere
Avatar billede kalp Novice
08. januar 2005 - 00:57 #6
det her gemmer du som du vil.. jeg har gjort så den kun viser de 30 nyeste nyheder.. men det kan ændres til noget andet eller fjernes helt



<html>
<head>
<title></title>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#0000CC" vlink="#0000CC" alink="#0000CC">
<div align="center"></div>
<font face="Courier New, Courier, mono" size="2"><o:p></o:p><o:p></o:p> </font>
<tr>
  <td>
    <p align="center">&nbsp;</p>
    <div align="center"><font face="Courier New, Courier, mono" size="2"><br>
      <br>
      </font> </div>
    <div align="center"></div>
    <table width="55%" border="0" cellspacing="3" cellpadding="0" align="center">
      <tr>
        <td width="51%">
          <p align="center"> <font face="Courier New, Courier, mono" size="2">
            <%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db.mdb")
str_sql2 = "SELECT TOP 30 * FROM news ORDER BY Nyheds-ID desc"

Set rs = Conn.Execute (str_sql2)
%>
            </font></p>
          <div align="center">
            <table width="100%" height="24" cellspacing="1" cellpadding="2">
              <tr bgcolor="#CCCCCC">
                <td width="82%" bgcolor="#000000"><font face="Courier New, Courier, mono" size="2" color="#000000"><b><font color="#FFFFFF">Nyheder</font></b></font></td>
              </tr>
              <%
Do Until rs.EOF
%>
              <tr bgcolor="#DDEEFF">
                <td width="82%" bgcolor="#FFFFFF"><font face="Courier New, Courier, mono" size="2" color="#0000FF">
                  </font><font face="Courier New, Courier, mono" size="2"><font color="red">
                  <a href="visnyhed.asp?rid=<%= rs("id") %>&sp=<% = rs("headline") %>">
                  <% = rs("headline") %>
                  </a> </font></font></td>
              </tr>
              <%
rs.MoveNext
Loop

  rs.Close
  Conn.Close
  Set rs = Nothing
  Set Conn = Nothing
%>
              <p></p>
            </table>
          </div>
        </td>
      </tr>
      <tr>
        <td width="51%">
          <p align="center">&nbsp;</p>
        </td>
      </tr>
    </table>
    <font face="Courier New, Courier, mono" size="2"><br>
    </font>
</body>
</html>
Avatar billede kalp Novice
08. januar 2005 - 00:58 #7
tjah det eneste er når du lige har set det må være at få det til at åbne i et nyt vindue:) men se lige på det først om det ikke fungere.
Avatar billede hojben Novice
08. januar 2005 - 01:32 #8
får en HTTP 500 - Internal server error fejl ved begge
Avatar billede kalp Novice
08. januar 2005 - 01:53 #9
hmm.. de burde virke:o(
Avatar billede kalp Novice
08. januar 2005 - 02:06 #10
det burde som sagt virke.. ellers fixer jeg lige en database sammen i morgen med samme info i så jeg kan teste mit eget script.. men det burde virke.. det skal gemme som ASP selvfølgelig.. du kan lige gå ind i dine internet indstillinger og under avanceret og sætte eller fjerne hak i "vis meddelelser om beskadede http fejl" mener nok det er den det hedder.. for så står fejlen udskrevet på siden så ved jeg lettere hvad det er
Avatar billede hojben Novice
08. januar 2005 - 02:13 #11
Avatar billede kalp Novice
08. januar 2005 - 02:18 #12
fint jeg tester lige
Avatar billede hojben Novice
08. januar 2005 - 02:23 #13
visnyhed.asp gir:


Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Nyhed-ID ='.

/undervisning.nu/visnyhed.asp, line 32
Avatar billede hojben Novice
08. januar 2005 - 02:24 #14
news.asp gir:


Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 2.

/undervisning.nu/news.asp, line 29
Avatar billede tjaz Nybegynder
08. januar 2005 - 02:24 #15
Her er koden til popup, følgende indsætter du i head:

<script language="JavaScript">
<!-- Gem koden for gamle browsere

function PopWin(url,h,w) {
popupWin = window.open(url, 'popup', 'height=' + h + ',width=' + w + ',top=50,left=25')
}
// -->
</script>

mens at dit link skrives:

<a href="java script:PopWin('dinurl.asp',500,300);">Din linktekst</a>

500 = højden på vinduet
300 = bredden på vinduet
Avatar billede hojben Novice
08. januar 2005 - 02:26 #16
Det tror jeg at jeg vil lade kalp om at implementere i hans nuværende.. ;)
Avatar billede kalp Novice
08. januar 2005 - 02:27 #17
jeg genstarter lige for tror det er noget med databasen... har ikke access installeret på dette kopi af windows så bliver lige en genstart hurtigt:)
Avatar billede kalp Novice
08. januar 2005 - 02:39 #18
okay retter det lige til.. det var din database som den var gal med kunne ikke læse den heller så har lavet en ny til dig
Avatar billede hojben Novice
08. januar 2005 - 02:41 #19
hmmm underligt for jeg kan da godt læse den..
Nå men smider du link?
Avatar billede kalp Novice
08. januar 2005 - 02:43 #20
to sekunder skal bare lige ordne visnyhed.asp siden også:)
Avatar billede kalp Novice
08. januar 2005 - 02:47 #21
hmm.. min server gider sgu ikke op!! har du en email jeg kan sende til? sender det samlet
Avatar billede hojben Novice
08. januar 2005 - 02:48 #22
michael [abe]serverguiden.dk
Avatar billede kalp Novice
08. januar 2005 - 02:50 #23
Så er det sendt.. du skal nok lige smide en ting eller to i databasen og teste.. kom til at slette det jeg selv puttede i så nåede aldrig at teste om visnyhed.asp siden fungere:o) men det mener jeg den gør nu! havde bare ikke lyst til at genstarte for at sætte noget i databasen:)
Avatar billede hojben Novice
08. januar 2005 - 02:59 #24
Det virker som fod i en hose :)

Smid svar..

Kunne se at den er forberedt på en admin funktion? Kan den komme til at virke?
Avatar billede hojben Novice
08. januar 2005 - 02:59 #25
Avatar billede kalp Novice
08. januar 2005 - 03:01 #26
Ja jeg ordnede det lige når jeg alligevel var der:) det kan sagtens komme til at virke senere når du får lyst:)
Avatar billede tjaz Nybegynder
08. januar 2005 - 03:03 #27
lige et spm .. hvad laver du med querystring("sp") ... kan den ikke være underordet ? og popup blev der ikke meget af ;)
Avatar billede hojben Novice
08. januar 2005 - 03:03 #28
Det har jeg... brugeren af nyhedssystemet er ikke vant til at skulle rette til via database etc
Avatar billede kalp Novice
08. januar 2005 - 03:04 #29
tjaz - havde tænkt mig at bruge den i toppen.. som overskrift i IE men glemte at fjerne den igen.
Avatar billede tjaz Nybegynder
08. januar 2005 - 03:05 #30
well... du kan wel bare udskrve den med <%=rs("headline")%> ;)
Avatar billede kalp Novice
08. januar 2005 - 03:06 #31
du kan ikke sige <%=rs("headline")%> .. i <html>

under alle omstændigheder.. så hvis man får et direkte link til en nyhed så står der ikke kun et ID, men også noget fornuftigt.. titlen på den
Avatar billede kalp Novice
08. januar 2005 - 03:07 #32
hov i title mener jeg
Avatar billede tjaz Nybegynder
08. januar 2005 - 03:10 #33
hvis jeg ikke tager meget fjel så har du selv udskrevet headline med
<%=rs("headline")%>

om man får en titel på nyheden eller ej vil jeg nu mene er underordnet da det er fyld som ikke bruge til noget ... men det vil jeg nu lade dig om ...

Vil smutte i seng .. NN! ;)
Avatar billede kalp Novice
08. januar 2005 - 03:13 #34
Jeg blev lige forvirret det rigtigt nok hehe:) fordi jeg kalder den for sp:p
Well det er jo ikke forkert at have den med og jeg synes det ser pænt ud med titlen på nyheden:) og ellers er det jo ret simpelt at få væk igen.
Avatar billede tjaz Nybegynder
08. januar 2005 - 03:15 #35
jep .. men ingen popup ;) ... ZzzZzzzZzzzzzzzzzz.... :D
Avatar billede kalp Novice
08. januar 2005 - 03:17 #36
hehe jeg hvis hojben vil have en popup istedet så retter jeg det selvfølgelig, men jeg var ikke sikker på om han mente popup eller nyt vindue.. der er trods alt mere plads i et nyt vindue:)

Skal nok lade dig sove nu hehe godnat:)
Avatar billede hojben Novice
08. januar 2005 - 03:18 #37
*host* jeg får godt nok ingen popup men et nyt vindue.. så hvis man kunne begrænse dette vindue til en given størrelse :)
Avatar billede hojben Novice
08. januar 2005 - 03:19 #38
Jeg regner ikke med at nyhederne er vildt store (af tekst) så en popup må være finno..
Avatar billede kalp Novice
08. januar 2005 - 03:22 #39
gem lige en backup af det hehe
Avatar billede hojben Novice
08. januar 2005 - 03:23 #40
Jeg prøvede at lave headline om til notatfelt (for at kunne indtaste flere end 64 arakter)men så får jeg intet vist på siden..hvor ændrer jeg det i koden ?
Avatar billede kalp Novice
08. januar 2005 - 03:26 #41
<html>
<head>
<title></title>
</head>
<script language="JavaScript">
<!-- Gem koden for gamle browsere

function PopWin(url,h,w) {
popupWin = window.open(url, 'popup', 'height=' + h + ',width=' + w + ',top=50,left=25')
}
// -->
</script>

<body bgcolor="#FFFFFF" text="#000000" link="#0000CC" vlink="#0000CC" alink="#0000CC">
<div align="center"></div>
<font face="Courier New, Courier, mono" size="2"><o:p></o:p><o:p></o:p> </font>
<tr>
  <td>
    <p align="center">&nbsp;</p>
    <div align="center"><font face="Courier New, Courier, mono" size="2"><br>
      <br>
      </font> </div>
    <div align="center"></div>
    <table width="55%" border="0" cellspacing="3" cellpadding="0" align="center">
      <tr>
        <td width="51%">
          <p align="center"> <font face="Courier New, Courier, mono" size="2">
            <%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("news.mdb")
str_sql2 = "SELECT TOP 30 * FROM downloads ORDER BY ID desc"

Set rs = Conn.Execute (str_sql2)
%>
            </font></p>
          <div align="center">
            <table width="100%" height="24" cellspacing="1" cellpadding="2">
              <tr bgcolor="#CCCCCC">
                <td width="82%" bgcolor="#000000"><font face="Courier New, Courier, mono" size="2" color="#000000"><b><font color="#FFFFFF">Nyheder</font></b></font></td>
              </tr>
              <%
Do Until rs.EOF
%>
              <tr bgcolor="#DDEEFF">
                <td width="82%" bgcolor="#FFFFFF"><font face="Courier New, Courier, mono" size="2" color="#0000FF">
                  </font><font face="Courier New, Courier, mono" size="2"><font color="red">
                </font></font></td>
                    <a href="java script:PopWin('visnyhed.asp?rid=<%= rs("id") %>',500,300);"><% = rs("notatfelt") %></a>
              </tr>
              <%
rs.MoveNext
Loop

  rs.Close
  Conn.Close
  Set rs = Nothing
  Set Conn = Nothing
%>
              <p></p>
            </table>
          </div>
        </td>
      </tr>
      <tr>
        <td width="51%">
          <p align="center">&nbsp;</p>
        </td>
      </tr>
    </table>
    <font face="Courier New, Courier, mono" size="2"><br>
    </font>
</body>
</html>


test lige om dette virker.. jeg har taget højre for at headline hedder notatfelt
Avatar billede hojben Novice
08. januar 2005 - 03:31 #42
http://www.serverguiden.dk/undervisning.nu/news2.asp gir:

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/undervisning.nu/news2.asp, line 48
Avatar billede hojben Novice
08. januar 2005 - 04:24 #43
ændrede notatfelt til headline og det virkede.. takker for det..

Hvordan med det admin system?
Avatar billede kalp Novice
08. januar 2005 - 11:25 #44
Virker det nu med popup? gik i seng i går:)

jeg vil lige spise så forklare jeg dig lidt om admin:)
Avatar billede hojben Novice
08. januar 2005 - 11:42 #45
ikke helt..

Jeg får:

Undervisning & Uddannelse er ved 
Obligatorisk førstehjælp ved erhvervelse af
Nyheder

dvs. jeg har "Nyheder" nederst og nyhederne øverst..

http://www.serverguiden.dk/undervisning.nu/sider.asp
Avatar billede hojben Novice
08. januar 2005 - 11:47 #46
Har også inkluderet sider.asp til http://www.serverguiden.dk/undervisning.nu/index2.asp i bunden, denne skulle dog have været til højre for "værdigrundlaget etc etc" men er neden under..
Arrrgg
Avatar billede hojben Novice
08. januar 2005 - 12:04 #47
nu er den til højre som dne skal være.. men starter ikke i toppen af tabellen ved siden af "Grudlaget... "
Avatar billede hojben Novice
08. januar 2005 - 12:55 #48
Sådan.. man kan fandme stirre sig blind på det l**t.. nu virker det.

Så mangler jeg bare admin systemet.. du skal nok få flere point.. ;O)
Avatar billede kalp Novice
08. januar 2005 - 13:50 #49
det ser faktisk ret pænt ud nu:)

Kan se du ikke er her nu, men jeg laver et admin system til dig i aften:)
Jeg behøver blot lidt info.. hvilke sidder skal man være logget ind for at kunne se? har du allerede lavet dem? altså har du en tilføj nyhed asp side?
Avatar billede hojben Novice
09. januar 2005 - 01:29 #50
jeg har ikke lavet tilføj nyheds siden så den må du meget gerne lave ;o)
og ja det ser rigtig nice ud nu :)
Avatar billede kalp Novice
09. januar 2005 - 01:42 #51
gem dette som tilfojnyhed.asp eller hvad du lyster.. har ikke tested.. sjuskede måske lidt så ikke sikkert det virker..

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#0066FF" vlink="#0066FF" alink="#0066FF">
<p align="center"><br>
</p>
<div align="center">
<table width="730" height="0" cellspacing="1" align="center" cellpadding="2" border="0" bgcolor="#000000">
    <tr bgcolor="#FFFFFF">
      <td width="40%">
        <table width="730" height="8" cellspacing="1" align="center" cellpadding="2" border="0">
          <tr>
            <td valign="top" colspan="2">
              <div align="center"><font face="Courier New, Courier, mono" size="2"><br>
                </font>
                <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>Tilf&oslash;j
                  nyhed </b></font></p>
                <form action="submitapproved.asp" method="post">
                  <table width="400" border="0" cellspacing="1" cellpadding="3" class="bottom" align="center" bgcolor="#f7f7f7">
                    <tr bgcolor="#CCCCCC">
                      <td width="218"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Titel
                        p&aring; nyhed<br>
                        <input type="text" name="headline" class="bottom" maxlength="50">
                        </font></td>
                    </tr>
                    <tr bgcolor="#CCCCCC">
                      <td width="218"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Indhold<br>
                        <textarea name="tekst" class="bottom" cols="80" rows="10"></textarea>
                        </font></td>
                    </tr>
                  </table>
                  <font face="Verdana, Arial, Helvetica, sans-serif" size="1"><br>
                  </font>
                  <table border="0" cellspacing="0" cellpadding="0" width="400">
                    <tr>
                      <td>
                        <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>
                          <input type="Submit" value="Tilf&oslash;j" name="Submit2">
                          <input type="Reset" value="Reset" name="Reset">
                          </b></font></div>
                      </td>
                    </tr>
                  </table>
                </form>
                <font color="#FF0000" face="Verdana, Arial, Helvetica, sans-serif" size="1">
                <%
If Trim(Request("virksomhed")) > "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("news.mdb")

Conn.Open DSN
Conn.Execute "INSERT INTO downloads (headline,tekst,dato) VALUES ('" & Request("headline") & "','" & Request("tekst") & "','" & date() & "',& "')"

Conn.Close: Set Conn = Nothing

  Response.Write "<h1>Er hermed tilføjet!</h1>"
%>
                </font> <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                <% End If %>
                <% end if %>
                </font>
                <p>
              </div>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  <p>&nbsp;</p>
</div>
</html>
Avatar billede hojben Novice
09. januar 2005 - 02:01 #52
Microsoft VBScript compilation error '800a0400'

Expected statement

/undervisning.nu/news3.asp, line 63

End if
^
Avatar billede hojben Novice
09. januar 2005 - 02:03 #53
jeg skal iøvrigt også have indsat dags dato i feltet dato. kan systemet selv finde ud af det?
Avatar billede hojben Novice
09. januar 2005 - 02:08 #54
Fjernede den ene <% End If %> og siden blev vist. indtastede nyhed og trykkede send men intet blev indsat i databasen. (har oprettet submitapproved.asp som bare er ren tekst)
Avatar billede kalp Novice
09. januar 2005 - 02:08 #55
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#0066FF" vlink="#0066FF" alink="#0066FF">
<p align="center">&nbsp;</p>
<div align="center">
<table width="730" height="0" cellspacing="1" align="center" cellpadding="2" border="0" bgcolor="#000000">
    <tr bgcolor="#FFFFFF">
      <td width="40%">
        <table width="730" height="8" cellspacing="1" align="center" cellpadding="2" border="0">
          <tr>
            <td valign="top" colspan="2">
              <div align="center"><font face="Courier New, Courier, mono" size="2"><br>
                </font>
                <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>Tilf&oslash;j
                  nyheder </b></font></p>
                <form action="tilfojn.asp" method="post">
                  <table width="400" border="0" cellspacing="1" cellpadding="3" class="bottom" align="center" bgcolor="#f7f7f7">
                    <tr bgcolor="#CCCCCC">
                      <td width="218"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nyhed
                        Overskrift <span class="rot"><font color="#FF0000">*</font></span><br>
                        <input type="text" name="headline" class="bottom" maxlength="50">
                        </font></td>
                    </tr>
                    <tr bgcolor="#CCCCCC">
                      <td width="218">
                        <p><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Navn
                          (p&aring; den som tilf&oslash;jer nyheden)<span class="rot"><span class="rot"><font color="#FF0000">
                          *</font></span><br>
                          <input type="text" name="navn" class="bottom" maxlength="1000">
                          </span></font></p>
                      </td>
                    </tr>
                    <tr bgcolor="#CCCCCC">
                      <td width="218"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Indhold<br>
                        <textarea name="tekst" class="bottom" cols="80" rows="10"></textarea>
                        </font></td>
                    </tr>
                  </table>
                  <font face="Verdana, Arial, Helvetica, sans-serif" size="1"><br>
                  </font>
                  <table border="0" cellspacing="0" cellpadding="0" width="400">
                    <tr>
                      <td>
                        <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>
                          <input type="Submit" value="Tilf&oslash;j" name="Submit2">
                          <input type="Reset" value="Reset" name="Reset">
                          </b></font></div>
                      </td>
                    </tr>
                  </table>
                </form>
                <font color="#FF0000" face="Verdana, Arial, Helvetica, sans-serif" size="1">
                <%
If Trim(Request("headline")) > "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("news.mdb")

Conn.Open DSN
if request("headline") = "" OR request("tekst") =""  then
response.write("Visse felter mangler at blive udfyldt")
else
Conn.Execute "INSERT INTO downloads (headline,tekst,navn,dato) VALUES ('" & Request("headline") & "','" & Request("tekst") & "','" & Request("navn") & "','" & date() & "')"

Conn.Close: Set Conn = Nothing

  Response.Write "<h1>Er hermed tilføjet!</h1>"
%>
                </font> <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                <% End If %>
                <% end if %>
                </font>
                <p>
              </div>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  <p>&nbsp;</p>
</div>
</html>

du SKAL gemme det som tilfojn.asp
og den ordner selv dato
Avatar billede kalp Novice
09. januar 2005 - 02:15 #56
virker det? vil gerne i seng hehe:)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester