brincando com o mysql

[Amigo_zz 0]

colegas,

 

Comecei ainda que tarde a trabalhar com mysql.

 

Utilizo um ficheiro funcoes.asp para colocar todas as minhas funcoes. Em access tudo corria bem mas agora no mysql....

 

FICHEIRO FUNCOES.ASP

sub mysql()	'Estou utilizando aqui o driver MySQL ODBC 3.51, mas funciona com qualquer um viu!! 	'Conexão com o banco de dados 		ObjConn.ConnectionString = "Driver=MySQL ODBC 3.51 Driver; Server=localhost; Uid=user; Pwd=1234; Database=data" 	ObjConn.CursorLocation = 3 '<- Cursor de conexão 	ObjConn.Open '<- Abre a conexão end subsub ExecutaSQLms(strSQL)	'Criação de RecordSet 	set rs = server.CreateObject("ADODB.RecordSet")		rs.CursorLocation = 3'adUseClient	rs.CursorType = 3'adOpenStatic		rs.Open strSQL, ObjConnend sub

-----------------------------------------------------------------------------------

ficheiro xxx.asp

<!--#include file="funcoes.asp"--><%select case Request.QueryString("action")	case "insere"		Response.Write "<div id=""titulo"">Conteudos > Adicionar Categoria de Conteúdo</div>"%><form action="default.asp?pag=categ_form&action=guardanovo" method="post" name="frmcategorias" id="frmcategorias" class="formulario">	<div class="label">		<label for="cmbcategoria">			Categorias Existentes		</label>	</div>	<div>	<% 				 'linha do ERRO[color=#FF0000]	ExecutaSQLms("select * from categ_conteudos")[/color]		if rs.RecordCount>0 then		Response.write "<select name=""cmbcategoria"" id=""cmbcategoria"">"		while not rs.eof		Response.Write "<option>" & rs.fields("descritivo") & "</option>"			rs.movenext	wend			Response.Write "</select>"	end if	%>					</div>	<div class="label">		<label for="txtcategoria">			Categoria a adicionar		</label>	</div>	<div>		<input name="txtcategoria" type="text" id="txtcategoria" size="71" class="textbox" />	</div>	<div>		<input type="submit" value="Inserir" name="btninserir" id="btninserir" class="button" />		<input type="reset" value="Cancelar" name="btncancelar" id="btncancelar" class="button" /></form><%end select %>

ERRO QUE SURGE NA PAGINA:

--------------------------------------------------

Tipo de erro:

ADODB.Recordset (0x800A0E7D)

A ligação não pode ser utilizada para efectuar esta operação. Está fechada ou é inválida neste contexto.

/teste/funcoes.asp, linha 18

-------------------------------------------------

lguem para dar uma dica??

 

abraço,

Rui Costa

[Salgado 4]

A conexão ainda não está aberta, por isso o erro.

[Amigo_zz 0]

A conexão ainda não está aberta, por isso o erro.

Esqueci-me duma coisa:a pagina está inserida numa default.asp, e nesta já foi aberta a conexao. MYSQL()

[Salgado 4]

Verifique se você não fechou-a por engano antes. E caso continue, teste sem utilizar as SUB's, fazendo diretamente.