Erro de Type mismatch

Fala galerinha !!!

Estou com um problema no meu fórum, tenho um fórum em asp, estava tudo funcionando normal, de repente fui verificar a página de cadastro e aparaceu este erro Type mismatch

Microsoft VBScript runtime error '800a000d' Type mismatch: 'rs' /clubdodj/forum/inc_profile.asp, line 25

segue abaixo o conteúdo do código.

<% on error resume next %> <table border="0" width="100%" cellspacing="0" cellpadding="0" valign=top> <tr> <td bgColor="<% =strPageBGColor %>" align=center <%= strColspan %>> <p><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b><% =fLangN(strLangInc_Profile00010, "<FONT color=#ff0000 size=" & strHeaderFontSize & "><b></b></FONT>") %></b></font></p> </td> </tr> <tr> <td bgcolor="<% =strPageBGColor %>" align=left valign=top> <table border="0" width="80%" cellspacing="1" cellpadding="0" align="center"> <tr><% if strUseExtendedProfile then%> <td width="50%"" bgColor=<% =strPopUpTableColor %> valign=top> <table border="0" width="100%" cellspacing="0" cellpadding="1"> <tr> <td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"> <% =fLang(strLangInc_Profile00020) %> </font></b></td> </tr> <tr> <td bgColor=<% =strPopUpTableColor %> align=right width="10%"" nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><FONT color=#ff0000></FONT><% =fLang(strLangInc_Profile00030) %> </font></b></td> <td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> <INPUT name="Email" size="25" value="<% =RS("M_EMAIL") %>" class=text> <INPUT type="hidden" name="Email2" value="<% =RS("M_EMAIL") %>"></font></td> </tr><% if strICQ = "1" then%> <tr> <td bgColor=<% =strPopUpTableColor %> align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =fLang(strLangInc_Profile00040) %> </font></b></td> <td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> <INPUT name="ICQ" size="25" value="<% =ChkString(RS("M_ICQ"), "display") %>" class=text> </font></td> </tr> <% end if if strYAHOO = "1" then %> <tr> <td bgColor=<% =strPopUpTableColor %> align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =fLang(strLangInc_Profile00050) %> </font></b></td> <td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> <INPUT name="YAHOO" size="25" value="<% =ChkString(RS("M_YAHOO"), "display") %>" class=text> </font></td> </tr><% end if if strAIM = "1" then%> <tr> <td bgColor=<% =strPopUpTableColor %> align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =fLang(strLangInc_Profile00060) %> </font></b></td> <td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> <INPUT name="AIM" size="25" value="<% =ChkString(RS("M_AIM"), "display") %>" class=text> </font></td> </tr><% end if if (strHomepage + strFavLinks) > 0 and (strUseExtendedProfile) then %> <tr> <td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2"> <b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><% =fLang(strLangInc_Profile00070) %> </font></b></td> </tr><% if strHomepage = "1" then %> <tr> <td bgColor=<% =strPopUpTableColor %> align=right nowrap width="10%""><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =fLang(strLangInc_Profile00080) %> </font></b></td> <td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> <INPUT name="Homepage" size="25" value="<% if ChkString(RS("M_Homepage"), "display") <> " " and lcase(RS("M_Homepage")) <> "http://" then Response.Write(RS("M_Homepage")) else Response.Write("http://") %>" class=text> </font></td> </tr><% end if if strFavLinks = "1" then%> <tr>

Têm mais coisa, só que é muito grande para postar aqui, mas se for preciso... Vejam se podem me ajudar.

Obrigado á todos. http://forum.imasters.com.br/public/style_emoticons/default/joia.gif