Problème Script

Bonjour, je viens vers vous pour demander conseil, car ça fait pas mal de temps que je bloque régulièrement sur le même problème ou équivalent selon certain fichier, j'avais récupéré les scripts ici: https://codes-sources.commentcamarche.net/ Je suis moyennement débutant dans le milieu de l'ASP.

dans l'include j'ai mis:
<%
response.Buffer = true
'Chaîne de connection
'---------------------
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open "nomdemabasededonnée.mdb"

SQL1 = "SELECT * FROM Environement"
SQL2 = "SELECT * FROM Topic"
SQL3 = "SELECT * FROM Utilisateur"
SQL5 = "SELECT * FROM Post"
SQL6 = "SELECT * FROM Statut"

Set Rs1 = server.CreateObject("ADODB.Recordset")
Rs1.cursorlocation=3
Rs1.open SQL1,conn,3,3
Rs1.activeconnection = nothing

Set Rs2 = server.CreateObject("ADODB.Recordset")
Rs2.cursorlocation=3
Rs2.open SQL2,conn,3,3
Rs2.activeconnection = nothing

Set Rs3 = server.CreateObject("ADODB.Recordset")
Rs3.cursorlocation=3
Rs3.open SQL3,conn,3,3
Rs3.activeconnection = nothing


Set Rs5 = server.CreateObject("ADODB.Recordset")
Rs5.cursorlocation=3
Rs5.open SQL5,conn,3,3
Rs5.activeconnection = nothing

Set Rs6 = server.CreateObject("ADODB.Recordset")
Rs6.cursorlocation=3
Rs6.open SQL6,conn,3,3
Rs6.activeconnection = nothing

' set strEnvSQL = Server.CreateObject ("ADODB.recordset")
' set TopicRes = Server.CreateObject ("ADODB.recordset")
' set strTopicSQL = Server.CreateObject ("ADODB.recordset")
' set strTopicSQL = Server.CreateObject ("ADODB.recordset")
' set AdminRes = Server.CreateObject ("ADODB.recordset")
'set UserRes = Server.CreateObject ("ADODB.recordset")
' set PostRes = Server.CreateObject ("ADODB.recordset")



vision=Request.Cookies("..db")("vision")
If vision="Rs2" Then
Response.Cookies("..db")("vision") = "10"

End If

visdt=Request.Cookies("..db")("date")
vish=Request.Cookies("..db")("heure")

lheure = Hour(now)+Rs1("envdecal")
If Hour(now)+Rs1("envdecal")<0 Then
lheure = Hour(now)+Rs1("envdecal")+24
End If

lheure = lheure & ":" & Minute(now) & ":" & Second(now)
Response.Cookies("..db")("date") = date
Response.Cookies("..db")("heure") = lheure
Response.Cookies("..db").Expires = Now() + 365

actual=0

' <font face="Arial" size="2"><b><% =Rs2.("topicdesc") %>
<br>
puis pour les script actuelement modifier j'ai :
Default.asp:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'PostRes' ou 'Rs5'

If DateDiff("d",visdt,PostRes("postdt"))>0 Then
actual=1
Else


Ensuite
topic.asp

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'Rs2'
ligne erreur: <% =Rs2("topicdesc") %></font>
(dans la base de donnée j'ai mis comme exemple "test" dans la cellule de topicdesc)

Donc ou est l'erreur svp ?

Voilà pour le moment les 2 fichier qui me bloque, je pense qu'une fois que j'aurais la solution pour les 2 là, le reste ne devrais plus me poser de problème, merci d'avance.