Avatar billede cooltie Nybegynder
03. maj 2001 - 12:38 Der er 15 kommentarer

Kan ikke lægge data ind i database.....

Hej,

Jeg er ved at lave en bruger registreringsdatabase, men kan ikke få den til at ligge data ind i database....Hvad kan der være galt?
Her er min kode:

<%

  dim rsUsers
  set rsUsers = Server.CreateObject(\"ADODB.Recordset\")
  rsUsers.Open \"Kunder\", db, adOpenForwardOnly, adLockOptimistic, adCmdTable
  rsUsers.Filter = \"Telefonnr = \'\" & Request.Form(\"Tlf\") & \"\'\"
  if rsUsers.EOF then
    rsUsers.AddNew
    else
  Response.Redirect \"register.asp?brugerf=1\"
  end if
  rsUsers(\"Firmanavn\") = Request.Form(\"Firmanavn\")
  rsUsers(\"Email\") = Request.Form(\"email\")
  rsUsers(\"Password\") = Request.Form(\"password\")
  rsUsers(\"Adress1\") = Request.Form(\"Address1\")
  rsUsers(\"Adress2\") = Request.Form(\"Address2\")
  rsUsers(\"By\") = Request.Form(\"City\")
  rsUsers(\"Postnr\") = Request.Form(\"PostalCode\")
  rsUsers(\"Telefonnr\") = Request.Form(\"Tlf\")
  rsUsers(\"Land\") = Request.Form(\"Country\")
  rsUsers(\"Active\") = True
  rsUsers(\"LastLogin\") = Now
  rsUsers.Update
  dim strName, value
  for each sField in rsUsers.Fields
    strName = sField.Name
    value = sField.value
    Session(strName) = value
  next
  Session(\"bValidUser\") = True
  Response.Redirect \"registeredMenu.asp\"
%>
Avatar billede cooltie Nybegynder
03. maj 2001 - 12:40 #1
Alt data fra bruger bliver indtastet i en form...felterne ser sådan her ud!

<TR><TD>Firmanavn:</TD><TD><INPUT TYPE=\"Text\" NAME=\"Firmanavn\" VALUE=\"<%= Session(\"Firmanavn\") %>\" SIZE=\"40\"></TD></TR>
Avatar billede nute Nybegynder
03. maj 2001 - 12:41 #2
hvor er din SQL statement ?
Avatar billede dudal Nybegynder
03. maj 2001 - 12:44 #3
nute >> rsUsers.Open \"Kunder\" er nok til at åbne en tabel i en db.
Avatar billede nute Nybegynder
03. maj 2001 - 12:47 #4
grrrr...enda en shortcut fra MS :-( :-(

men så lærer man noe idag også :)
Avatar billede dudal Nybegynder
03. maj 2001 - 12:47 #5
set rsUsers = Server.CreateObject(\"ADODB.Recordset\")
  rsUsers.Open \"SELECT * FROM Kunder WHERE Telefonnr = \'\" & Request.Form(\"Tlf\") & \"\'\", db, 1,3
  if rsUsers.EOF then
    rsUsers.AddNew
    else
  Response.Redirect \"register.asp?brugerf=1\"
  end if


Prøv med det. Ellers, kan du ikke skrive fejl beskeden herind?

/dudal
Avatar billede cooltie Nybegynder
03. maj 2001 - 12:56 #6
Den giver følgende fejl:



HTTP 500 - Intern serverfejl
Internet Explorer
Avatar billede cooltie Nybegynder
03. maj 2001 - 12:57 #7
Kan det ikke have noget med felterne i databasen vel!
Min database conn. ser sådan her ud:
<%
  dim db
  set db = Server.CreateObject(\"ADODB.Connection\")
  db.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db1.mdb\") & \";\"

  if Session(\"bValidUser\") = True and Session(\"PersonID\") = \"\" then
    dim rsPersonIDCheck
    set rsPersonIDCheck = Server.CreateObject(\"ADODB.Recordset\")
    dim strSQL
    strSQL = \"SELECT PersonID FROM Person WHERE EMailAddress = \'\" & Session(\"EMailAddress\") & \"\';\"
    rsPersonIDCheck.Open strSQL, db
    if rsPersonIDCheck.EOF then
      Session(\"bValidUser\") = False
    else
      Session(\"PersonID\") = rsPersonIDCheck(\"PersonID\")
    end if
    rsPersonIDCheck.Close
  end if
%>   
Avatar billede dudal Nybegynder
03. maj 2001 - 13:04 #8
Står der ikke en mere detaljeret fjel længere nede på den side du får vist?
Avatar billede nute Nybegynder
03. maj 2001 - 13:06 #9
kan ikke se noe Connection objekt. er det enda en MS shortcut jeg ikke kjenner til som blir brukt her ?
Avatar billede cooltie Nybegynder
03. maj 2001 - 13:10 #10
Nej der er ikke flere fejlmeddelser end disse her!
Avatar billede sbm Nybegynder
03. maj 2001 - 13:37 #11
Nu er der vel skriverettigheder til database-filen?
Avatar billede cooltie Nybegynder
03. maj 2001 - 14:17 #12
Jo det er der.....
Avatar billede eagleeye Praktikant
03. maj 2001 - 14:28 #13
Som jeg husker det skal du havde adOpenKeyset i stedet for adOpenForwardOnly som Cursor Type:

rsUsers.Open \"Kunder\", db, adOpenKeyset, adLockOptimistic, adCmdTable
 
Avatar billede cooltie Nybegynder
03. maj 2001 - 14:48 #14
Jeg har fundet frem til at det er filteret som ikke virker....
Avatar billede eagleeye Praktikant
09. juni 2002 - 01:16 #15
Så luk lige ved selv at svare og acceptere det.
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester