Simpel skriv ned i en access db

sql = \"Insert Into Bruger(Tabel1, Tabel2, Tabel3, Tabel4,Tabel5, Tabel6, Tabel7, dato) Values(\'\"
sql = sql & Session(\"Tabel1\") & \"\',\'\"
sql = sql & Session(\"Tabel2\") & \"\',\'\"
sql = sql & Session(\"Tabel3\") & \"\',\'\"
sql = sql & Session(\"Tabel4\") & \"\',\'\"
sql = sql & Session(\"Tabel5\") & \"\',\'\"
sql = sql & Session(\"Tabel6\") & \"\',\'\"
sql = sql & Session(\"Tabel7\") & \"\',\'\"
sql = sql & Now(\"dato\") & \"\')\"

conn.execute(strSQL)

-Har har du en skabalon til hvordan man indsætter noget i en database...!

Du skal så lige ha\' en connection først som ser følgende ud:

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

  sql = \"Insert Into Links(WWW, Navn) Values(\'\"
sql = sql & Request.Form(\"www\") & \"\',\'\"
sql = sql & Request.Form(\"navn\")  & \"\')\"

conn.execute(strSQL) 
%>

Sådan her kunne jeg forestille mig du ville ha\' sat det op!

Jeg er ikke helt med. Db connectionen først ikke ? Og så det andet bagefter ? Men jeg tror du har fat i noget af det rigtige.. Kan du sætte det op på en side ?? Eventuelt oprette en access fil også ?? Ved godt jeg er lidt krævende...

hvorfor har afvist mig??? -kunne du ikke komme ned en begrundelse..?

//rune

ja.. hmm... for 30 points!!! -det er sq ik\' så meget!! -Men ok, hvis du sætter den op til 60 og smækker din e-mail adresse óp, så laver jeg det lige!

Du har ikke løst mit problem endnu... Men du skal da nok få point, når det er løst - bare rolig..

/Kaage

Helt OK ! 60 points for u... kk@lota.dk

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

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

<body>

<form action=\"<%= Request.ServerVariables(\"SCRIPT_NAME\") %>?link=add\" method=\"post\">
    <input type=\"text\" name=\"navn\"><br>
    <input type=\"text\" name=\"www\"><br>
    <input type=\"submit\" value=\"opret\">
</form>

<%
    If Request.QueryString(\"link\") = \"add\" Then
        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Conn.Open = \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\")
   
        Set rs = Server.CreateObject(\"ADODB.Recordset\")
           
        SQL = \"SELECT * FROM links\"
           
        rs.Open SQL, Conn, 1, 3
            rs.Addnew
            rs(\"navn\")        =    Request.Form(\"navn\")
            rs(\"www\")        =    Request.Form(\"www\")
        rs.Update
       
        Response.Write(\"linket er nu blevet oprettet\")
    End If
%>

</body>
</html>


//Rune

Var det noget i stil med:
http://www.goose.dk/link du efterlyste ?

sendt

opretter du lige et nyt spm så jeg kan få de sidste 30 ?

//Rune

Hej Rune, det var præcist det jeg ville ha\'. Mange tak for hjæpen, jeg oprettet lige det spørgsmål, så du kan få dine points.

Kaage

kaage> Kunne du ik\' komme med et link til hvor det er spm\'et ligger henne?

//Rune

http://www.eksperten.dk/spm/158682