Session

Har lidt problemer - Håber der er en derude der har den gyldne løsning.
Jeg er ved, at lave en side hvor man kan se stillingen for en fodboldpulje.

Microsoft OLE DB Provider for ODBC Drivers fejl '80040e07'

[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket.

/kimtoft_2003/fodbold/test2.asp, linje 10


<%
puljenr = Request("SAESON")

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open MM_connkimtoft_STRING

sql = "SELECT tblHOLD.tblSAESON, tblHOLD.tblHOLD FROM tblHOLD WHERE (((tblHOLD.tblSAESON)=" & puljenr & "));"
Set puljeopbygrs = myConn.Execute(sql)
If Not (puljeopbygrs.EOF Or puljeopbygrs.BOF) Then
puljeopbygrs.MoveFirst
Do While Not puljeopbygrs.EOF

holdnr = puljeopbygrs("HOLD")

' Sammentæller antal mål og point scoret på hjemmebane
sql = "SELECT tblKAMPE.tblHJEMME, Sum(tblKAMPE.tblMAALHJEMME) AS SumOftblMAALHJEMME, Sum(tblKAMPE.tblMAALUDE) AS SumOftblMAALUDE, Sum(tblKAMPE.tblPOINTHJEMME) AS SumOftblPOINTHJEMME FROM tblKAMPE WHERE (((tblKAMPE.tblSPILLET)=True) AND ((tblKAMPE.tblSAESON)=" & puljenr & ")) GROUP BY tblKAMPE.tblHJEMME HAVING (((tblKAMPE.tblHJEMME)=" & holdnr & "));"
Set kamptotal = myConn.Execute(sql)
   
    If Not (kamptotal.EOF Or kamptotal.BOF) Then
    insertSQL = "INSERT INTO tblSTILLING (tblSESSION, tblHOLD, tblMAALSCORET, tblMAALIMOD, tblPOINT) VALUES (" & Session.SessionID & ", " & holdnr & ", " & kamptotal.Fields.Item("SumOftblMAALHJEMME").Value & ", " & kamptotal.Fields.Item("SumOftblMAALUDE").Value & ", " & kamptotal.Fields.Item("SumOftblPOINTHJEMME").Value & ")"
    Else
    insertSQL = "INSERT INTO tblSTILLING (tblSESSION, tblHOLD, tblMAALSCORET, tblMAALIMOD, tblPOINT) VALUES (" & Session.SessionID & ", " & holdnr & ", 0, 0, 0)"
    End If
    myConn.Execute(insertSQL)   
kamptotal.Close()

' Deffinering af nøgleværdi for holdet
sql = "SELECT TOP 1 tblSTILLING.tblID FROM tblSTILLING ORDER BY tblSTILLING.tblID DESC;"
Set opstrs = myConn.Execute(sql)
If Not (opstrs.EOF Or opstrs.BOF) Then OTholdID = opstrs("tblID") Else OTholdID = 0
opstrs.Close()

' Sammentæller antal mål og point scoret på udebane
sql = "SELECT tblKAMPE.tblUDE, Sum(tblKAMPE.tblMAALHJEMME) AS SumOftblMAALHJEMME, Sum(tblKAMPE.tblMAALUDE) AS SumOftblMAALUDE, Sum(tblKAMPE.tblPOINTUDE) AS SumOftblPOINTUDE FROM tblKAMPE WHERE (((tblKAMPE.SPILLET)=True) AND ((tblKAMPE.SAESON)=" & puljenr & ")) GROUP BY tblKAMPE.tlbUDE HAVING (((tblKAMPE.tblUDE)=" & holdnr & "));"
Set kamptotal = myConn.Execute(sql)

    If Not (kamptotal.EOF Or kamptotal.BOF) Then
   
    'Registrer antal mål scoret på udebane
    sql = "SELECT tblMAALSCORET FROM tblSTILLING WHERE tblID = " & OTholdID
    Set tilaegrs = myConn.Execute(sql)
    If Not (tilaegrs.BOF Or tilaegrs.EOF) Then tillaegvar = tilaegrs("tblMAALSCORET") Else tillaegvar = 0
    myConn.Execute("UPDATE tblSTILLING SET tblMAALSCORET = " & (tillaegvar + kamptotal.Fields.Item("SumOftblMAALUDE").Value) & " WHERE tblID = " & OTholdID )
    tilaegrs.Close()
   
    'Registrer antal mål gået ind på udebane
    sql = "SELECT tblMAALIMOD FROM tblSTILLING WHERE tblID = " & OTholdID 
    Set tilaegrs = myConn.Execute(sql)
    If Not (tilaegrs.BOF Or tilaegrs.EOF) Then tillaegvar = tilaegrs("tblMAALIMOD") Else tillaegvar = 0
    myConn.Execute("UPDATE tblSTILLING SET tblMAALIMOD = " & (tillaegvar + kamptotal.Fields.Item("SumOftblMAALHJEMME").Value) & " WHERE tblID = " & OTholdID )
    tilaegrs.Close()
   
    'Registrer antal point på udebane
    sql = "SELECT tblPOINT FROM tblSTILLING WHERE tblID = " & OTholdID
    Set tilaegrs = myConn.Execute(sql)
    If Not (tilaegrs.BOF Or tilaegrs.EOF) Then tillaegvar = tilaegrs("tblPOINT") Else tillaegvar = 0
    myConn.Execute("UPDATE tblSTILLING SET tblPOINT = " & (tillaegvar + kamptotal.Fields.Item("SumOftblPOINTUDE").Value) & " WHERE tblID = " & OTholdID)
    tilaegrs.Close()
   
    End If
kamptotal.Close()
   
' Sammentæller antal vundende kampe på hjemmebane
sql = "SELECT Count(tblKAMPE.tblID) AS CountOftblID FROM tblKAMPE WHERE (((tblKAMPE.tblSAESON)=" & puljenr & ") AND ((tblKAMPE.tblSPILLET)=True) AND ((tblKAMPE.tblHJEMME)=" & holdnr & ") AND (([tblKAMPE]![tblMAALHJEMME]-[tblKAMPE]![tblMAALUDE])>0));"
Set kamptotal = myConn.Execute(sql)

    If Not (kamptotal.EOF Or kamptotal.BOF) Then
    myConn.Execute("UPDATE tblSTILLING SET tblVUNDNE = " & kamptotal.Fields.Item("CountOftblID").Value & " WHERE tblID = " & OTholdID)
    End If
kamptotal.Close()

' Sammentæller antal vundende kampe på udebane
sql = "SELECT Count(tblKAMPE.tblID) AS CountOftblID FROM tblKAMPE WHERE (((tblKAMPE.tblSAESON)=" & puljenr & ") AND ((tblKAMPE.tblSPILLET)=True) AND ((tblKAMPE.tblUDE)=" & holdnr & ") AND (([tblKAMPE]![tblMAALUDE]-[tblKAMPE]![tblMAALHJEMME])>0));"
Set kamptotal = myConn.Execute(sql)

    If Not (kamptotal.EOF Or kamptotal.BOF) Then
    sql = "SELECT tblVUNDNE FROM tblSTILLING WHERE tblID = " & OTholdID
    Set tilaegrs = myConn.Execute(sql)
    If Not (tilaegrs.BOF Or tilaegrs.EOF) Then tillaegvar = tilaegrs("tblVUNDNE") Else tillaegvar = 0
    myConn.Execute("UPDATE tblSTILLING SET tblVUNDNE = " & (tillaegvar + kamptotal.Fields.Item("CountOftblID").Value) & " WHERE tblID = " & OTholdID)
    tilaegrs.Close()
    End If
kamptotal.Close()

' Sammentæller antal uafgjorte kampe på hjemmebane
sql = "SELECT Count(tblKAMPE.tblID) AS CountOftblID FROM tblKAMPE WHERE (((tblKAMPE.tblSAESON)=" & puljenr & ") AND ((tblKAMPE.tblSPILLET)=True) AND ((tblKAMPE.tblHJEMME)=" & holdnr & ") AND (([tblKAMPE]![tblMAALHJEMME]-[tblKAMPE]![tblMAALUDE])=0));"
Set kamptotal = myConn.Execute(sql)

    If Not (kamptotal.EOF Or kamptotal.BOF) Then
    myConn.Execute("UPDATE tblSTILLING SET tblUAFGJORTE = " & kamptotal.Fields.Item("CountOftblID").Value & " WHERE tblID = " & OTholdID)
    End If
kamptotal.Close()

' Sammentæller antal uafgjorte kampe på udebane
sql = "SELECT Count(tblKAMPE.tblID) AS CountOftblID FROM tblKAMPE WHERE (((tblKAMPE.tblSAESON)=" & puljenr & ") AND ((tblKAMPE.tblSPILLET)=True) AND ((tblKAMPE.tblUDE)=" & holdnr & ") AND (([tblKAMPE]![tblMAALUDE]-[tblKAMPE]![tblMAALHJEMME])=0));"
Set kamptotal = myConn.Execute(sql)

    If Not (kamptotal.EOF Or kamptotal.BOF) Then
    sql = "SELECT tblUAFGJORTE FROM tblSTILLING WHERE tblID = " & OTholdID
    Set tilaegrs = myConn.Execute(sql)
    If Not (tilaegrs.BOF Or tilaegrs.EOF) Then tillaegvar = tilaegrs("tblUAFGJORTE") Else tillaegvar = 0
    myConn.Execute("UPDATE tblSTILLING SET tblUAFGJORTE = " & (tillaegvar + kamptotal.Fields.Item("CountOftblID").Value) & " WHERE tblSESSION = " & Session.SessionID & " And tblHOLD = " & holdnr)
    tilaegrs.Close()
    End If
kamptotal.Close()

' Sammentæller antal tabte kampe på hjemmebane
sql = "SELECT Count(tblKAMPE.tblID) AS CountOftblID FROM tblKAMPE WHERE (((tblKAMPE.tblSAESON)=" & puljenr & ") AND ((tblKAMPE.tblSPILLET)=True) AND ((tblKAMPE.tblHJEMME)=" & holdnr & ") AND (([tblKAMPE]![tblMAALHJEMME]-[tblKAMPE]![tblMAALUDE])<0));"
Set kamptotal = myConn.Execute(sql)

    If Not (kamptotal.EOF Or kamptotal.BOF) Then
    myConn.Execute("UPDATE tblSTILLING SET tblTABTE = " & kamptotal.Fields.Item("CountOftblID").Value & " WHERE tblID = " & OTholdID)
    End If
kamptotal.Close()

' Sammentæller antal tabte kampe på udebane
sql = "SELECT Count(tblKAMPE.tblID) AS CountOftblID FROM tblKAMPE WHERE (((tblKAMPE.tblSAESON)=" & puljenr & ") AND ((tblKAMPE.tblSPILLET)=True) AND ((tblKAMPE.tblUDE)=" & holdnr & ") AND (([tblKAMPE]![tblMAALUDE]-[tblKAMPE]![tblMAALHJEMME])<0));"
Set kamptotal = myConn.Execute(sql)

    If Not (kamptotal.EOF Or kamptotal.BOF) Then
    sql = "SELECT tblTABTE FROM tblSTILLING WHERE tblSESSION = " & Session.SessionID & " And tblHOLD = " & holdnr
    Set tilaegrs = myConn.Execute(sql)
    If Not (tilaegrs.BOF Or tilaegrs.EOF) Then tillaegvar = tilaegrs("tabt") Else tillaegvar = 0
    myConn.Execute("UPDATE tblSTILLING SET tblTABTE = " & (tillaegvar + kamptotal.Fields.Item("CountOftblID").Value) & " WHERE tblID = " & OTholdID)
    End If
kamptotal.Close()

' Sammentæller antal kampe i alt
'sql = "SELECT Count(tblkampe.kampid) AS CountOfkampid FROM tblkampe WHERE (((tblkampe.puljeid)=" & puljenr & ") AND ((tblkampe.udeholdid)=" & holdnr & ") AND ((tblkampe.spillet)=True)) OR (((tblkampe.puljeid)=" & puljenr & ") AND ((tblkampe.hjemmeholdid)=" & holdnr & ") AND ((tblkampe.spillet)=True));"
'Set kamptotal = myConn.Execute(sql)
'    If Not (kamptotal.EOF Or kamptotal.BOF) Then
'    myConn.Execute("UPDATE tbltblSTILLING SET antalkampe = " & kamptotal.Fields.Item("CountOfkampid").Value & " WHERE id = " & OTholdID)
'    End If
'kamptotal.Close()


puljeopbygrs.MoveNext
Loop
End If

myConn.Close()
%>