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>
<body>
<link rel=stylesheet href=index.css>
<center><font face=Arial size=4>Discussions</font></center><br>
<!--#include file="menubar.asp"-->
<table border=0 cellpadding=0 cellspacing=0 width=100% >
<tr>
<td width=100% valign=top><table border=0 cellspacing=1 width=100% >
<td align=right><font size=1><a href='mailto:?Subject=A message from the forum&Body=Here is a message from the forum that I thought you might find interesting:
http://<% Response.Write Request.ServerVariables("Server_Name") & Request.ServerVariables("Script_Name") & "?" & Request.ServerVariables("Query_String") & "'>Email this thread to a friend</a></font></td>"
function HTMLFormat(sInput)
dim sAns
sAns = replace(sInput, " ", " ")
sAns = replace(sAns, chr(34), """)
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, ">", ">")
sAns = replace(sAns, "<", "<")
sAns = replace(sAns, vbcrlf, "<BR>")
sAns = replace(sAns, "[img]", "<img src=")
sAns = replace(sAns, "[/img]", ",",">")
sAns = replace(sAns, "[b]", "<b>")
sAns = replace(sAns, "[/b]", "</b>")
sAns = replace(sAns, "[i]", "<i>")
sAns = replace(sAns, "[/i]", "</i>")
sAns = replace(sAns, "[u]", "<u>")
sAns = replace(sAns, "[/u]", "</u>")
sAns = replace(sAns, "[quote]", "<blockquote><font size=1>Quoted text:</font><hr>")
sAns = replace(sAns, "[/quote]", "<hr></blockquote>")
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]", "<font size=1>")
sAns = replace(sAns, "[/1]", "</font>")
sAns = replace(sAns, "[2]", "<font size=2>")
sAns = replace(sAns, "[/2]", "</font>")
sAns = replace(sAns, "[3]", "<font size=3>")
sAns = replace(sAns, "[/3]", "</font>")
sAns = replace(sAns, "[4]", "<font size=4>")
sAns = replace(sAns, "[/4]", "</font>")
sAns = replace(sAns, "[list]", "<li>")
sAns = replace(sAns, "[url=", "<a href=")
sAns = replace(sAns, "[email=", "<a href=mailto:")
sAns = replace(sAns, "[/url]", ",","</a>")
sAns = replace(sAns, "]", " target=_blank>")
sAns = replace(sAns, ":)", "<img src=set16.gif>")
sAns = replace(sAns, ":(", "<img src=set17.gif>")
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>" & _
" <TBODY>" & _
" <TR>" & _
" <TD>" & _
" <TABLE cellSpacing=1 cellPadding=3 width=100% align=center border=0>" & _
" <TBODY>" & _
" <TR>" & _
" <TD colSpan=2>" & _
" <TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>" & _
" <TBODY>" & _
" <TR>" & _
" <TD width=10>"
If CDate(Request.Cookies("PMBVisit")("LastVisit")) <= CDate(rsMsgs("FMsgDate")) Then
Response.Write "<IMG src=SmallNew.gif border=0 alt='New since you last logged on'>"
Else
Response.Write "<IMG src=SmallMessage.gif border=0>"
End If
Response.Write _
"</TD>" & _
" <TD align=left width=50% ><FONT " & _
" size=1><B>"
If count >= 1 Then
Response.Write "Re: "
End If
Response.Write _
rsMsgs("FSubject") & "</B></FONT></TD>" & _
" <TD align=right width=50% ><FONT " & _
" size=1><B>Date Posted: </B><FONT " & _
" size=2>" & rsMsgs("FMsgDate") & _
" </FONT></FONT></TD></TR></TBODY></TABLE></TD></TR>" & _
" <TR bgColor=#333333>" & _
" <TD vAlign=top width=20% ><B><FONT " & _
" size=2>"
If rsMsgs("FMsgProfile") = True Then
Response.Write rsMsgs("FNickName")
Else
Response.Write rsMsgs("FMsgGuest")
End If
Response.Write "</B></FONT><br>"
If rsMsgs("FMsgProfile") = True Then
If rsMsgs("FNumOfPosts") >= 0 AND rsMsgs("FNumOfPosts") < 50 Then
Response.Write "<font size=1>Newbie Member<br><img src=star2.gif>"
Elseif rsMsgs("FNumOfPosts") >= 50 AND rsMsgs("FNumOfPosts") < 100 Then
Response.Write "<font size=1>Jr. Member<br><img src=star2.gif><img src=star2.gif>"
Elseif rsMsgs("FNumOfPosts") >= 100 AND rsMsgs("FNumOfPosts") < 150 Then
Response.Write "<font size=1>Member<br><img src=star2.gif><img src=star2.gif><img src=star2.gif>"
Elseif rsMsgs("FNumOfPosts") >= 150 AND rsMsgs("FNumOfPosts") < 200 Then
Response.Write "<font size=1>Sr. Member<br><img src=star2.gif><img src=star2.gif><img src=star2.gif><img src=star2.gif>"
Elseif rsMsgs("FNumOfPosts") >= 200 Then
Response.Write "<font size=1>Master Member<br><img src=star2.gif><img src=star2.gif><img src=star2.gif><img src=star2.gif><img src=star2.gif>"
End If
Response.Write _
"<br><br>" & _
" <b>Joined:</b> " & rsMsgs("FJoined") & "<br><br>" & _
" <b>Posts:</b> " & rsMsgs("FNumOfPosts") & "</font></TD>" & _
" <TD vAlign=top>"
Else
Response.Write _
"<font size=1>Guest</font></td>" & _
"<TD vAlign=top>"
End If
Response.Write "<FONT size=1>"
If rsMsgs("FMsgEmail") <> "" Then
If rsMsgs("FShowEmail") = True OR rsMsgs("FMsgProfile") = False Then
Response.Write "<a href='mailto:" & rsMsgs("FMsgEmail") & "'>Email "
' Response.Write "<A href=mailto:" & rsMsgs("FMsgEmail") & ">Email "
If rsMsgs("FMsgProfile") = True Then
Response.Write rsMsgs("FNickName")
Else
Response.Write rsMsgs("FMsgGuest")
End If
Response.Write "</A>"
End If
If rsMsgs("FMsgProfile") = True Then
Response.Write " | <a href=profile.asp?UserID=" & rsMsgs("FUserID") & ">View Profile</a>"
Response.Write " | <a href=searchposts.asp?UserID=" & rsMsgs("FUserID") & "><img src=searchpost.gif border=0 alt='Search Posts'></a>"
End If
If rsMsgs("FMsgProfile") = True AND rsMsgs("FHomePage") <> "" Then
Response.Write " | <a href=http://" & rsMsgs("FHomePage") & "><img src=home.gif border=0></a>"
End If
End If
If Session("Admin") = True OR (Session("Mod") = rsMsgs("FForumJoinID")) Then
Response.Write " | <a href=delmsg.asp?TopicID=" & rsMsgs("FID")& ")&")&"&MsgID=" & rsMsgs("FMsgID") & ">Delete Message</a>"
End If
Response.Write "</FONT>"
Response.Write _
" <HR SIZE=2>" & _
" <FONT size=2>" & sOrigMessage
If rsMsgs("FMsgProfile") = True AND rsMsgs("FSignature") <> "" Then
Response.Write "<br><br>==================<br>" & sOrigSig
End If
Response.Write "</FONT></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>"
Response.Write "</tr></form>"
count = count + 1
rsMsgs.MoveNext
Loop
Response.Write "</table><br>"
rsMsgs.MoveFirst
Response.Write _
"<table width=100% >" & _
"<td align=right>"
If Session("Admin") = True OR (Session("Mod") = rsMsgs("FForumJoinID"))Then
Response.Write "<a href=deltopic.asp?TopicID=" & rsMsgs("FID") & ">Delete Topic</a> | "
End If
If (Session("Admin") = True OR (Session("Mod") = rsMsgs("FForumJoinID"))) AND rsMsgs("FLocked") = False Then
Response.Write "<a href=lockthread.asp?FTopicID=" & Request.Querystring("FTopicID") & ">Lock Topic</a>"
Elseif (Session("Admin") = True OR (Session("Mod") = rsMsgs("FForumJoinID"))) AND rsMsgs("FLocked") = True Then
Response.Write "<a href=unlockthread.asp?FTopicID=" & Request.Querystring("FTopicID") & ">Unlock Topic</a>"
End If
Response.Write "</td></table>"
Else
Response.Write "<center><h2>No Messages Listed</h2></center>"
End If
Response.Write _
"</table>" & _
"</td>" & _
"</tr>" & _
"</table>"
If rsMsgs("FLocked") = False Then
Response.Write _
"<br><br>" & _
"Add a message" & _
"<form action=addmsg.asp method=post>" & _
"<table>"
If Request.Cookies("PMBVisit")("UserName") <> "" Then
Response.Write "<tr><td>" & Request.Cookies("PMBVisit")("UserName") & " (" & Request.Cookies("PMBVisit")("NickName") & ")</td></tr>"
Response.Write "<tr><td>" & Request.Cookies("PMBVisit")("Email") & "</td></tr>"
Else
Response.Write "<tr><td>Your Name:</td><td> <input type=text name=FName size=34></td></tr>"
Response.Write "<tr><td>Email Address:</td><td> <input type=text name=FEmail size=34></td></tr>"
End If
Response.Write _
"<tr><td align=top>Message:</td><td><TEXTAREA ROWS = 4 COLS = 25 name=FMsg></TEXTAREA></td></tr>" & _
"<tr><td><input type=Submit value=Submit><input type=Reset></td></tr>" & _
"<input type=hidden name=TopicNum value=" & Session("FID") & ">" & _
"<input type=hidden name=ForumNum value=" & Session("ForumID") & ">" & _
"<input type=hidden name=NumPosts value=" & count & ">" & _
"</table>" & _
"</form>"
Else
Response.Write "<center>This topic is locked, no more replies accepted</center>"
End If
Response.Write _
"<p>" & _
"<a href=topics.asp?ForumID=" & rsMsgs("FForumJoinID") & ">Back to main board</a><br>"
rsMsgs.Close
set rsMsgs = Nothing
objConn.Close
set objConn = Nothing
%>
<!--#include file="footer.asp"-->
</body>
</html>
Merci.
farfadet