/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Form data i SQL-sætning
Fra : Asger


Dato : 14-10-01 18:51

Jeg er igang med at lave et simpelt brugersystem hvor brugere kan
oprette en profil og senere logge ind.

Jeg har en side der sender 3 værdier, nemlig brugernavn, password
og e-mail.
Dem vil jeg så have sat ind i en database. Jeg har prøvet at
skrive:

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

strSQL = "Select * from brugere"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)


strSQL = "Insert into brugere (brugernavn, password, e-mail)
values('" & Request.Form("brugernavn") & ", " &
Request.Form("password") & ", " & Request.Form("e-mail") & "')"

Men det virker bare ikke!

Håber der er nogle der kan hjælpe.

MvH Asger

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

 
 
Jesper Stocholm (14-10-2001)
Kommentar
Fra : Jesper Stocholm


Dato : 14-10-01 19:02

Asger wrote in news:9qcjao$mch$1@sunsite.dk:

> Jeg er igang med at lave et simpelt brugersystem hvor brugere kan
> oprette en profil og senere logge ind.
>
>
> strSQL = "Select * from brugere"
> ' Udfør forespørgsel (rs indeholder nu resultatet)
> Set rs = Conn.Execute(strSQL)
>
>
> strSQL = "Insert into brugere (brugernavn, password, e-mail)
> values('" & Request.Form("brugernavn") & ", " &
> Request.Form("password") & ", " & Request.Form("e-mail") & "')"
>

Det kunne være rart, hvis du skrev, hvad fejlen var ... men det ser ud til.
at du mangler at indsætte nogle pinger (') i din sætning. Prøv med

strSQL = "Insert into brugere (brugernavn, password, e-mail)
values('" & Request.Form("brugernavn") & "', '" &
Request.Form("password") & "', '" & Request.Form("e-mail") & "')"


--
.... der søger lejlighed fremleje/leje i Københavnsområdet. Max. kr. 5000 om
måneden alt inklusive.

- Jesper Stocholm - http://stocholm.dk

Jørn Andersen (14-10-2001)
Kommentar
Fra : Jørn Andersen


Dato : 14-10-01 19:07

On Sun, 14 Oct 2001 17:51:20 +0000 (UTC), Asger <flubbyb@hotmail.com>
wrote:

Hej Asger,

Prøv at kigge på, hvad du egentlig gør:

>Dem vil jeg så have sat ind i en database. Jeg har prøvet at
>skrive:
>
>Set Conn = Server.CreateObject("ADODB.Connection")
>DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
>DSN = DSN & "DBQ=" & Server.MapPath
>("/brugersystem/db/brugere.mdb")
>Conn.Open DSN

Indtil nu har du connectet - det er sikkert OK.

>strSQL = "Select * from brugere"
>' Udfør forespørgsel (rs indeholder nu resultatet)
>Set rs = Conn.Execute(strSQL)

Og hvad kan du så bruge det til? Du vil jo ikke udvælge, men indsætte.
- Drop disse 3 linier.

>strSQL = "Insert into brugere (brugernavn, password, e-mail)
>values('" & Request.Form("brugernavn") & ", " &
>Request.Form("password") & ", " & Request.Form("e-mail") & "')"

Du mangler vistnok et par enkelt-anførselstegn:
strSQL = "Insert into brugere (brugernavn, password, e-mail)
values('" & Request.Form("brugernavn") & "', '" &
Request.Form("password") & "', '" & Request.Form("e-mail") & "')"

(det hele i een lang linie)

Her har du dannet en SQL-streng, men du bruger den bare ikke til
noget.

Indsæt:
Conn.Execute(strSQL)
- så får udført din SQL.

Check:
<URL: http://html.dk/tutorials/asp/>
- især letion 17 og frem.


Good luck,
Jørn


--
Jørn Andersen
Brønshøj

Asger (14-10-2001)
Kommentar
Fra : Asger


Dato : 14-10-01 19:47

Jørn Andersen wrote in dk.edb.internet.webdesign.serverside.asp:
> On Sun, 14 Oct 2001 17:51:20 +0000 (UTC), Asger <flubbyb@hotmail.com>
> wrote:
>
> Hej Asger,
>
> Prøv at kigge på, hvad du egentlig gør:
>
> >Dem vil jeg så have sat ind i en database. Jeg har prøvet at
> >skrive:
> >
> >Set Conn = Server.CreateObject("ADODB.Connection")
> >DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
> >DSN = DSN & "DBQ=" & Server.MapPath
> >("/brugersystem/db/brugere.mdb")
> >Conn.Open DSN
>
> Indtil nu har du connectet - det er sikkert OK.
>
> >strSQL = "Select * from brugere"
> >' Udfør forespørgsel (rs indeholder nu resultatet)
> >Set rs = Conn.Execute(strSQL)
>
> Og hvad kan du så bruge det til? Du vil jo ikke udvælge, men indsætte.
> - Drop disse 3 linier.
>
> >strSQL = "Insert into brugere (brugernavn, password, e-mail)
> >values('" & Request.Form("brugernavn") & ", " &
> >Request.Form("password") & ", " & Request.Form("e-mail") & "')"
>
> Du mangler vistnok et par enkelt-anførselstegn:
> strSQL = "Insert into brugere (brugernavn, password, e-mail)
> values('" & Request.Form("brugernavn") & "', '" &
> Request.Form("password") & "', '" & Request.Form("e-mail") & "')"
>
> (det hele i een lang linie)
>
> Her har du dannet en SQL-streng, men du bruger den bare ikke til
> noget.
>
> Indsæt:
> Conn.Execute(strSQL)
> - så får udført din SQL.
>
> Check:
> <URL: http://html.dk/tutorials/asp/>
> - især letion 17 og frem.
>
>
> Good luck,
> Jørn
>
>
> --
> Jørn Andersen
> Brønshøj

Mange tak for hjælpen!

Jeg har nu fået ændret lidt på mit script, men når jeg nu bruger den
rettede SQL sætning få jeg den standard fejlmeddelse "HTTP 500 - Intern
serverfejl"

Få en sikkerheds skyld så er hele scriptet her:

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

Do While Not rs.EOF
If Request.Form("brugernavn") = rs("brugernavn") Then
Response.Write "Det brugernavn er der desværre en anden der har taget,
prøv venligst et andet."
Response.Write "Tryk <a href='opret_bruger_side.asp'
target='hovedramme'>her</a> for at komme tilbage."
End if
rs.MoveNext
Loop

strSQL = "Insert into brugere (brugernavn, password, e-mail) values('" &
Request.Form("brugernavn") & "', '" & Request.Form("password") & "', '"
& Request.Form("e-mail") & "')"


Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>


Hvad pokker kan der være galt???

Please help me!
Asger


--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

Jørn Andersen (18-10-2001)
Kommentar
Fra : Jørn Andersen


Dato : 18-10-01 07:00

On Sun, 14 Oct 2001 18:46:46 +0000 (UTC), Asger <flubby@hotmail.com>
wrote:

Hej Asger,

<SNIP>
>Jeg har nu fået ændret lidt på mit script, men når jeg nu bruger den
>rettede SQL sætning få jeg den standard fejlmeddelse "HTTP 500 - Intern
>serverfejl"

Du kan få mere uddybede fejlmeddelelelser ved at ændre en indstilling
i din MSIE-browser:
Under Tools | Internet Options | Advanced skal der være x i "Show
friendly HTTP Error messages"

>Få en sikkerheds skyld så er hele scriptet her:

Jeg vil lade dig selv finde fejlen ud fra de udvidede fejlmeddelelser.

Hint: Hvor får din "Do While" loop sine data (rs ...) fra?

Tag evt. et ekstra kig på den link, jeg gav dig. Ellers vend blot
tilbage :)

Good luck,
Jørn


--
Jørn Andersen
Brønshøj

Søg
Reklame
Statistik
Spørgsmål : 177554
Tips : 31968
Nyheder : 719565
Indlæg : 6408857
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste