Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("[blue]databas.mdb[/blue]")
Set rs = Connection.Execute("SELECT [blue]falt[/blue] FROM [blue]TABELL[/blue] WHERE [blue]falt[/blue] = '" & Request.Form("[blue]falt[/blue]") "'")
If NOT rs.EOF Then
Response.Write"Värdet fanns!"
Else
Response.Write"Värdet fanns inte!"
End If
rs.Close
Set rs = Nothing
Connection.Close
Set Connection = Nothing
/Mika3l