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
Annonceindlæg fra Computerworld
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:)
08. januar 2005 - 00:45
#2
Go for it mate... :)
08. januar 2005 - 00:46
#3
Im on it hehe
08. januar 2005 - 00:50
#4
færdig om lidt;)
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
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"> </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"> </p> </td> </tr> </table> <font face="Courier New, Courier, mono" size="2"><br> </font> </body> </html>
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.
08. januar 2005 - 01:32
#8
får en HTTP 500 - Internal server error fejl ved begge
08. januar 2005 - 01:53
#9
hmm.. de burde virke:o(
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
08. januar 2005 - 02:13
#11
08. januar 2005 - 02:18
#12
fint jeg tester lige
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
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
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
08. januar 2005 - 02:26
#16
Det tror jeg at jeg vil lade kalp om at implementere i hans nuværende.. ;)
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:)
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
08. januar 2005 - 02:41
#19
hmmm underligt for jeg kan da godt læse den.. Nå men smider du link?
08. januar 2005 - 02:43
#20
to sekunder skal bare lige ordne visnyhed.asp siden også:)
08. januar 2005 - 02:47
#21
hmm.. min server gider sgu ikke op!! har du en email jeg kan sende til? sender det samlet
08. januar 2005 - 02:48
#22
michael [abe]serverguiden.dk
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:)
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?
08. januar 2005 - 02:59
#25
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:)
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 ;)
08. januar 2005 - 03:03
#28
Det har jeg... brugeren af nyhedssystemet er ikke vant til at skulle rette til via database etc
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.
08. januar 2005 - 03:05
#30
well... du kan wel bare udskrve den med <%=rs("headline")%> ;)
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
08. januar 2005 - 03:07
#32
hov i title mener jeg
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! ;)
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.
08. januar 2005 - 03:15
#35
jep .. men ingen popup ;) ... ZzzZzzzZzzzzzzzzzz.... :D
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:)
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 :)
08. januar 2005 - 03:19
#38
Jeg regner ikke med at nyhederne er vildt store (af tekst) så en popup må være finno..
08. januar 2005 - 03:22
#39
gem lige en backup af det hehe
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 ?
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"> </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"> </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
08. januar 2005 - 04:24
#43
ændrede notatfelt til headline og det virkede.. takker for det.. Hvordan med det admin system?
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:)
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... "
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)
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?
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 :)
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ø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å 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ø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> </p> </div> </html>
09. januar 2005 - 02:01
#52
Microsoft VBScript compilation error '800a0400' Expected statement /undervisning.nu/news3.asp, line 63 End if ^
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?
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)
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"> </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ø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å den som tilfø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ø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> </p> </div> </html> du SKAL gemme det som tilfojn.asp og den ordner selv dato
09. januar 2005 - 02:15
#56
virker det? vil gerne i seng hehe:)
Kurser inden for grundlæggende programmering