Soucie de script forum Abb

Question

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 ' <% =Rs2.("topicdesc") %> 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") %> (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.

garithos · Answer

Je me permet de remonter mon sujet, pour savoir si quelqu'un peu m'aider, je continue à galérer.

Merci d'avance.

garithos · Answer

Y a t'il quelqu'un d'aimable pour m'aidez svp  , désolé de le redemander une 2ème fois, mais j'ai vraiment besoin que quelqu'un me dise comment résoudre mon problème

Soucie de script forum Abb

2 réponses

Votre réponse

Discussions similaires