Avatar billede mireigi Novice
27. april 2004 - 08:51 Der er 4 kommentarer og
2 løsninger

Data type mismatch - Kan ikke se fejlen

Nogen der lige hurtigt kan fortælle mig hvad der er galt her???

<% if mode = "Send" then %>
<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Database/Database.mdb") & ";UID=admin;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM Brugere WHERE Kunde_Nr = '" & Session("login") & "'"
    rs.Open strSQL, Conn2, adOpenKeyset, adLockOptimistic

          rs("Password") = Request.form("Password")
          rs("Navn") = Request.form("Navn")
          rs("Adresse") = Request.form("Adresse")
          rs("Post_Nr") = Request.form("Post_Nr")
          rs("By") = Request.form("By")
          rs("Telefon_Nr") = Request.form("Telefon_Nr")
          rs("Fax_Nr") = Request.form("Fax_Nr")
          rs.Update

    rs.Close
    Set rs = Nothing

Conn2.Close
set Conn2 = Nothing

Response.Redirect("Profile.asp?mode=Edit")

end if
%>

/MiReiGi
Avatar billede cronck Nybegynder
27. april 2004 - 09:02 #1
Skal der ikke ' ' udenom tal?

Prøv med:
rs("Telefon_Nr") = '"& Request.form("Telefon_Nr") &"'
rs("Fax_Nr") = '"& Request.form("Fax_Nr") &"'
Avatar billede mireigi Novice
27. april 2004 - 09:15 #2
Ved ikke helt hvordan, men fik løst problemet med et par omformuleringer:

<% if mode = "Send" then %>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM Brugere WHERE Kunde_Nr = " & Session("login")
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

          rs("Password") = Request.form("Password")
          rs("Navn") = Request.form("Navn")
          rs("Adresse") = Request.form("Adresse")
          rs("Post_Nr") = Request.form("Post_Nr")
          rs("By") = Request.form("By")
          rs("Telefon_Nr") = Request.form("Telefon_Nr")
          rs("Fax_Nr") = Request.form("Fax_Nr")
          rs.Update

        rs.Close
    Set rs = Nothing

Response.Redirect("Profile.asp?mode=Edit")

end if
%>

cronck -> Smider du ikke lige et svar? Så får du point for at prøve at hjælpe...

/MiReiGi
Avatar billede cronck Nybegynder
27. april 2004 - 09:18 #3
Ok... :)
Bare lige nysgerrig... Virker det uden de der ''?
Avatar billede mireigi Novice
27. april 2004 - 09:20 #4
Ja, det virker fint... Fandt også lige ud af, at jeg skulle ha' flyttet DB'en til den rigtige mappe for at kunne skrive til den...

/MiReiGi
Avatar billede cronck Nybegynder
27. april 2004 - 09:21 #5
Hehe ok... :D
Avatar billede bernie Nybegynder
28. april 2004 - 18:42 #6
mireigi smid lige et svar http://www.eksperten.dk/spm/491596
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