Om inte...

sql="select gjorda,inslappta from post"
set rs=connect.execute(sql)

if rs("gjorda") < rs("inslappta") then
  response.write "  "
else
  'kod 
end if

denn kod fungerar inte, varför?

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

SQL = "SELECT Gjorda, Inslappta FROM Post"
Set Rs = Connect.Execute(SQL)

If rs("gjorda") < rs("inslappta") Then
Response.Write(" ")
Else

If Request.QueryString("typ") = "alla" Then
strSQL = "SELECT Gjorda, Inslappta, (Gjorda - Inslappta) AS Diff FROM Post ORDER BY 3 DESC"
Set Rs = Conn.Execute(strSQL)
ElseIf Request.QueryString("typ") = "sok" Then
strSQL = "SELECT Gjorda, Inslappta, (Gjorda - Inslappta) AS Diff FROM Post WHERE Motstandare LIKE '%" & Request.Form("sok") & "%' ORDER BY 3 DESC"
Set Rs = Conn.Execute(strSQL)
Else
strSQL = "SELECT Gjorda, Inslappta, (Gjorda - Inslappta) AS Diff FROM Post WHERE typ = '" & Request.QueryString("typ") & "' ORDER BY 3 DESC"
Set Rs = Conn.Execute(strSQL)
End if
Response.Write("" & rs("gjorda") & " - " & rs("inslappta") & "")
Rs.Close : Set Rs = Nothing
Conn.Close : Set Conn = Nothing

End if
%>

Din anslutning till databasen heter conn så ändra

Set Rs = Connect.Execute(SQL)

till

Set Rs = Conn.Execute(SQL)

Och du har ett recordset som heter rs längre ner i koden så byt namn på det första till

Set Rs1 = Conn.Execute(SQL)

If rs1("gjorda") < rs1("inslappta") Then

trots ändringar som du sa står det: Största vinst 2 - 4

jag löste det ;)