Søg
Avatar billede rasmustest Nybegynder
13. november 2001 - 21:57 Der er 48 kommentarer og
1 løsning

virker ikke!!!!! arh hjælp!

Siger det nok??jeg har et problem, her er koden:
<html><body>
<%
strNavn = Request.QueryString(\"navn\")
strNummer = Request.QueryString(\"nummer\")
strUdbyder = Request.QueryString(\"udbyder\")
strBrugernavn = Request.QueryString(\"brugernavn\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"databaser/bruger.mdb\")
Conn.Open DSN
strSQL = \"Select * from data where brugernavn = strBrugernavn or nummer = strNummer \"
Set rs = Conn.Execute(strSQL)
if rs.eof or rs.BOF then
rs.AddNew
rs(\"brugernavn\") = strBrugernavn
rs(\"adgangskode\") = strTal
rs(\"navn\") = strNavn
rs(\"nummer\") = strNummer
rs(\"udbyder\") = strUdbyder
rs(\"points\") = \"10\"
rs.update

Response.Redirect(\"bruger.asp\")
else
Response.Write(\"<b><font color=\'red\'>Brugernavnet er optaget</font></b><br>\")
                                       
end if
                                   
rs.Close
set rs = nothing
%>
</body></html>
men denne fejl kommer:

Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e10\'

[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 2.

/totalmobil/opretfoedig.asp, linje 13


Linje 13 vist nok sql-sætningen hjælp!!!!!
Avatar billede carpediem Nybegynder
13. november 2001 - 22:00 #1
<%
strNavn = Request.QueryString(\"navn\")
strNummer = Request.QueryString(\"nummer\")
strUdbyder = Request.QueryString(\"udbyder\")
strBrugernavn = Request.QueryString(\"brugernavn\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"databaser/bruger.mdb\")
Conn.Open DSN
strSQL = \"Select * from data where brugernavn = \'\" & strBrugernavn & \"\' or nummer = \" & strNummer
Set rs = Conn.Execute(strSQL)
if rs.eof or rs.BOF then
rs.AddNew
rs(\"brugernavn\") = strBrugernavn
rs(\"adgangskode\") = strTal
rs(\"navn\") = strNavn
rs(\"nummer\") = strNummer
rs(\"udbyder\") = strUdbyder
rs(\"points\") = \"10\"
rs.update

Response.Redirect(\"bruger.asp\")
else
Response.Write(\"<b><font color=\'red\'>Brugernavnet er optaget</font></b><br>\")
                                       
end if
                                   
rs.Close
set rs = nothing
%>
</body></html>
Avatar billede eagleeye Praktikant
13. november 2001 - 22:02 #2
strBrugernavn og strNummer er varibale så de skal indsættes i strengen, og hvis der er tekst skal der \' omkring:

strSQL = \"Select * from data where brugernavn = \'\"&strBrugernavn&\"\' or nummer = \'\"&strNummer&\"\'\"
Avatar billede rasmustest Nybegynder
13. november 2001 - 22:04 #3
nu kommer:
Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e07\'

[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket.

/totalmobil/opretfoedig.asp, linje 12

Avatar billede rasmustest Nybegynder
13. november 2001 - 22:05 #4
eagleeye  stadig linje 12
Avatar billede eagleeye Praktikant
13. november 2001 - 22:05 #5
hvis bruger du?
Avatar billede carpediem Nybegynder
13. november 2001 - 22:06 #6
<%
strNavn = Request.QueryString(\"navn\")
strNummer = Request.QueryString(\"nummer\")
strUdbyder = Request.QueryString(\"udbyder\")
strBrugernavn = Request.QueryString(\"brugernavn\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"databaser/bruger.mdb\")
Conn.Open DSN
strSQL = \"Select * from data where brugernavn = \'\" & strBrugernavn & \"\' or nummer = \'\" & strNummer & \"\'\"
Set rs = Conn.Execute(strSQL)
if rs.eof or rs.BOF then
rs.AddNew
rs(\"brugernavn\") = strBrugernavn
rs(\"adgangskode\") = strTal
rs(\"navn\") = strNavn
rs(\"nummer\") = strNummer
rs(\"udbyder\") = strUdbyder
rs(\"points\") = \"10\"
rs.update

Response.Redirect(\"bruger.asp\")
else
Response.Write(\"<b><font color=\'red\'>Brugernavnet er optaget</font></b><br>\")
                                       
end if
                                   
rs.Close
set rs = nothing
%>
</body></html>
Avatar billede carpediem Nybegynder
13. november 2001 - 22:06 #7
Det lyder underligt. Hvilke datatyper er brugernavn og nummer?
Avatar billede rasmustest Nybegynder
13. november 2001 - 22:07 #8
eagleeye  ???hvad
Avatar billede eagleeye Praktikant
13. november 2001 - 22:09 #9
der var lidt forskel på vores to sql sætninger i løsning 1 og 2. Så spørg jeg om hvilkenSQL du brugte da du fik fejlen.
Avatar billede rasmustest Nybegynder
13. november 2001 - 22:09 #10
er der noget med:
rs.eof or rs.BOF then
rs.AddNew
rs(\"brugernavn\") = strBrugernavn
rs(\"adgangskode\") = strTal
rs(\"navn\") = strNavn
rs(\"nummer\") = strNummer
rs(\"udbyder\") = strUdbyder
rs(\"points\") = \"10\"
rs.update???
Avatar billede rasmustest Nybegynder
13. november 2001 - 22:10 #11
eagleeye--> ikke lige så porfesional, hvad mener du  undskyld jeg forstår ikke
Avatar billede carpediem Nybegynder
13. november 2001 - 22:11 #12
Måske rs(\"points\") = \"10\"
skal rettes til:
rs(\"points\") = 10
Avatar billede rasmustest Nybegynder
13. november 2001 - 22:12 #13
nope
Avatar billede eagleeye Praktikant
13. november 2001 - 22:13 #14
Hvis brugernavn og nummer er defineret som teskt i databasen så skal der \' omkring de data du bruger i SQL-sætningen:

strSQL = \"Select * from data where brugernavn = \'\"&strBrugernavn&\"\' or nummer = \'\"&strNummer&\"\'\"
Avatar billede carpediem Nybegynder
13. november 2001 - 22:14 #15
Så prøv:

strSQL = \"Select * from data where brugernavn = \" & strBrugernavn & \" or nummer = \" & strNummer 
Avatar billede rasmustest Nybegynder
13. november 2001 - 22:16 #16
har tjecket databasen og ingen fejl!
Avatar billede eagleeye Praktikant
13. november 2001 - 22:17 #17
?? hvad mener du
Er kolonnen brugernavn i tabellen data defineret som tekst ?
Er kolonnen nummer i tabellen data defineret som tekst ?
Avatar billede rasmustest Nybegynder
13. november 2001 - 22:22 #18
brugernavn : tekst
nummer : tal
Avatar billede eagleeye Praktikant
13. november 2001 - 22:24 #19
Så skulle den som carpediem først skrev virke:

strSQL = \"Select * from data where brugernavn = \'\" & strBrugernavn & \"\' or nummer = \" & strNummer
Avatar billede rasmustest Nybegynder
13. november 2001 - 22:25 #20
magler der ikke \"
Avatar billede eagleeye Praktikant
13. november 2001 - 22:28 #21
Nej. Den skulle gerne virke.
Avatar billede rasmustest Nybegynder
13. november 2001 - 22:29 #22
fandter det ikke, nu er det:
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 \"brugernavn = \'\' or nummer =\".

/totalmobil/opretfoedig.asp, linje 13
Avatar billede eagleeye Praktikant
13. november 2001 - 22:33 #23
Du har denne:
strNavn = Request.QueryString(\"navn\")
med det er strBrugernavn  i SQL\'en jeg tror det skal være strNAvn:

strSQL = \"Select * from data where brugernavn = \'\" & strNavn & \"\' or nummer = \" & strNummer
Avatar billede rasmustest Nybegynder
13. november 2001 - 22:34 #24
samme
Avatar billede rasmustest Nybegynder
13. november 2001 - 22:36 #25
gå i seng nu, men hvis du finder ud af det så skriv lige ikke!
Avatar billede rasmustest Nybegynder
13. november 2001 - 22:37 #26
ups jeg gå i seng nu, men hvis du finder ud af det så skriv lige ikke!
Avatar billede eagleeye Praktikant
13. november 2001 - 22:40 #27
Prøv at udskrive SQL\'en inden du lavde rs = Conn.Execute(strSQL)
Avatar billede rasmustest Nybegynder
14. november 2001 - 07:40 #28
nu er det:
<%
strNavn = Request.QueryString(\"navn\")
strNummer = Request.QueryString(\"nummer\")
strUdbyder = Request.QueryString(\"udbyder\")
strBrugernavn = Request.QueryString(\"brugernavn\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"databaser/bruger.mdb\")
Conn.Open DSN
strSQL = \"Select * from data where brugernavn = \'\" & strNavn & \"\' or nummer = \" & strNummer
Set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
rs.AddNew
rs(\"brugernavn\") = strBrugernavn
rs(\"adgangskode\") = \"test\"
rs(\"navn\") = strNavn
rs(\"nummer\") = strNummer
rs(\"udbyder\") = strUdbyder
rs(\"points\") = \"10\"
rs.update

Response.Redirect(\"bruger.asp\")
else
Response.Write(\"<b><font color=\'red\'>Brugernavnet er optaget</font></b><br>\")
                                       
end if
                                   
rs.Close
set rs = nothing
%>
nu er linje 12 fejlen er:
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 \"brugernavn = \'\' or nummer =\".

/totalmobil/opretfoedig.asp, linje 12


kan jeg ikke sende det til dig???for jeg kan ikke finde fejlen!

Avatar billede eagleeye Praktikant
14. november 2001 - 08:23 #29
Beggee dine strNavn og strNummer er tommme.
Kommer de fra en form eller fra linket?
Avatar billede rasmustest Nybegynder
14. november 2001 - 08:55 #30
nu er jeg ikke lige hjemme så du kan scriptet,men det er fra en form.Kl. 16  ligger jeg det ind her!!!
Avatar billede rasmustest Nybegynder
14. november 2001 - 15:53 #31
opret.asp:
<head><SCRIPT LANGUAGE=\"JavaScript\">
function tjek(form) {
    Ctrl1 = form.name;
    Ctrl2 = form.nummer;
    Ctrl3 = form.udbyder;
    Ctrl4 = form.brugernavn;
   
    if (Ctrl1.value.length == \"\") {
        alert (\"du mangler navn\");
        return (false);
    }     else if (Ctrl2.value.Tal) {
    alert(\"Forkert : Kun tal tak\")
    return (false)
    } else if (Ctrl3.value.length == \"\") {
        alert (\"magler udbuder\");
        return (false);
    } else if (Ctrl4.value == \"\") {
        alert (\"du magler brugernavn\");
        return (false);
    }

    return (true);
}
</SCRIPT></head>
<% \'25
Select Case request.Querystring(\"mode\")
Case    \"konfin\"
        strBrugernavn = Request.Form(\"brugernavn\")
    strNavn = Request.Form(\"name\")
    strNummer = Request.Form(\"nummer\")
    strUdbyder = Request.Form(\"udbyder\")

Set Conn = Server.CreateObject(\"ADODB.Connection\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"databaser/bruger.mdb\")
Conn.Open DSN
strSQL = \"Select * from data where brugernavn = \'\" & strBrugernavn & \"\' or nummer = \" & strNummer
Set rs = Conn.Execute(strSQL)

If Not rs.EOF Then
    Response.write \"brugernavn eller tfl er taget vel et andet\"
Else
    response.Write \"<FORM method=\"\"post\"\" onSubmit=\"\" return     tjek(this)\"\" action=\"\"opretfoedig.asp\"\">\"
    response.Write \"navn: \" & strNavn & \"<p>\"
    response.Write \"Nummer: \" & strNummer & \"<p>\"
    response.Write \"Brugernavn: \" & strBrugernavn & \"<p>\"
    response.Write \"Udbyder: \" & strUdbyder & \"<p>\"
    response.Write \"<INPUT TYPE=\"\"hidden\"\" NAME=\"\"name\"\" value=\" &     strNavn & \"><p>\"
    response.Write \"<INPUT TYPE=\"\"hidden\"\" NAME=\"\"nummer\"\" value=\"     & strNummer & \"><p>\"
    response.Write \"<INPUT TYPE=\"\"hidden\"\" NAME=\"\"udbyder\"\" value=\"     & strUdbyder & \"><p>\"
    response.Write \"<INPUT TYPE=\"\"hidden\"\" NAME=\"\"brugernavn\"\"     value=\" & strBrugernavn & \"><p>\"
    response.Write \"<INPUT TYPE=\"\"submit\"\" value=\"\"ok\"\">\"
    response.Write \"</FORM>\"
    response.Write \"<FORM method=\"\"post\"\" onSubmit=\"\" return     tjek(this)\"\" action=\"\"opret.asp?mode=ændre\"\">\"
    response.Write \"<INPUT TYPE=\"\"hidden\"\" NAME=\"\"name\"\" value=\" &     strNavn & \"><p>\"
    response.Write \"<INPUT TYPE=\"\"hidden\"\" NAME=\"\"nummer\"\" value=\"     & strNummer & \"><p>\"
    response.Write \"<INPUT TYPE=\"\"hidden\"\" NAME=\"\"udbyder\"\" value=\"     & strUdbyder & \"><p>\"
    response.Write \"<INPUT TYPE=\"\"hidden\"\" NAME=\"\"brugernavn\"\" value=\"     & strBrugernavn & \"><p>\"
    response.Write \"<INPUT TYPE=\"\"submit\"\" value=\"\"ændre\"\">\"
    response.Write \"</FORM>\"
End If
Conn.Close
Set Conn = Nothing
Case    \"ændre\"
    strBrugernavn = Request.Form(\"brugernavn\")
    strNavn = Request.Form(\"name\")
    strNummer = Request.Form(\"nummer\")
    strUdbyder = Request.Form(\"udbyder\")
    response.Write \"<FORM method=\"\"post\"\" onSubmit=\"\" return     tjek(this)\"\" action=\"\"opret.asp?mode=konfin\"\">\"
    response.Write \"<INPUT TYPE=\"\"text\"\" NAME=\"\"name\"\" value=\" &     strNavn & \"><p>\"
    response.Write \"<INPUT TYPE=\"\"text\"\" NAME=\"\"nummer\"\" value=\" &     strNummer & \"><p>\"
    response.Write \"<INPUT TYPE=\"\"text\"\" NAME=\"\"nummer\"\" value=\" &     strBrugernavn & \"><p>\"
    response.Write \"vælg udbyder:<select name=\"\"udbyder\"\">\"
    Select Case strUdbyder
    Case  \"Oragne\"
        response.Write \"<option value=\"\"Oragne\"\"     selected=\"\"selected\"\">Oragne</option>\"
        response.Write \"<option     value=\"\"Teledanmark\"\">Teledanmark</option>\"
        response.Write \"<option     value=\"\"TeleFona\"\">TeleFona</option>\"
    response.Write \"<option value=\"\"Debitel\"\">Debitel</option>\"
    response.Write \"<option value=\"\"Telia\"\">Telia</option>\"
    Case \"Teledanmark\"
    response.Write \"<option value=\"\"Oragne\"\">Oragne</option>\"
    response.Write \"<option value=\"\"Teledanmark\"\"     selected=\"\"selected\"\">Teledanmark</option>\"
    response.Write \"<option value=\"\"TeleFona\"\">TeleFona</option>\"
    response.Write \"<option value=\"\"Debitel\"\">Debitel</option>\"
    response.Write \"<option value=\"\"Telia\"\">Telia</option>\"
    Case \"TeleFona\"
    response.Write \"<option value=\"\"Oragne\"\">Oragne</option>\"
    response.Write \"<option value=\"\"Teledanmark\"\">Teledanmark</option>\"
    response.Write \"<option value=\"\"TeleFona\"\" selected=\"\"selected\"\">TeleFona</option>\"
    response.Write \"<option value=\"\"Debitel\"\">Debitel</option>\"
    response.Write \"<option value=\"\"Telia\"\">Telia</option>\"
Case \"Debitel\"
    response.Write \"<option value=\"\"Oragne\"\">Oragne</option>\"
    response.Write \"<option value=\"\"Teledanmark\"\">Teledanmark</option>\"
    response.Write \"<option value=\"\"TeleFona\"\">TeleFona</option>\"
    response.Write \"<option value=\"\"Debitel\"\" selected=\"\"selected\"\">Debitel</option>\"
    response.Write \"<option value=\"\"Telia\"\">Telia</option>\"
Case \"Telia\"
    response.Write \"<option value=\"\"Oragne\"\">Oragne</option>\"
    response.Write \"<option value=\"\"Teledanmark\"\">Teledanmark</option>\"
    response.Write \"<option value=\"\"TeleFona\"\">TeleFona</option>\"
    response.Write \"<option value=\"\"Debitel\"\">Debitel</option>\"
    response.Write \"<option value=\"\"Telia\"\" selected=\"\"selected\"\">Telia</option>\"
Case Else
    response.Write \"<option  value=\"\"\"\" selected=\"\"selected\"\">vælg udbyder her</option>\"
    response.Write \"<option value=\"\"Oragne\"\">Oragne</option>\"
    response.Write \"<option value=\"\"Teledanmark\"\">Teledanmark</option>\"
    response.Write\"<option value=\"\"TeleFona\"\">TeleFona</option>\"
    response.Write \"<option value=\"\"Debitel\"\">Debitel</option>\"
    response.Write \"<option value=\"\"Telia\"\">Telia</option>\"
    response.Write \"</select>\"
End Select

response.Write \"<INPUT TYPE=\"\"submit\"\" value=\"\"Opret\"\">\"
response.Write \"</FORM>\"
Case Else
%>
<FORM method=\"post\" onSubmit=\" return tjek(this)\" action=\"opret.asp?mode=konfin\">
<INPUT TYPE=\"text\" NAME=\"name\"><p>
<INPUT TYPE=\"text\" NAME=\"nummer\"><p>
<INPUT TYPE=\"text\" NAME=\"brugernavn\"><p>
vælg udbyder:<select name=\"udbyder\">
<option  value=\"\" selected=\"selected\">vælg udbyder her</option>
<option value=\"Oragne\">Oragne</option>
<option value=\"Teledanmark\">Teledanmark</option>
<option value=\"TeleFona\">TeleFona</option>
<option value=\"Debitel\">Debitel</option>
<option value=\"Telia\">Telia</option>
</select>
<INPUT TYPE=\"submit\" value=\"opret\">
</FORM>
<%End Select
%>


Det er under konfir du skal kigge!!
Her er så oretfoedig.asp:
<%
strNavn = Request.QueryString(\"name\")
strNummer = Request.QueryString(\"nummer\")
strUdbyder = Request.QueryString(\"udbyder\")
strBrugernavn = Request.QueryString(\"brugernavn\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"databaser/bruger.mdb\")
Conn.Open DSN
strSQL = \"Select * from data where brugernavn = \'\" & strNavn & \"\' or nummer = \" & strNummer
Set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
rs.AddNew
rs(\"brugernavn\") = strBrugernavn
rs(\"adgangskode\") = \"test\"
rs(\"navn\") = strNavn
rs(\"nummer\") = strNummer
rs(\"udbyder\") = strUdbyder
rs(\"points\") = \"10\"
rs.update

Response.Redirect(\"bruger.asp\")
else
Response.Write(\"<b><font color=\'red\'>Brugernavnet er optaget</font></b><br>\")
                                       
end if
                                   
rs.Close
set rs = nothing
%>
Men det virker ikke!
Avatar billede rasmustest Nybegynder
14. november 2001 - 15:53 #32
giver denne fejl:
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 \"brugernavn = \'\' or nummer =\".

/totalmobil/opretfoedig.asp, linje 12
Avatar billede eagleeye Praktikant
14. november 2001 - 19:35 #33
Du har \"<FORM method=\"\"post\"\" : Så skal du bruge Request.Form og ikke QueryString:

strNavn = Request.Form(\"navn\")
strNummer = Request.Form(\"nummer\")
strUdbyder = Request.Form(\"udbyder\")
strBrugernavn = Request.Form(\"brugernavn\")
Avatar billede rasmustest Nybegynder
19. november 2001 - 12:05 #34
den giver ingen fejl,men opretter ikke!!!!hjælp!
Avatar billede eagleeye Praktikant
19. november 2001 - 15:13 #35
Prøv denne SQL:
strSQL = \"Select * from data where brugernavn = \'\" & strBrugernavn & \"\' or nummer = \" & strNummer
Avatar billede rasmustest Nybegynder
20. november 2001 - 16:55 #36
Den laver ike fejl, men opretter ikke!!!hjælp, mit script er nu:
<%
        strBrugernavn = Request.Form(\"brugernavn\")
    strNavn = Request.Form(\"name\")
    strNummer = Request.Form(\"nummer\")
    strUdbyder = Request.Form(\"udbyder\")
    strTal = \"hej\"
    strPoints = \"10\"
Set Conn = Server.CreateObject(\"ADODB.Connection\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"databaser/bruger.mdb\")
Conn.Open DSN
strSQL = \"Select * from data where brugernavn = \'\" & strBrugernavn & \"\' or nummer = \" & strNummer
Set rs = Conn.Execute(strSQL)
sql = \"INSERT INTO (brugernavn, adgangskode, nummer, udbyder, points) values (\"
sql = sql & strBrugernavn
sql = sql & strTal
sql = sql & strNummer
sql = sql & strUdbyder
sql = sql & strPoints
Response.write \"færdig!!\"

Response.Write(\"<b><font color=\'red\'>Brugernavnet er optaget</font></b><br>\")
                                       

                                   
rs.Close
set rs = Nothing

Conn.Close
Set Conn = Nothing
%>
Avatar billede eagleeye Praktikant
20. november 2001 - 16:58 #37
hvis flterne i databasen er defineret som tekst skal der \' omkring, der skal komma (,) efter hver værdi og afslut med ). Hvis data er tal skal der ikke \' omkring:

sql = \"INSERT INTO (brugernavn, adgangskode, nummer, udbyder, points) values (\"
sql = sql & \"\'\" & strBrugernavn & \"\',\"
sql = sql & strTal
sql = sql & \"\'\" & strNummer & \"\',\"
sql = sql & \"\'\" & strUdbyder & \"\',\"
sql = sql & \"\'\" & strPoints & \"\'\"
sql = sql & \")\"
Avatar billede eagleeye Praktikant
20. november 2001 - 17:03 #38
how glemte lige du skal også Execute SQL\'en:

sql = \"INSERT INTO...
sql = sql & \")\"
Conn.Execute(SQL)  <--- indsæt

Hvis det ikke lige virker så prøv evt at udskrive SQL\'en:
Udskrift Conn.Execute(SQL)  til:
Response.write(SQL)
Conn.Execute(SQL)
Avatar billede eagleeye Praktikant
20. november 2001 - 17:06 #39
Hvis du har nogle felter som må være tomme skal du huske i databasen at sætte kolonne til Obligatorisk = Nej  og  Tillad Null-længde = Ja
Avatar billede rasmustest Nybegynder
20. november 2001 - 17:12 #40
her er koden:
<%
        strBrugernavn = Request.Form(\"brugernavn\")
    strNavn = Request.Form(\"name\")
    strNummer = Request.Form(\"nummer\")
    strUdbyder = Request.Form(\"udbyder\")
    strTal = \"hej\"
    strPoints = \"10\"
Set Conn = Server.CreateObject(\"ADODB.Connection\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"databaser/bruger.mdb\")
Conn.Open DSN
sql = \"INSERT INTO (brugernavn, adgangskode, nummer, udbyder, points) values (\"
sql = sql & \"\'\" & strBrugernavn & \"\',\"
sql = sql & strTal
sql = sql & \"\'\" & strNummer & \"\',\"
sql = sql & \"\'\" & strUdbyder & \"\',\"
sql = sql & \"\'\" & strPoints & \"\'\"
sql = sql & \")\"
Response.write \"færdig!!\"

Response.Write(\"<b><font color=\'red\'>Brugernavnet er optaget</font></b><br>\")
                                       
Conn.Close
Set Conn = Nothing
%>


virker ikke OPRETTER IKKE
Avatar billede eagleeye Praktikant
20. november 2001 - 17:13 #41
du skal lige havde denne ind:  Conn.Execute(SQL)


sql = \"INSERT INTO (brugernavn, adgangskode, nummer, udbyder, points) values (\"
sql = sql & \"\'\" & strBrugernavn & \"\',\"
sql = sql & strTal
sql = sql & \"\'\" & strNummer & \"\',\"
sql = sql & \"\'\" & strUdbyder & \"\',\"
sql = sql & \"\'\" & strPoints & \"\'\"
sql = sql & \")\"
Conn.Execute(SQL)
Avatar billede rasmustest Nybegynder
20. november 2001 - 17:15 #42
brugernavn = text
adgangskode = text
navn = text
udbyder = tal
points = tal


Avatar billede eagleeye Praktikant
20. november 2001 - 17:20 #43
du har i SQL\'en disse kolonner:
brugernavn, adgangskode, nummer, udbyder, points
Og så skriver disse (jeg antager dette er de rigtige):
brugernavn, adgangskode, navn, udbyder, points

hvilken Form(VARIABLE) skal ind i adgangskode ??


<%
    strBrugernavn = Request.Form(\"brugernavn\")
    strNavn = Request.Form(\"name\")
    strNummer = Request.Form(\"nummer\")
    strUdbyder = Request.Form(\"udbyder\")
    strTal = \"hej\"
    strPoints = 10
Set Conn = Server.CreateObject(\"ADODB.Connection\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"databaser/bruger.mdb\")
Conn.Open DSN
sql = \"INSERT INTO (brugernavn, adgangskode, navn, udbyder, points) values (\"
sql = sql & \"\'\" & strBrugernavn & \"\', \"
sql = sql & \"\'\" & strAdgangskode & \"\', \"
sql = sql & \"\'\" & strNummer & \"\', \"
sql = sql & \"\" & strUdbyder & \", \"
sql = sql & \"\" & strPoints & \"\"
sql = sql & \")\"
Response.write SQL \'FOR TEST KAN SLETTES SENERE
Conn.Execute(SQL)
Response.write \"færdig!!\"

Response.Write(\"<b><font color=\'red\'>Brugernavnet er optaget</font></b><br>\")
                                       
Conn.Close
Set Conn = Nothing
%>
Avatar billede eagleeye Praktikant
20. november 2001 - 17:22 #44
sql = sql & \"\'\" & strNummer & \"\',

Laves om til:

sql = sql & \"\'\" & strNavn & \"\',
Avatar billede eagleeye Praktikant
20. november 2001 - 17:27 #45
I formen kan jeg se du har en select:

<select name=\"udbyder\"> og de values som puttes ind i <Option> er tekst: value=\"Teledanmark\"

Så skal ud udbyder være tal?
Avatar billede rasmustest Nybegynder
20. november 2001 - 17:40 #46
nu virker det!!! her er koden:
<%
strNavn = Request.Form(\"navn\")
strNummer = Request.Form(\"nummer\")
strUdbyder = Request.Form(\"udbyder\")
strBrugernavn = Request.Form(\"brugernavn\")   


Set Conn = Server.CreateObject(\"ADODB.Connection\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"databaser/bruger.mdb\")
Conn.Open DSN
strSQL = \"Select * from data where brugernavn = \'\" & strBrugernavn & \"\' or nummer = \" & strNummer

Set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
rs.AddNew
rs(\"brugernavn\") = strBrugernavn
rs(\"adgangskode\") = \"test\"
rs(\"navn\") = strNavn
rs(\"nummer\") = strNummer
rs(\"udbyder\") = strUdbyder
rs(\"points\") = \"10\"
rs.update

Response.Redirect(\"bruger.asp\")
else
Response.Write(\"<b><font color=\'red\'>Brugernavnet er optaget</font></b><br>\")
                                       
end if
                                   
rs.Close
set rs = nothing
%>
Avatar billede rasmustest Nybegynder
20. november 2001 - 17:42 #47
fejl her er den!!!!:
<%
        strBrugernavn = Request.Form(\"brugernavn\")
    strNavn = Request.Form(\"name\")
    strNummer = Request.Form(\"nummer\")
    strUdbyder = Request.Form(\"udbyder\")
    strTal = \"hej\"
    strPoints = \"10\"
Set Conn = Server.CreateObject(\"ADODB.Connection\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"databaser/bruger.mdb\")
Conn.Open DSN
sql = \"INSERT INTO data (brugernavn, adgangskode, nummer, udbyder, points) values (\"
sql = sql & \"\'\" & strBrugernavn & \"\',\"
sql = sql & \"\'\" & strTal & \"\',\"
sql = sql & \"\'\" & strNummer & \"\',\"
sql = sql & \"\'\" & strUdbyder & \"\',\"
sql = sql & \"\'10\')\"
Conn.Execute(sql)
Response.write \"færdig!!\"

                                       
Conn.Close
Set Conn = Nothing
%>
Avatar billede rasmustest Nybegynder
20. november 2001 - 17:44 #48
tak for det!!!tusind!
Avatar billede rasmustest Nybegynder
20. november 2001 - 17:51 #49
kig lige:
http://www.eksperten.dk/spm/136345
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 dag 16:24 Google driller på MS Edge Af ErikHg i Browsere
I dag 15:48 søger pris på en bærbar Af dcedata1977 i PC
06/1119:03 iMac 2026 M6 10-core GPU (standart ell opdatering) Af LLG i Mac
06/1109:43 Vista Af susej14 i Andet software
05/1111:47 Printernavn i Enhedshåndtering er et andet end i Printere og Scannere Af Uvanga i Printere
White papers
Flere white papers »