ei peguei na net o sistema de noticias silvaextreme muito bom dai estou tentando colocar o FCKeditor nele, na pagina de inlcuir a noticia ele esta beleza, mas na página de alterar a noticias ta dando o maio pau, já li num forum uma explicação do cido mas ainda persiste o problema abaixo o código da pagina altera.asp
aqui é o erro que dá
Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A01F4)
Variável não definida: 'conexao'
/sis/silvaextreme/altera.asp, line 11
Tipo de navegador:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322)
Pergunta
Guest Wsales
Oi galera é o seguinte:
ei peguei na net o sistema de noticias silvaextreme muito bom dai estou tentando colocar o FCKeditor nele, na pagina de inlcuir a noticia ele esta beleza, mas na página de alterar a noticias ta dando o maio pau, já li num forum uma explicação do cido mas ainda persiste o problema abaixo o código da pagina altera.asp
aqui é o erro que dá
Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A01F4)
Variável não definida: 'conexao'
/sis/silvaextreme/altera.asp, line 11
Tipo de navegador:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322)
Página:
GET /sis/silvaextreme/altera.asp
------------------------------------------------------------------------
Aqui o código
<%@ codepage="1252" language="VBScript" %>
<% Option Explicit %>
<!-- #INCLUDE file="fckeditor.asp" -->
<%If session("usr_log_ok")="" Then
Response.Write "Você está Logado no sistema!"
Response.write "<a href='login.asp'>Clique aqui para se logar.</a>"
Session("pagina_restrita") = Request.ServerVariables("SCRIPT_NAME")&"?"&request.ServerVariables("QUERY_STRING")
Response.End()
End If
set conexao = Server.CreateObject("ADODB.Connection")
conexao.provider= "Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("dados/dados.mdb")&";"
conexao.open
SQL = "select * from usuarios where id_usuario ="&session("usr_log_ok")
Set RS = Conexao.Execute(SQL)
If rs.eof then
Response.write "Ocorreu um erro ao se logar no sistema!"
Else %>
<meta name="generator" content="Namo WebEditor v5.0">
<style TYPE="text/css">
<!--
BODY {
scrollbar-face-color: FFFFFF;
scrollbar-arrow-color: 000000;
scrollbar-base-color: 000000;
scrollbar-shadow-color: FFFFFF;
scrollbar-dark-shadow-color: 000000;
scrollbar-highlight-color: FFFFFF;
scrollbar-3d-light-color: 000000}
//-->
</STYLE>
<STYLE>
A:link { Color:#666666 ;TEXT-DECORATION: none }
A:visited { Color:#666666 ;TEXT-DECORATION: none }
A:active { Color:#666666 ;TEXT-DECORATION: none }
A:hover { Color:#01A8E0 ;TEXT-DECORATION: underline }
</STYLE>
<title>..::..Cido Silva - Desenvolvimento de sites, softwares e aplicações para web..::..</title>
<body>
<table width="642" align="center">
<form name="aspacc" method="post" action="altera1.asp">
<tr>
<td width="636" colspan="2"> <p align="center"><font face="Arial"><span style="font-size:9pt;"><b>Olá,</b></span><span style="font-size:12pt;"><b>
</b></span></font><font face="Arial" color="red"><span style="font-size:10pt;"><b><%=rs("Nome_usuario")%></b></span></font><font face="Arial"><span style="font-size:12pt;"><b> v</b></span><span style="font-size:9pt;"><b>eja nossas
dicas de formatação!</b></span><span style="font-size:12pt;"><b><br><%end if%></b></span></font></p>
<p style="line-height:100%; margin-top:0; margin-bottom:0;"><font size="1" face="Arial,Arial"><strong>Negrito:</strong>
<b>Texto</b> | Resultado: <strong>Texto</strong><br>
<strong>Italico:</strong> <i>Texto</i> | Resultado:
<em>Texto</em> <br>
<strong>Sublinhado:</strong> <u>Texto</u> | Resultado:
<u>Texto</u> <br>
<strong>Links:</strong> <a href="Endereço">Texto</a>
<br>
- Exemplo: <a href="http://www.silvaextreme.com.br">Texto</a>
| Resultado: <a href="http://www.silvaextreme.com.br">Texto</a><br>
<strong>Centralizar:</strong> <Center>Texto</center>
| Resultado: Deixa o texto centralizado<br>
<strong>Ir para Proxima linha:</strong> <br><br>
<strong>Pular uma linha:</strong> <p> ou <br><br><br>
<strong>Tamanho da Letra:</strong> <font size="1">Texto</font>
| Size vai de -7 até +7<br>
- Exemplo: <font size="3">Texto</font>
| Resultado: </font><font size="3" face="Arial,Arial">Texto</font><font size="1" face="Arial,Arial"><br>
<font color="#FF0000"><strong><br>
OBs:</strong></font> Lembre-se sempre de fechar o que abrir
exemplo: <strong><b></strong> (Abriu), <strong></b></strong>
(Fechou), só não precisa fechar <strong><br></strong>
e o<strong> <P></strong><br>
</font></p>
</td>
</tr>
<form name="cidosilva" method="post" action="altera1.asp">
<tr>
<td width="59"><b><font face="Tahoma"><span style="font-size:9pt;">Título:
</span></font></b><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dados/dados.mdb")
sql = "SELECT * FROM Noticias WHERE id=" & Request.QueryString("id") & ""
set Rs = Con.Execute(sql)
%>
</font></td>
<td width="573"><input type="text" name="tópico" size="80" value="<%=Rs("tópico")%>"></td>
</tr>
<tr>
<td width="59">
<p><b><font face="Tahoma"><span style="font-size:9pt;">Manchete</span></font></b></p>
</td>
<td width="573">
<p><textarea name="Resumo" rows="3" cols="74"><%=Rs("Resumo")%></textarea></p>
</td>
</tr>
<tr>
<td width="59">
<p><b><font face="Tahoma"><span style="font-size:9pt;">Noticia</span></font></b></p>
</td>
<td width="573">
<p><%
Dim sBasePath, svalordocampo
sBasePath = Request.ServerVariables("PATH_INFO")
sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) )
svalordocampo = rsClassific("noticia")
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = sBasePath
oFCKeditor.Value = svalordocampo
oFCKeditor.Create "noticia"
%></p>
</td>
</tr>
<tr>
<td width="59">
<p><b><font face="Tahoma"><span style="font-size:9pt;">Classe</span></font></b></p>
</td>
<td width="573"><select size="1" name="Classe">
<option value="<%=Rs("Classe")%>"><%=Rs("Classe")%></option>
<option value="Local">Local</option>
<option value="Estadual">Estadual</option>
<option value="Brasil">Brasil</option>
<option value="Mundo">Mundo</option>
<option value="Entrevistas">Entrevistas</option>
</select></td>
</tr>
<tr>
<td width="59">
<p><b><font face="Tahoma"><span style="font-size:9pt;">Classe1</span></font></b></p>
</td>
<td width="573"><select size="1" name="Classe1">
<option value="<%=Rs("Classe1")%>"><%=Rs("Classe1")%></option>
<option value="Local">Local</option>
<option value="Estadual">Estadual</option>
<option value="Brasil">Brasil</option>
<option value="Mundo">Mundo</option>
<option value="Entrevistas">Entrevistas</option>
</select></td>
</tr>
<tr>
<td width="59">
<p><b>Fonte</b></p>
</td>
<td width="573"><input type="text" name="Autor" size="40" value="<%=Rs("Autor")%>">
</td>
</tr>
<tr>
<td colspan="2" width="636">
<p align="center"><input name="ID" type="hidden" id="ID" value='<%=request.querystring("ID")%>'><input type="submit" name="submit" value="Enviar notícia">
</td>
</tr>
</form>
</table>
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.