Publicado em 1 de out.

[Resolvido] Dreamweaver CS3 fechando sozinho com paginas asp

Olá amigos, estou precisando de uma ajuda urgente. Tenho um site que foi todo desenvolvido no dreamweaver MX, há uns 2 anos atrás, em ASP com banco de dados em access. Funciona tudo certinho, os arquivos quando estão online não dão nenhum problema.

Porém, ao tentar abrir os arquivos do site para editá-los no Dreamweaver CS3 (Versão 9.0 Build 3453), o programa dá erro e fecha automático!! Qualquer arquivo em ASP que abro no Dreamweaver CS3 está dando esse erro. A página é carregada, mas ao clicar em cima de qualquer comando em ASP, dá esse erro e fecha o programa.

Por favor, alguém sabe o que pode ser? Alguém já passou por isso????

Segue abaixo o código de uma dessas páginas, para que possam verificar e ver se tem algo que preciso mudar pra que abra no Dreamweaver CS3. Desde já agradeço a ajuda!

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim recIndex__MMColParam
recIndex__MMColParam = "sim"
If (Request("MM_EmptyValue") <> "") Then
recIndex__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim recIndex
Dim recIndex_numRows

Set recIndex = Server.CreateObject("ADODB.Recordset")
recIndex.ActiveConnection = MM_conAguilar_STRING
recIndex.Source = "SELECT * FROM livro WHERE destaque = '" + Replace(recIndex__MMColParam, "'", "''") + "' ORDER BY titulo ASC"
recIndex.CursorType = 0
recIndex.CursorLocation = 2
recIndex.LockType = 1
recIndex.Open()

recIndex_numRows = 0
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="[http://www.w3.org/1999/xhtml">](http://www.w3.org/1999/xhtml)
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>:: Editora Nova Aguilar ::</title>
<script language="javascript" type="text/javascript">

<!--

function validaBusca() {
 if (formBusca.txtBusca.value == "") {
 alert("digite o nome do autor ou o título da obra para busca");
 formBusca.txtBusca.focus();
 return false;
 }
 return true;
 }
 //-->

</script>
<style type="text/css">

</style>
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
</head>

<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 <tr>
	<td height="25" colspan="3" bgcolor="#C87F10"> </td>
 </tr>
 <tr>
	<td colspan="3" background="img_site/barra_superior.jpg" bgcolor="#FFCC66"> </td>
 </tr>
 <tr>
	<td width="28%" valign="top" bgcolor="#004640"><img src="img_site/logo.jpg" width="224" height="99" /></td>
	<td colspan="2" valign="top" bgcolor="#004640"><table width="100%" height="99" border="0" cellpadding="0" cellspacing="0">
 <tr>
 <td colspan="3"> </td>
 <td width="25%"> </td>
 <td width="5%"> </td>
 </tr>
 <tr>
 <td colspan="3"><div align="center" class="style5"><span class="style4">
 <% =day(date) %>
  de 
 <% = MesAno(Month(date)) %>
  de 
 <% =year(date) %>
 </span></div></td>
 <td colspan="2" align="right" valign="bottom"><form action="busca.asp" method="post" name="formBusca" id="formBusca" onsubmit="return validaBusca();">
 <div align="left","top">
 <div align="left"><span class="style22">.</span>
 <input name="txtBusca" type="text" id="txtBusca2" size="15" maxlength="50" />
 <input name="ok" type="submit" id="ok" value="ok" />
 </div>
 </div>
 </form></td>
 </tr>
	</table></td>
 </tr>
 <tr>
	<td valign="top"><script type="text/javascript">

AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0','width','224','height','350','src','flash/menu_lateral','quality','high','pluginspage','http://www.macromedia.com/go/getflashplayer','movie','flash/menu_lateral' ); //end AC code

</script><noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="[http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0"](http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0) width="224" height="350">
 <param name="movie" value="flash/menu_lateral.swf" />
 <param name="quality" value="high" />
 <embed src="flash/menu_lateral.swf" quality="high" pluginspage="[http://www.macromedia.com/go/getflashplayer"](http://www.macromedia.com/go/getflashplayer) type="application/x-shockwave-flash" width="224" height="350"></embed>
	</object></noscript></td>
	<td colspan="2" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
 <tr>
 <td><div align="right"><img src="img_site/titulos/destaques.jpg" width="300" height="90" /></div></td>
 </tr>
	</table>
 <table width="95%" border="0" cellspacing="0" cellpadding="0">
 <tr>
 <%

n = 1
c = 2
'c, é aqui que você controla o numero de colunas
Do while not RecIndex.Eof%>

 <td width="50%"><table width="100%" border="0" cellspacing="0" cellpadding="0">
 <tr>
 <td width="42%"><p align="center"><img src="imagens\livros\<%=(recIndex.Fields.Item("foto").Value)%>" width="80" height="118" class="borda_fotos" /></p></td>
 <td width="7%" valign="top"><div align="center"><span class="artista"></span><br />
 <span class="titulo"></span></div></td>
 <td width="51%"><br />
 <table width="100%" border="0" cellspacing="0" cellpadding="0">
 <tr>
 <td><span class="titulo"><%=(recIndex.Fields.Item("titulo").Value)%></span></td>
 </tr>
 <tr>
 <td> </td>
 </tr>
 <tr>
 <td class="autor"><%=(recIndex.Fields.Item("autor").Value)%></td>
 </tr>
 <tr>
 <td> </td>
 </tr>
 <tr>
 <td><span class="style2"><span class="style1">De: R$XXX</span></span><span class="preco"> <br />
 Por: R$ <%= FormatNumber((recIndex.Fields.Item("preco").Value), 2, -2, -2, -2) %></span></td>
 </tr>
 </table>
 <br /></td>
 </tr>

 <tr>
 <td colspan="2"><div align="right"></div></td>
 <td width="51%"><div align="right"><a href="carrinho.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "codLivro=" & recIndex.Fields.Item("codLivro").Value %>"><img src="img_site/comprar.jpg" width="90" height="28" border="0" /></a></div></td>
 </tr>
 </table>
 <p> </p></td>
 <td> </td>
 <%

n = n + 1
recIndex.Movenext
If n > c then
response.write "</tr><tr>"
n = 1
End If
Loop
%>

 </tr>

 <tr>
 <td colspan="2" class="pontos"> </td>
 </tr>
	</table></td></tr>
 <tr>
	<td> </td>
	<td colspan="2"> </td>
 </tr>
 <tr>
	<td colspan="3" background="img_site/barra_inferior.jpg"> </td>
 </tr>
 <tr>
	<td bgcolor="#004640"> </td>
	<td width="50%" bgcolor="#004640"> </td>
	<td width="22%" bgcolor="#004640"> <div align="center"><a href="email"><img name="al" src="img_site/al.jpg" width="121" height="21" border="0" id="al" alt="" /></a></div></td></tr>
</table>
</body>
</html>

<%
recIndex.Close()
Set recIndex = Nothing
%>

Discussão (1)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Carregando comentários...