Modification d'une page

Signaler
Messages postés
8
Date d'inscription
jeudi 5 décembre 2002
Statut
Membre
Dernière intervention
7 mai 2005
-
Messages postés
1642
Date d'inscription
samedi 6 novembre 2004
Statut
Modérateur
Dernière intervention
28 avril 2011
-
Bonjour

j'ai recupéré un forum en asp, il est en anglais et j'essaye de le traduire en français, mais il y a une page que je ne peux pas modifier. si l'on change la moindre lettre sur cette page elle ne fonctionne plus.
que peut il se passer??

le code source:

<!--#include file="opendb.asp"-->
<html>
<head>
<title>Discussions</title>
</head>



<link rel=stylesheet href=index.css>
<center>Discussions</center>

<!--#include file="menubar.asp"-->
<table border=0 cellspacing=1 width=100% >, http://<% Response.Write Request.ServerVariables(\"Server_Name\") & Request.ServerVariables(\"Script_Name\") & \"?\" & Request.ServerVariables(\"Query_String\") & \"'>Email this thread to a friend
</td>\"

function HTMLFormat(sInput)
dim sAns
sAns = replace(sInput, \" \", \"&nbsp; \")
sAns = replace(sAns, chr(34), \"&quot;\")
sIllStart = \"<\" & chr(37)
sIllEnd = chr(37) & \">\"
if instr(sAns, sIllStart) > 0 or instr(sAns, sIllEnd) > 0 then
sAns = replace(sAns, \"<\" & chr(37), \"\")
sAns = replace(sAns, chr(37) & \">\", \"\")
bIllegal = true
end if
sAns = replace(sAns, \">\", \"&gt;\")
sAns = replace(sAns, \"<\", \"&lt;\")
sAns = replace(sAns, vbcrlf, \"
\")
sAns = replace(sAns, \"[img]\", \"\")
sAns = replace(sAns, \"[b]\", \"\")
sAns = replace(sAns, \"/b\", \"\")
sAns = replace(sAns, \"[i]\", \"\")
sAns = replace(sAns, \"/i\", \"\")
sAns = replace(sAns, \"[u]\", \"\")
sAns = replace(sAns, \"/u\", \"\")
sAns = replace(sAns, \"
\", \"Quoted text:
<hr>\")
sAns = replace(sAns, \"
\", \"<hr>\")
sAns = replace(sAns, \"[sub]\", \"<sub>\")
sAns = replace(sAns, \"/sub\", \"</sub>\")
sAns = replace(sAns, \"[sup]\", \"<sup>\")
sAns = replace(sAns, \"/sup\", \"</sup>\")
sAns = replace(sAns, \"[center]\", \"<center>\")
sAns = replace(sAns, \"/center\", \"</center>\")
sAns = replace(sAns, \"[1]\", \"\")
sAns = replace(sAns, \"/1\", \"
\")
sAns = replace(sAns, \"[2]\", \"\")
sAns = replace(sAns, \"/2\", \"
\")
sAns = replace(sAns, \"[3]\", \"\")
sAns = replace(sAns, \"/3\", \"
\")
sAns = replace(sAns, \"[4]\", \"\")
sAns = replace(sAns, \"/4\", \"
\")
sAns = replace(sAns, \"[list]\", \"<li>\")
sAns = replace(sAns, \"[url=\", \"\")
sAns = replace(sAns, \"]\", \" target=_blank>\")
sAns = replace(sAns, \":)\", \"\")

HTMLFormat = sAns
end function

Dim rsMsgs, color, flag, count
strSQL \"SELECT Msgs.*, Topic.FForumJoinID, Topic.FID, Topic.FSubject, Topic.FLocked, Users.FUserID, Users.FUserName, Users.FAccess, Users.FNickName, Users.FEmail, Users.FICQ, Users.FAIM, Users.FJoined, Users.FNumOfPosts, Users.FHomePage, Users.FSignature, Users.FShowEmail FROM Topic INNER JOIN (Msgs LEFT JOIN Users ON Msgs.FMsgName Users.FUserID) ON Topic.FID = Msgs.FTopicID WHERE FID=\" & Request.Querystring(\"FTopicID\") & \" ORDER BY FMsgDate ASC\"
set rsMsgs = Server.CreateObject(\"ADODB.Recordset\")

flag = 0
count = 0

rsMsgs.Open strSQL, objConn

Session(\"FID\") = rsMsgs(\"FTopicID\")

If Not rsMsgs.EOF Then

Do While Not rsMsgs.EOF

sOrigMessage = HTMLFormat(rsMsgs(\"FMsg\"))

If rsMsgs(\"FSignature\") <> \"\" Then
sOrigSig = HTMLFormat(rsMsgs(\"FSignature\"))
End If

if flag=0 then
flag=1
color=\"#ffffff\"
else
flag=0
color=\"#eeeeee\"
end if
Response.Write _

\"<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>\" & _
\" \" & _
\" ----
\" & _
\" " & _
" <TABLE cellSpacing=1 cellPadding=3 width=100% align=center border=0>" & _
" " & _
" ----
" & _
", \" & _
\" <TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>\" & _
\" \" & _
\" ----
\" & _
\" "
If CDate(Request.Cookies("PMBVisit")("LastVisit")) <= CDate(rsMsgs("FMsgDate")) Then
Response.Write ""
Else
Response.Write ""
End If
Response.Write _
", \" & _
\" "
If count >= 1 Then
Response.Write "Re: "
End If
Response.Write _
rsMsgs("FSubject") & ", \" & _
\" Date Posted: " & rsMsgs("FMsgDate") & _
"
</TD></TR>" & _
" <TR bgColor=#333333>" & _
" <TD vAlign=top width=20% >"


If rsMsgs("FMsgProfile") = True Then
Response.Write rsMsgs("FNickName")
Else
Response.Write rsMsgs("FMsgGuest")
End If


Response.Write "
"



If rsMsgs("FMsgProfile") = True Then


If rsMsgs("FNumOfPosts") >= 0 AND rsMsgs("FNumOfPosts") < 50 Then
Response.Write "Newbie Member
= 50 AND rsMsgs("FNumOfPosts") < 100 Then
Response.Write "Jr. Member
"
Elseif rsMsgs("FNumOfPosts") >= 100 AND rsMsgs("FNumOfPosts") < 150 Then
Response.Write "Member
= 150 AND rsMsgs("FNumOfPosts") < 200 Then
Response.Write "Sr. Member
"
Elseif rsMsgs("FNumOfPosts") >= 200 Then
Response.Write "Master Member
" & _
" <TD vAlign=top>"
Else
Response.Write _
"Guest
</td>" & _
"<TD vAlign=top>"
End If
Response.Write ""


If rsMsgs("FMsgEmail") <> "" Then If rsMsgs("FShowEmail") True OR rsMsgs("FMsgProfile") False Then
Response.Write "Email "


' Response.Write "Email "


If rsMsgs("FMsgProfile") = True Then
Response.Write rsMsgs("FNickName")
Else
Response.Write rsMsgs("FMsgGuest")
End If


Response.Write ""
End If


If rsMsgs("FMsgProfile") = True Then
Response.Write " | View Profile"
Response.Write " | "
End If
If rsMsgs("FMsgProfile") = True AND rsMsgs("FHomePage") <> "" Then
Response.Write " | "
End If
End If If Session("Admin") True OR (Session("Mod") rsMsgs("FForumJoinID")) Then
Response.Write " | Delete Message"
End If
Response.Write "
"


Response.Write _
" <HR SIZE=2>" & _
" " & sOrigMessage


If rsMsgs("FMsgProfile") = True AND rsMsgs("FSignature") <> "" Then
Response.Write "

================
" & sOrigSig
End If


Response.Write "
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>"
Response.Write "</tr></form>"


count = count + 1
rsMsgs.MoveNext


Loop
Response.Write "</table>
"


rsMsgs.MoveFirst


Response.Write _
"\" & _
\""

If Session("Admin") = True OR (Session("Mod") = rsMsgs("FForumJoinID"))Then
Response.Write "Delete Topic | "
End If

If (Session("Admin") = True OR (Session("Mod") = rsMsgs("FForumJoinID"))) AND rsMsgs("FLocked") = False Then
Response.Write "Lock Topic"
Elseif (Session("Admin") = True OR (Session("Mod") = rsMsgs("FForumJoinID"))) AND rsMsgs("FLocked") = True Then
Response.Write "Unlock Topic"
End If

Response.Write "
"


Else
Response.Write "<center>No Messages Listed
</center>"
End If


Response.Write _
"</table>" & _
"</td>" & _
"</tr>" & _
"</table>"


If rsMsgs("FLocked") = False Then
Response.Write _
"

" & _
"Add a message" & _
"<form action=addmsg.asp method=post>" & _
"\"

If Request.Cookies(\"PMBVisit\")(\"UserName\") <> \"\" Then
Response.Write \"----
" & Request.Cookies("PMBVisit")("UserName") & " (" & Request.Cookies("PMBVisit")("NickName") & "), \"
Response.Write \"----
" & Request.Cookies("PMBVisit")("Email") & ", \"
Else
Response.Write \"----
Your Name:, , \"
Response.Write \"----
Email Address:, , \"
End If

Response.Write _
\"----Message:, <TEXTAREA ROWS 4 COLS 25 name=FMsg></TEXTAREA>, \" & _
\"----
, \" & _
\"\" & _
\"\" & _
\"\" & _
"
" & _
"</form>"


Else
Response.Write "<center>This topic is locked, no more replies accepted</center>"
End If


Response.Write _
"" & _
"Back to main board
"


rsMsgs.Close
set rsMsgs = Nothing


objConn.Close
set objConn = Nothing
%>
<!--#include file="footer.asp"-->

</html>

Merci.

farfadet

1 réponse

Messages postés
1642
Date d'inscription
samedi 6 novembre 2004
Statut
Modérateur
Dernière intervention
28 avril 2011
3
Salut

Qu'est ce que tu veux dire par : "si on change la moindre lettre..."

Si tu remplace :
..."<tr><td>Email Address:</td><td>...
par :
..."<tr><td>Adresse Email:</td><td>...
ça marche

Nurgle
C'est une grande folie que de vouloir être sage tout seul !