Antal kompisar

hej varför funkar inte denna kod???
står att man har 0 som kompisar:

<% 
Set conn1 = Server.CreateObject("ADODB.Connection") 
conn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/kompisar.mdb")&";" 
strsql1 = "select count(*) as kompisar from kompis where namn = '" & session("id") & "'" 
set rs=conn1.execute(strsql1) 
response.write ""&rs("kompisar")%>

[Redigerat av hacktheplanet den 04 dec 2001]

Du har kanske inte lagt till någon kompis så då blir det ju 0 kompisar ;)

------------------
Fem miljoner fluggor kan inte ha fel, ät bajs.

jo jag har lagt till en kompis

så här ser databasen ut:

ID ID1 ID2 namn
32 3 5 bla bla bla
34 3 10 Blablabla

ID=ID
ID1= min ID
ID2=kompisen
Namn= namn på kompisen

Vad innehåller Session("id")?

strsql1 = "select count(*) as kompisar from kompis where namn = '" & session("id") & "'"

Skall inte villkoret sitta på ID eller ID1? Jag vet inte riktigt hur du vill att utsökningen ska göras, men...

Mvh,

------------------
Don't panic!

id = han som e inloggad

Vad? ett namn? Ett id-nummer från databasen? Ska du verkligen jämföra mot namn-fältet i databasen?

Skriv ut din SQL-fråga med response.write också, så du kan se hur den ser ut i färdigt skick.

------------------
Don't panic!

öö fattar inte
hitta koden färdig nånstans

så här ser min kompislista ut:

<%
Set Connect2 = Server.CreateObject("ADODB.Connection") 
Connect2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";pwd=losen"

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

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/kompisar.mdb")&";"

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

Addera = "Select * From kompis Where ID1 = "&Session("id") 

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>

Det är svårt för mig att veta hur din kod funkalerar när du inte vet det själv, men...

Prova detta:

strsql1 = "select count(*) as kompisar from kompis where ID1 = " & session("id")

Gissar dock bara. Resten enligt koden i ditt första inlägg.

Mvh,

------------------
Don't panic!

har provat men det gick inte

Ok, då försöker vi så här:

<% 
Set conn1 = Server.CreateObject("ADODB.Connection") 
conn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/kompisar.mdb")&";" 
strsql1 = "select count(*) as kompisar from kompis where namn = '" & session("id") & "'" 
[b]Response.Write strsql1[/b]
set rs=conn1.execute(strsql1) 
response.write ""&rs("kompisar")%>

Du borde nu få en utskrift av den färdiga SQL-frågan. Hur ser den ut?

------------------
Don't panic!

japp nu funkar det konstigt

råka spara över en annan fil hehe

Kanoners! :D

Läxa till nästa gång: Spara rätt fil! ;)

Mvh,

------------------
Don't panic!

heheheh juste spara rätt fil ;-)

[Redigerat av antar den 04 dec 2001]

[Redigerat av antar den 24 jan 2002]

så kan det gå!!

[Redigerat av jboy_87 den 24 jan 2002]