Erro de Type mismatch

[cmachado 0]

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

[Salgado 4]

Esse erro acontece quanto se tenta usar um objeto que não foi SETado. Por exemplo esse RS DEVE ser algum RecordSet que foi SETado com outro nome, não?