hamta = "SELECT * FROM mess WHERE visa=ja"

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Provider = "Microsoft.Jet.OLEDB.4.0"
Connection.ConnectionString = "Data Source=" & Server.MapPath("mess.mdb")
Connection.Open
set rs = connection.execute("SELECT * FROM mess WHERE visa='ja'")
while not rs.eof
  response.write rs("mess") & "<br>"
  rs.movenext
wend
rs.close
connection.close

Du måste kanske ändra

Server.MapPath("mess.mdb")

beroende på var din databas ligger.

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

[Redigerat av LarsG den 16 jan 2002]

set objConn = server.createobject("adodb.connection")
objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("mess.mdb")&""
strSQL = "SELECT * FROM mess WHERE visa = 'ja'"
Set objRS = objConn(strSQL)
If objRS.EOF Then
'Det fanns inga poster
Else
Do until objRS.EOF
'Skriv ut posterna
objRS.Movenext
Loop
End If
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

Detta är en access koppling, hoppas den funkar :)

mvh icaaq

------------------
-::|ic@@q|::-

[Redigerat av icaaq den 16 jan 2002]

[Redigerat av icaaq den 16 jan 2002]

Jag löste det på ett annat sätt..

Jag ändrade datatypen i fältet visa till Ja/Nej och sedan:

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/mess.mdb")
Set RecSet = Server.CreateObject("ADODB.RecordSet")

visaja = "SELECT * FROM mess WHERE visa=true"
RecSet.Open visaja, Connect, AdOpenStatic

If RecSet.EOF Then
Response.Write "Inga mess"
Else
Do Until RecSet.EOF
' massa kod för utskrivning
RecSet.MoveNext
Loop

RecSet.Close
Connect.Close

Set RecSet = Nothing
Set Connect = Nothing
%>

------------------
//Hulth

Ett tips..

Ändra Connect till Conn, slipper du skriva lika mycket! =)

------------------
Mikael Tyrsén
</www.tyrsen.nu>
</mikael@tyrsen.nu>

[Redigerat av Jacek den 17 jan 2002]