Søg
Avatar billede miwu.tk Nybegynder
22. juni 2003 - 14:59 Der er 17 kommentarer og
1 løsning

Problemer med nyhedssystem

Jeg har et problem med mit nyhedssystem, da det lader til at den ikke vil tilføje de nyheder jeg skriver ind i databasen! Udover det har ved jeg ikke hvor jeg skal skrive asp koden, så at den skriver ned hvornår jeg har skrevet min nyhed! håber I kan hjælpe mig! kildekoden er:

<html>
<head>
<title></title>
</head>

<body>

<%

    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("db/nyhed.mdb")
    Conn.Open DSN

   
    strSQL = "Insert into nyhed ("

    strSQL = strSQL & "navn, "
    strSQL = strSQL & "emne, "
    strSQL = strSQL & "nyhed, "
   
    strSQL = strSQL & "values(' "

    strSQL = strSQL & Request.Form("navn") &,
    strSQL = strSQL & Request.Form("emne") &,
    strSQL = strSQL & Request.Form("nyhed") &, "')"


   
' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

%>

<h1>Nyheden er gemt!!</h1>


</body>
</html>
Avatar billede Slettet bruger
22. juni 2003 - 15:07 #1
Jeg har et komplet nyhedssystem i ASP med billede-upload hvis du er interesseret.
Avatar billede miwu.tk Nybegynder
22. juni 2003 - 15:09 #2
ellers tak :) jeg vil meget gerne prøve på at lave mit eget nyhedssystem.. eller ihvertfald prøve at lave så meget som muligt selv! hvis du ved hvad jeg mener :)
Avatar billede Slettet bruger
22. juni 2003 - 15:13 #3
ja ok.. Helt i orden.. ;)
Avatar billede ellebaek Nybegynder
22. juni 2003 - 15:20 #4
<html>
<head>
<title></title>
</head>

<body>

<%

    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("db/nyhed.mdb")
    Conn.Open DSN

   
    strSQL = "Insert into nyhed (navn, emne, nyhed) values('" & Request.Form("navn") & "','"  & Request.Form("emne") & "','" & Request.Form("nyhed") & "')"


   
' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

%>

<h1>Nyheden er gemt!!</h1>


</body>
</html>

Sådan her...

Nu vil den indsætte nyheden for dig...
Mht. til tidspunktet kan du bruge.

<%
dato = date() 'datoen
tidspunkt = now() 'det eksakte tidspunkt
strSQL = "Insert into nyhed (navn, emne, nyhed, dato) values('" & Request.Form("navn") & "','"  & Request.Form("emne") & "','" & Request.Form("nyhed") & "','"&dato&"')"
%>
Avatar billede ellebaek Nybegynder
22. juni 2003 - 15:20 #5
skulle have været et svar!
Avatar billede miwu.tk Nybegynder
22. juni 2003 - 15:43 #6
men så kommer tid osv. jo ikke med i databasen? havde tænkt mig at bruge Now-funktionen... nogen evt. løsning til det?
Avatar billede ellebaek Nybegynder
22. juni 2003 - 15:49 #7
<html>
<head>
<title></title>
</head>

<body>

<%

    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("db/nyhed.mdb")
    Conn.Open DSN


strSQL = "Insert into nyhed (navn, emne, nyhed, tidspunkt) values('" & Request.Form("navn") & "','"  & Request.Form("emne") & "','" & Request.Form("nyhed") & "','"&now()&"')"
' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

%>

<h1>Nyheden er gemt!!</h1>


</body>
</html>


Sådan her så!
Avatar billede miwu.tk Nybegynder
22. juni 2003 - 15:52 #8
ok, mange tak!!! :)
Avatar billede miwu.tk Nybegynder
22. juni 2003 - 15:55 #9
lige en ting til!! virker det hvis jeg skriver: '"&now, vbshorttime()"&"')' ????
Avatar billede ellebaek Nybegynder
22. juni 2003 - 15:56 #10
'"&now, vbshorttime()&"')'

Måske på denne måde...

Jeg ved det ikke helt..

ellers så sig:
tidspunkt = now, vbshorttime()
og så indsæt tidspunkt i stedet
Avatar billede miwu.tk Nybegynder
22. juni 2003 - 16:00 #11
ok, det prøver jeg så :)
Avatar billede miwu.tk Nybegynder
22. juni 2003 - 16:04 #12
møg virker ikke :(
Avatar billede ellebaek Nybegynder
22. juni 2003 - 16:10 #13
hvad virker ikke ?
Avatar billede miwu.tk Nybegynder
22. juni 2003 - 16:11 #14
vbshorttime osv.! Datoen må nemlig ikke fylde ret meget da mit frame er ret lile pga. design! www.frip.dk/miwu/nyhed.asp
Avatar billede ellebaek Nybegynder
22. juni 2003 - 16:20 #15
jeg kender ikke rigtig noget til vbshorttime...

Men du kan jo evt. bruge..

day(now())
month(now())
osv...
Avatar billede miwu.tk Nybegynder
22. juni 2003 - 16:21 #16
ok tak :)
Avatar billede miwu.tk Nybegynder
22. juni 2003 - 17:02 #17
Jeg er lige kommet på en smart idé, men nu er der noget galt igen! nogen der kan se fejlen i den her linie:


strSQL = "Insert into nyhed (navn, emne, nyhed, dato, tid) values('" & Request.Form("navn") & "','"  & Request.Form("emne") & "','" & Request.Form("nyhed") & "','"&date( )&"', '"& time( )&"')"
Avatar billede ellebaek Nybegynder
22. juni 2003 - 17:36 #18
strSQL = "Insert into nyhed (navn, emne, nyhed, dato, tid) values('" & Request.Form("navn") & "','"  & Request.Form("emne") & "','" & Request.Form("nyhed") & "','"&date()&"', '"& time&"')"
Prøv på denne måde..
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
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra Småopgaver kategorien

Titel Indlæg Oprettet Seneste aktivitet
Negativ billeder på samsung Af ALICE i Småopgaver 2 16/01/202610:29 16/01/202618:31
Flytte mappe fra stationær til bærbar Af valby i Småopgaver 20 07/05/202520:51 10/05/202513:43
Hjælp til DC motorstyring Af axel21 i Småopgaver 7 06/03/202522:34 10/03/202518:51
Gode råd til kommende supporter Af SilentSloth i Småopgaver 4 31/12/202423:10 01/01/202515:09
Udregning af vinkel på brædder. Af Peter i Småopgaver 14 11/12/202415:12 13/12/202415:40
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:21 Installere Ubuntu på Virtuel Maskine Af Uvanga i Andet software
I går 09:38 Microsoft har igen ødelagt mit højreklik Af valby i Windows
30/0714:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
27/0714:34 Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
27/0713:58 Mapperne Dokumenter og Overførsler er forsvundet efter geninstallation af Win11 Af bragger i Windows
White papers
Flere white papers »