Pust!

profil = "SELECT * FROM tabellen WHERE Licens=<%=Session("Licens")%>

Hur ska jag skriva om ovanstående för att få det att funka.
Den ska alltså hämta från tabbellen där fältet licens är lika med Sessionen Licens.

<%= används för att skriva ut saker på sida, dvs. det motsvarar response.write, och det är ju inte det du vill ha här.

profil = "SELECT * FROM tabellen WHERE Licens=" & Session("Licens")

eller..

profil = "SELECT * FROM tabellen WHERE Licens='" & Session("Licens") & "'"

om Licens inte är ett tal

------------------
/emission
If you see someone without a smiley, give them your colon.

Okej , men nu fick jag ett typblandningsfel på rad 9
Här följer koden. Du kan ju kolla om nått sr felaktigt ut..

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=D:\Inetpub\wwwroot\login\clipper.mdb"

Set RecSet = Server.CreateObject("ADODB.Recordset")

profil = "SELECT \* FROM tabellen WHERE Licens=" & Session("Licens")

RecSet.Open profil, Connect, adOpenStatic %\>

<%Do Until RecSet.EOF %>

<%=RecSet("Licens")%>
<%=RecSet("Losenord")%>
<%=RecSet("adress")%>
<%=RecSet("postnr")%>
<%=RecSet("ort")%>
<%=RecSet("telefon")%>
<%=RecSet("mobil")%>
<%=RecSet("fax")%>
<%=RecSet("epost")%>

<% RecSet.MoveNext
Loop
RecSet.Close %>

Svaret står i mitt förra inlägg...

...eller vad är det för datatyp på Licens egentligen?

[Redigerat av emission den 11 sep 2001]

Okej , hur ska jag bära mig åt för att justera det då? Är inte så haj på detta än =)

datatyp =text

I så fall står svaret i mitt första inlägg..

------------------
/emission
If you see someone without a smiley, give them your colon.

Okej , kan du inte berätta precis hur jag ska skriva . Jag klistrade in det i ovanstende inlägget men hur jag än bär mig åt så får jag felmeddelande. Hopplöst.

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=D:\Inetpub\wwwroot\login\clipper.mdb"

Set RecSet = Server.CreateObject("ADODB.Recordset")

profil = "SELECT * FROM tabellen WHERE Licens='" & Session("Licens") & "'"

RecSet.Open profil, Connect, adOpenStatic %>

<%Do Until RecSet.EOF %>

<%=RecSet("Licens")%>
<%=RecSet("Losenord")%>
<%=RecSet("adress")%>
<%=RecSet("postnr")%>
<%=RecSet("ort")%>
<%=RecSet("telefon")%>
<%=RecSet("mobil")%>
<%=RecSet("fax")%>
<%=RecSet("epost")%>

<% RecSet.MoveNext
Loop
RecSet.Close %>

Om nu datatypen för Licens var text.

------------------
~~~~~~~~~~~~~~~~~~~~
Silvio Fumei
silvio@fumei.net
www.fumei.net
~~~~~~~~~~~~~~~~~~~~

Tackar Silvio. Tur att man inte är den enda nattugglan när man behöver hjälp =)

Nu har jag fått det att funka så att den hämtar från alla fält där licens=session(licens) men nu vill jag ha en update funktion där användaren själv kan uppdatera sin info. Hur bär jag mig åt?

Skapa ett formulär med ett textfält för varje kolumn du vill kunna uppdatera

<FORM ACTION=update.asp METHOD=POST>
<INPUT TYPE=TEXT NAME=LosenOrd VALUE='<%=RS("Losenord")%>'> 
'andra fält
<INPUT TYPE=SUBMIT>

på sidan update.asp

set connect = server.createobject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=D:\Inetpub\wwwroot\login\clipper.mdb"
sql = "update tabellen set losenord = '"
sql = sql & request.form("losenord") & "',"
sql = sql & "adress = '" & request.form("adress") & "'"
sql = sql & " where licens = '" & session("licens") & "'"
connect.execute sql,,128

Du får anpassa så att det stämmer med de kolumner du vill kunna uppdatera

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 11 sep 2001]