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: http://www.vbfrance.com/codes/FORUM-SITE-WEB-ASP-ABB_339.aspx. 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.