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
Annonceindlæg tema
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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") &"'
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
27. april 2004 - 09:18
#3
Ok... :) Bare lige nysgerrig... Virker det uden de der ''?
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
27. april 2004 - 09:21
#5
Hehe ok... :D
28. april 2004 - 18:42
#6
Kurser inden for grundlæggende programmering