--- title: "Den vill inte hämta RS?" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/90106-den-vill-inte-hämta-rs" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Meng" published: "2003-11-11T13:20:59.000Z" updated: "2003-11-11T13:35:11.000Z" replies: 2 views: 160 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/90106-den-vill-inte-hämta-rs" --- # Den vill inte hämta RS? ## #1 — Meng, 2003-11-11T13:20Z Hej jag vill göra så lösen o användar namn hämtas ur databasen, så folk senare kan byta lösen o användarnamn.. Detta är koden: ``` <%Response.Buffer=True Response.Expires=0 Session.Lcid = 1053 Response.Clear strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& _ Server.MapPath("db/top.mdb") Set objConn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") objConn.open strConnect SQL = "SELECT * FROM info" rs.Open SQL, objConn Losen1 = "[B]<%=RS("losen1")%>[/B] " Losen2 = "[B]<%=RS("losen2")%>[/B] " Secure = "UghBugh" %> Admin
admin Afd
<%If Request.QueryString("do") = "" Then%> <%If Session("mess") <> "" Then%> <%End If%>
Bruger navn
Password
 
<%=Session("mess")%><%Session("mess") = ""%>
<%End If If Request.QueryString("do") = "check" Then If Request.Form("admin1") = Losen1 AND Request.Form("admin2") = Losen2 Then Session("sidor") = Secure Session.TimeOut = 40 Response.Redirect "admin_index.asp?do=inne" Else Response.Redirect "admin_index.asp" End If End If If Request.QueryString("do") = "inne" Then%>
Afdelings navn
Afdelings sider
<% End If Set Conn = Nothing%>
``` Men jag får bara felmeddelande hela tiden: ``` Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0401' Slut på sætning var ventet /test/okonomi/admin_index.asp, linje 19 Losen1 = "<%=RS("afdnavn") -----------------^ ``` Antar att det har något att göra med Att objektet inte är öppet eller något? Jag behöver hjälp iaf, för detta är långt över det lilla jag kan om asp Permalänk: https://www.webforum.nu/p/90106 ## #2 — JAreMANNEN, 2003-11-11T13:23Z ``` Losen1 = RS("losen1") Losen2 = RS("losen2") ``` Permalänk: https://www.webforum.nu/p/1203920 ## #3 — Meng, 2003-11-11T13:35Z Oj slarvfel där.. tänkte aldrig på det, tack så mycket :OO Permalänk: https://www.webforum.nu/p/1203929 --- Tråden på webben: https://www.webforum.nu/amne/asp/90106-den-vill-inte-hämta-rs