Søg
Avatar billede vester Novice
11. juni 2001 - 09:42 Der er 16 kommentarer og
1 løsning

30 hurtige (og sikkert nemme)

Jeg har en formular som brugere skal udfylde,
men jeg skal bruge en sætning,
der ved hjælp af feltet \"adresse\" undersøger,
om en bruger i forvejen står i databasen.
Avatar billede netsrac Praktikant
11. juni 2001 - 10:19 #1
\'Connection osv
set rs = conn.execute(\"select adresse from brugere where adresse = \'\" & request.form(\"adresse\") & \"\'\")
if rs.eof then
\'opret
else
\'er oprettet
end if
Avatar billede vester Novice
11. juni 2001 - 10:31 #2
Kan du \"oversætte\" den til min kode?

    strSQL = \"SELECT * FROM \"& UgeNummer &\"\"
    RS.Open strSQL, objConn, 2, 2
    RS.AddNew

    RS(\"Navn\") = Request.Form(\"Navn\")
    RS(\"Adresse\") = Request.Form(\"Adresse\")
    RS(\"Postnr\") = Request.Form(\"Postnr\")
    RS(\"By\") = Request.Form(\"By\")
    RS(\"Email\") = Request.Form(\"Email\")
    RS(\"IP\") = IP
    RS(\"Dato\") = Dato
    RS(\"SPM1\") = Request.Form(\"Gaet1\")
    RS(\"SPM2\") = Request.Form(\"Gaet2\")
    RS(\"SPM3\") = Request.Form(\"Gaet3\")
    RS(\"SPM4\") = Request.Form(\"Gaet4\")
    RS(\"SPM5\") = Request.Form(\"Gaet5\")
    RS(\"SPM6\") = Request.Form(\"Gaet6\")
   
    RS.Update
    RS.Close
    RS=null
    objConn.Close
    set RS = nothing
    set objConn = nothing
%>
<Div Class=\"Fed\">Tak for din tilmelding</div>
Avatar billede ellebaek Nybegynder
11. juni 2001 - 10:37 #3
Svarer lige for netsarc!
<%
set rs = conn.execute(\"select adresse from brugere where adresse = \'\" & request.form(\"adresse\") & \"\'\")
if rs.eof then
\'opret
strSQL = \"SELECT * FROM \"& UgeNummer &\"\"
    RS.Open strSQL, objConn, 2, 2
    RS.AddNew

    RS(\"Navn\") = Request.Form(\"Navn\")
    RS(\"Adresse\") = Request.Form(\"Adresse\")
    RS(\"Postnr\") = Request.Form(\"Postnr\")
    RS(\"By\") = Request.Form(\"By\")
    RS(\"Email\") = Request.Form(\"Email\")
    RS(\"IP\") = IP
    RS(\"Dato\") = Dato
    RS(\"SPM1\") = Request.Form(\"Gaet1\")
    RS(\"SPM2\") = Request.Form(\"Gaet2\")
    RS(\"SPM3\") = Request.Form(\"Gaet3\")
    RS(\"SPM4\") = Request.Form(\"Gaet4\")
    RS(\"SPM5\") = Request.Form(\"Gaet5\")
    RS(\"SPM6\") = Request.Form(\"Gaet6\")
   
    RS.Update
    RS.Close
    RS=null
    objConn.Close
    set RS = nothing
    set objConn = nothing
%>
<Div Class=\"Fed\">Tak for din tilmelding</div>
<%
else
\'er oprettet
Response.write \"Du har tilmeldt dig før\"
end if
%>
Avatar billede ellebaek Nybegynder
11. juni 2001 - 10:39 #4
Sorry ... Netsrac!
Avatar billede vester Novice
11. juni 2001 - 10:42 #5
Kan jeg bruge strSql istedet for set rs = conn.execute ?
Avatar billede netsrac Praktikant
11. juni 2001 - 10:42 #6
ellebaek >> Man kan da heller ikke være væk 5 mins uden at en overfalder ens spm :-)
Avatar billede netsrac Praktikant
11. juni 2001 - 10:45 #7
<%
strSQL = \"select adresse from brugere where adresse = \'\" & request.form(\"adresse\") & \"\'\"
set rstest = objconn.execute(strSQL)
if rstest.eof then
\'opret
strSQL = \"SELECT * FROM \"& UgeNummer &\"\"
    RS.Open strSQL, objConn, 2, 2
    RS.AddNew

    RS(\"Navn\") = Request.Form(\"Navn\")
    RS(\"Adresse\") = Request.Form(\"Adresse\")
    RS(\"Postnr\") = Request.Form(\"Postnr\")
    RS(\"By\") = Request.Form(\"By\")
    RS(\"Email\") = Request.Form(\"Email\")
    RS(\"IP\") = IP
    RS(\"Dato\") = Dato
    RS(\"SPM1\") = Request.Form(\"Gaet1\")
    RS(\"SPM2\") = Request.Form(\"Gaet2\")
    RS(\"SPM3\") = Request.Form(\"Gaet3\")
    RS(\"SPM4\") = Request.Form(\"Gaet4\")
    RS(\"SPM5\") = Request.Form(\"Gaet5\")
    RS(\"SPM6\") = Request.Form(\"Gaet6\")
   
    RS.Update
    RS.Close
    RS=null
    objConn.Close
    set RS = nothing
    set objConn = nothing
%>
<Div Class=\"Fed\">Tak for din tilmelding</div>
<%
else
\'er oprettet
Response.write \"Du har tilmeldt dig før\"
end if
%>
Avatar billede vester Novice
11. juni 2001 - 10:57 #8
Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e14\'

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket \"adresse frombrugerewhere adresse = \'Storegade 19\'\".
Avatar billede vester Novice
11. juni 2001 - 11:01 #9
Jeg eer nødt til at logge af den næste 1½ times tid, så det med de hurtige holdt ikke:-)
Avatar billede netsrac Praktikant
11. juni 2001 - 11:01 #10
adresse frombrugerewhere adresse = \'Storegade 19\'\". Hvad har du lavet ? from brugere where skal der stå
Avatar billede ellebaek Nybegynder
11. juni 2001 - 14:06 #11
ændr i sqlen ...

strSQL = \"select adresse from brugere where adresse = \'\" & request.form(\"adresse\") & \"\'\"

skal i stedet være !
strSQL = \"select adresse from brugere where adresse = \" & request.form(\"adresse\")
Så skulle den være der ...
Avatar billede ellebaek Nybegynder
11. juni 2001 - 14:08 #12
du kan også bruge :!!
strSQL = \"select * from brugere where adresse = \" & request.form(\"adresse\")
Avatar billede netsrac Praktikant
11. juni 2001 - 16:33 #13
ellebaek >> Der skal da \' uden om tekst!
Avatar billede vester Novice
11. juni 2001 - 18:37 #14
Da Ellebaek ikke har \"svaret\" og jeg har brugt netsrac\'s svar, får han alle points.
Det der var galt, var at jeg havde glemt et mellemrum i sql kaldet.

Vester
Avatar billede ellebaek Nybegynder
12. juni 2001 - 10:42 #15
der behøves ikke skulle være \' uden om teksten ...
Men det skulle der åbenbart her ...

Vester --> det var også meningen at netsrac skulle have pointsene som jeg skrev i mit første indlæg !!
Avatar billede netsrac Praktikant
12. juni 2001 - 10:45 #16
Der skal altid være \' uden om tekst.
Avatar billede ellebaek Nybegynder
12. juni 2001 - 11:23 #17
hmmn...

så er det nok bare mig der huske galt :-)
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
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 21:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
I går 16:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
I går 12:17 Flytte fra et projekt til andet Af hkprofil i Excel
I går 09:23 Slet tal, bevar de underliggende formler Af bbkdk i Excel
09/1108:35 D3D12 lukker nogle spil ned Af thedukedk i Andet software
White papers
Flere white papers »