Nyhed...

Prøv at læse dette. Det vil hjælpe dig rigtig meget.

http://www.html.dk/tutorials/asp/lektion19.asp
http://www.html.dk/tutorials/asp/lektion20.asp
http://www.html.dk/tutorials/asp/lektion21.asp
http://www.html.dk/tutorials/asp/lektion22.asp

Ellers spørg du bare igen

Mvh. Jacob

hva.. jacob er du i familie med en som hedder Jonas???

aspprogram-> Nahh, ikke så vidt jeg er orienteret :-) Det tror jeg ikke jeg er :-)

du kan finde et på www.questis.dk, som nemt kan rettes til &:-D

mvh.
questis

Jeg mangler stadig at finde ud af, hvordan man laver felterne e-mail og bruger og tekstfeltet med nyheden, hvor dataene bliver sendt til en database....

du ville åbenbart ikke bruge det færdige fra mig... angående dine felter, gennegåes dette her:

http://www.html.dk/artikler/00011/

mvh.
www.questis.dk

Jeg har kigget på din færdige, men der er ho ingen steder, hvor en bruger kan indtaste sin nyhed??

Jeg har lige prøvet at lave et lille eksempel til dig.

-------Form.htm-------

<form method="POST" action="gem_i_db.asp">
Navn
    <input type="text" name="Navn" size="25">
    <input type="submit" value="Send" name="B1"></p>
</form>

-------gem_i_db.asp-------
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("Database.mdb")

SQLstmt = "INSERT INTO nyhed (navn)"
SQLstmt = SQLstmt & " VALUES ('" & request.form("nicknavn") & "')"
       
response.write sqlstmt

Conn.Execute (SQLstmt)
conn.Close
Set conn = nothing
Set SQLstmt = nothing

response.redirect ("default.asp")
%>

Prøv at lege lidt med det

Ups, lille fejl...

Denne:
SQLstmt = SQLstmt & " VALUES ('" & request.form("nicknavn") & "')"

Skal ændres til dette:
SQLstmt = SQLstmt & " VALUES ('" & request.form("navn") & "')"

:-)

Det vil sige at jeg sender dataene til en asp-side, som derefter sender informationen til databasen?

Ja det er én måde at gøre det på.

Okay, men det virker meget simpelt, så det er jo godt nok :)

Ja, det er det faktisk også.
Men bare sprøg hvis det driller :-)

Ja, jeg prøver at rode med det i morgen, og håber på at jeg kan få det til at virke.

Lige et spørgsmål....Hvorfor response.write sqlstmt ?? Hvad skal dette gøre godt for?

Den er ikke nødvendig, så den kan du bare slette. Den er der så du kan tjekke din sql

Jeg smutter nu, men bare skriv hvis der er mere, så kommer jeg igen i morgen.

Ok...tak for det. Jeg tester det selv igennem i morgen og ser om jeg kan få det til at virke.

Jeg kan ikke rigtig få det til at virke, aktså at få den til at indsætte dataene i databasen.....

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("Nyhed.mdb")

SQLstmt = "INSERT INTO nyhed (navn)"
SQLstmt = SQLstmt & " VALUES ('" & request.form("navn") & "')"
SQLstmt = "INSERT INTO nyhed (email)"
SQLstmt = SQLstmt & " VALUES ('" & request.form("email") & "')"
SQLstmt = "INSERT INTO nyhed (nyhed)"
SQLstmt = SQLstmt & " VALUES ('" & request.form("nyhed") & "')"

response.write sqlstmt

Conn.Execute (SQLstmt)
conn.Close
Set conn = nothing
Set SQLstmt = nothing

response.redirect ("side1.htm")
%>

hvilken fejl får du ???

Jeg får ikke nogen fejlt, men den indsætter ikke nogen data i databasen.....

du har sat din action til at sende til dette dokument ?

Så skal den se sådan ud:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")

SQLstmt = "INSERT INTO nyheder (navn, email, nyhed, mobilnr, website, email, info, brugernavn, password)"
SQLstmt = SQLstmt & " VALUES ('" & request.form("navn") & "','" & request.form("email") & "','" & request.form("nyhed") & "')"
                               
Conn.Execute (SQLstmt)
conn.Close
Set conn = nothing
Set SQLstmt = nothing

response.redirect ("default.asp")
%>

Min action er sat til at sende til asp-siden vist ovenfor!!

Ups :-)

Sådan her:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")

SQLstmt = "INSERT INTO nyheder (navn, email, nyhed)"
SQLstmt = SQLstmt & " VALUES ('" & request.form("navn") & "','" & request.form("email") & "','" & request.form("nyhed") & "')"
                   
Conn.Execute (SQLstmt)

conn.Close
Set conn = nothing
Set SQLstmt = nothing

response.redirect ("default.asp")
%>

Nu virker det næsten....den skriver til mig database....dog ikke dér, hvor selve nyheden skal stå. Kan det være fordi at jeg har ID med i min database?

