---

Hejsa
Jeg har et lille prob.
Jeg har lavet en side der hedder add.asp hvorpå der er en form der ser sådan
her ud :

<form action="add_varer.asp" method="post">
Varenavn:<input type="text" name="varenavn"><br>
Pris:<input type="text" name="pris"><br>
Email:<input type="text" name="email"><br>
Navn:<input type="text" name="navn"><br>
<input type="submit" value="Tilføj">
</form>

Dernæst har jeg lavet add_varer.asp hvor jeg så gerne skulle kunne lægge
nye varer ind i db'en. Koden ser sådan her ud:

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


strSQL = "Insert into varer (navn) values('" & Request.Form("navn") & "')"
strSQL = "Insert into varer (pris) values('" & Request.Form("pris") & "')"
strSQL = "Insert into varer (varenavn) values('" & Request.Form("varenavn")
& "')"
strSQL = "Insert into varer (email) values('" & Request.Form("email") & "')"

Conn.Execute(strSQL)


Conn.Close
Set Conn = Nothing
%>
Mit problem er, at når jeg tilføjer nye varer så kommer de ikke i db'en?!?
Nogen der har et godt forslag til hvorfor??

På forhånd tak

Bosse

---

> Mit problem er, at når jeg tilføjer nye varer så kommer de ikke i db'en?!?
> Nogen der har et godt forslag til hvorfor??

Får du en fejlmeddelelse?

/Kasper K

---

Nej - det virker som om det hele kører - der kommer bare ikke noget i db'en

Bosse
"Kasper Katzmann" <kasper@katzmann.dk> wrote in message
news:9tgvrf$c5r$1@sunsite.dk...
> > Mit problem er, at når jeg tilføjer nye varer så kommer de ikke i
db'en?!?
> > Nogen der har et godt forslag til hvorfor??
>
> Får du en fejlmeddelelse?
>
> /Kasper K
>
>
>

---

Prøv dette:

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

strSQL = "Insert into varer (navn, pris, varenavn, email) values('" &
Request.Form("navn") & "','" & Request.Form("pris") & "','" &
Request.Form("varenavn") & "','" & Request.Form("email") & "')"

Conn.Execute(strSQL)


Conn.Close
Set Conn = Nothing
%>

> Mit problem er, at når jeg tilføjer nye varer så kommer de ikke i db'en?!?
> Nogen der har et godt forslag til hvorfor??

her sætter du en linie ind i databasen, med alle de data. Før erstattede du
bare sql'en så det var kun den sidste der blev udført.

Håber det kan løse dit problem.

Peter M

---

Mange tak!!
Nu virker det sørme!!!

Bosse
"N2000" <naked@pc.dk> wrote in message
news:3bfc0847$0$763$edfadb0f@dspool01.news.tele.dk...
> Prøv dette:
>
> <%
> Set Conn = Server.CreateObject("ADODB.Connection")
> DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
> DSN = DSN & "DBQ=" & Server.MapPath ("/database/markedsplads.mdb")
> Conn.Open DSN
>
> strSQL = "Insert into varer (navn, pris, varenavn, email) values('" &
> Request.Form("navn") & "','" & Request.Form("pris") & "','" &
> Request.Form("varenavn") & "','" & Request.Form("email") & "')"
>
> Conn.Execute(strSQL)
>
>
> Conn.Close
> Set Conn = Nothing
> %>
>
> > Mit problem er, at når jeg tilføjer nye varer så kommer de ikke i
db'en?!?
> > Nogen der har et godt forslag til hvorfor??
>
> her sætter du en linie ind i databasen, med alle de data. Før erstattede
du
> bare sql'en så det var kun den sidste der blev udført.
>
> Håber det kan løse dit problem.
>
> Peter M
>
>

---

> Mit problem er, at når jeg tilføjer nye varer så kommer de ikke i db'en?!?
> Nogen der har et godt forslag til hvorfor??

Umiddelbart bliver de tre første sql sætninger jo ikke taget med......

Prøv at lave SQL sætningen således:

strSQL = "Insert into varer (navn,pris,varenavn,email) values('" &
Request.Form("navn") & "', '" & Request.Form("pris") & "', '" &
Request.Form("varenavn") & "', '" & Request.Form("email") & "')"

Forklaringen er at du laver en ny sql streng hver gang du du skriver strSQL
= ......
Hvis du vil gøre det på den måde skal du skrive strSQL = strSQL & .......

--
Med venlig hilsen
Stefan Juhl Mogensen
stefan@cyberinet.com
http://cyberinet.com

---

> strSQL = "Insert into varer (navn) values('" & Request.Form("navn") & "')"
> strSQL = "Insert into varer (pris) values('" & Request.Form("pris") & "')"
> strSQL = "Insert into varer (varenavn) values('" &
Request.Form("varenavn")
> & "')"
> strSQL = "Insert into varer (email) values('" & Request.Form("email") &
"')"
>
> Conn.Execute(strSQL)


Inden jeg selv kommer for godt igang vil jeg lige sige at jeg ikke er
verdensmester ud i ASP men jeg har dog en idé alligevel.

Du har en variabel, der hedder strSQL.
Den har du fire gange. Så vil den mig bekendt tage den sidste af dem:
strSQL = "Insert into varer (email) values('" & Request.Form("email") & "')"

Kommer der heller ikke noget ind i email-feltet?

Jeg tror nok jeg ville gøre sådan her:
----------------------------------------------------------------------------
-------
strNavn = Request.Form("navn")
strPris = Request.Form("pris")
strVarenavn = Request.Form("varenavn")
strEmail = Request.Form("email")

strSQL = "Insert into varer (navn, pris, varenavn, email)" & _
"values(" & strNavn & ", " & strPris & ", " & strVarenavn & ", " &
strEmail & ")"

Conn.Execute(strSQL)
----------------------------------------------------------------------------
-------

Jeg kan ikke lige huske om der skal enkelt-glyffer ' om strNavn og de andre.

Det var lige hvad kunne komme på. Håber det virker.

/Kasper K

---

Det er nok fordi du kun har connectet til databasen,- men mangler at få
adgang til recordsettet
prøv:

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ="& Server.MapPath(".") &_
"/database/markedsplads.mdb; DefaultDir=DBQ="&_
Server.MapPath(".") &";Driver={Microsoft Access Driver (*.mdb)};"

Set RS = Server.CreateObject("ADODB.Recordset")
strSQL = "Insert into varer (navn, pris, varenavn, email) values
('" &Request.Form("navn")&"'", "'"&Request.Form("pris")&"'",
"'"&Request.Form("varenavn")&"'", "'"& Request.Form("varenavn")&"')"
RS.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
--
\Frank

Do not underestimate the power of the Emperor and the rampage of Pharaoh