Nej, det har ikke noget med det at gøre. Hedder dine felter i databasen "navn", "email" og "nyhed"?

Ja, men der hvor den skal skrive id, skriver den f.eks. 72, hvor der rigtig skulle stå 1....!!

Er den ikke sat til autonummering?

Det er fordi du har slettet de første 71 poster. Den kan ikke stare fra 1 igen.

Nå ok....og jo, den er sat til aoutonummering! Men jeg forstår ikke hvorfor den ikke sender dataene fra mit textarea (nyhed) til databasen...

Kommer der nogen fejl?

Ellers så send det til jacob@iteax.dk, så kigger jeg på det.

Nej...ingen fejl! Jeg prøver at sende det til dig!

Den skriver faktisk i databasen. Det er fordi du har laget en masse mellemrum i dit textarea, så derfor kunne du ikke lige se det.

....har lavet en masse.....  skulle der stå

Jamen hvordan sletter jeg de mellemrum? Hvor har jeg lagt dem?

Har du ikke fået min mail? Der skulle de være fjernet.

Det virker stadigvæk ikke, men jeg kan heller ikke rigtig se, at du har ændret noget i koden?

Har selv fundet ud af det ;)

Var det ikke bare de mellemrum i dit indtastningsfelt?

Jo, det var det! Nu mangler jeg bare lige at lave siden, hvor posterne fra databasen bliver udskrevet :-)

Der kan du så prøve at læse http://www.html.dk/tutorials/asp/lektion19.asp.
Men ellers spørg du bare igen :-)

Jeg har fået det hele udskrevet til en side, men jeg tænkte på om du ikke kunne hjælpe mig med, hvordan jeg sætter de udskrevne data op på selve siden. Jeg ville godt have dem til at stå i en tabel på en række. Altså så hver post fra tabellen fik en celle hver for sig. Nu udskriver den dataene nedad siden med linieskift efter hver post.

Der er ikke så svært. Først laver du den html-side du vil have, og laver den tabel du vil have data i. Så er det faktisk bare at sætte <%Response.Write ("navn") %> ind der hvor du vil have navnet ind, og det samme gøre du med email og nyhed.

Prøv :-)

Ahh... det kan jeg ikke rigtig få til at virke!

Kan du ikke lige poste din kode her, så er det nemre at hjælpe.

<html>
<head>
<title>Untitled Document</title>
</body>
<p><B>Nyheder</B><br>
  <br>
  På denne side kan de seneste nyheder ses. Det vil også være muligt at se fremtidige
  opdateringer osv.<br>
  Hvis vi afholder nogle special-events, så vil det også komme til at stå under
  vores nyhedssektion,<br>
  så vi opfordrer alle til at følge med i hvad der sker af nye ting. Alt vil blive
  skrevet under nyhedssektionen.</p>
<table width="68%" border="1">
  <tr>
    <td width="29%">
      <%Response.Write ("navn")%>
      &nbsp;</td>
    <td width="37%">&nbsp;</td>
    <td width="34%">&nbsp;</td>
  </tr>
</table>
<p><br>
  <br>
  <%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("nyhed.mdb")
Conn.Open DSN

strSQL = "Select * from nyheder"
Set rs = Conn.Execute(strSQL)
Do

Response.Write rs("email") & "<br>"
Response.Write rs("nyhed") & "<br>"
rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>
</p>
</html>

Du skal altid have en database forbindelse i toppen, eller ihvertfald før du skal bruge noget fra den :-)

Men prøv dette.
  <%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("nyhed.mdb")
Conn.Open DSN

strSQL = "Select * from nyheder"
Set rs = Conn.Execute(strSQL)
%>
<html>
<head>
<title>Untitled Document</title>
</body>
<p><B>Nyheder</B><br>
  <br>
  På denne side kan de seneste nyheder ses. Det vil også være muligt at se fremtidige
  opdateringer osv.<br>
  Hvis vi afholder nogle special-events, så vil det også komme til at stå under
  vores nyhedssektion,<br>
  så vi opfordrer alle til at følge med i hvad der sker af nye ting. Alt vil blive
  skrevet under nyhedssektionen.</p>
  <% Do %>
<table width="68%" border="1">
  <tr>
    <td width="29%"><%Response.Write("navn")%></td>
    <td width="37%"><%Response.Write("email")%></td>
    <td width="34%"><%Response.Write("nyhed")%></td>
  </tr>
</table>
<br>
  <br>
  <%
rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>
<p>

</p>
</html>

Det forstår jeg ikke. Nu laver den to ens tabeller med 3 celler, hvor der står navn, email, nyhed, men den udskriver stadigvæk ikke dataene fra databasen.

nåå, det skal jo også være <%Response.Write RS("navn") %> :-)

Jaaa, det virker! Tusind tak for hjælpen.

Det var så lidt :-)