(Resolvido) inserir variável no BD access

[tubarao2009]

Classe Conexão

<script language="vbscript" runat="server">
Dim cn, rs, sel
Sub conecta()
Set cn=server.createobject("adodb.connection")
Set rs=server.createobject("adodb.recordset")
cn.provider="microsoft.jet.oledb.4.0"
cn.connectionstring=server.mappath("banco.mdb")
cn.open
End Sub
Sub desconecta()
rs.close
cn.close
Set rs=Nothing
Set cn=nothing
End sub
Sub fim()
vd=session("nome")
conecta
sel="select*from clientes where login like'"&vd&"'"
rs.open sel,cn,3,3
if rs.recordcount=0 then 
response.write"" 
else
rs("status")="offline"
rs.update
end if
call desconecta
End Sub
</script>

FUNÇÂO

<!--#include file="conexao.asp"-->


<%
Function Fun_Hora()
hora = hour(now)
minutos = minute(now)
segundos =second(now)
if len(hora) = 1 or hora < 10 or hora = 0 then
  hora = "0" + CStr(hora)
end if

if len(minutos) = 1 or minutos < 10 then
  minutos = "0" + CStr(minutos)
end if
if len(segundos) = 1 or segundos < 10 then
  segundos = "0" + CStr(segundos)
end if
Fun_Hora = CStr(hora) + ":" + CStr(minutos) + ":" + CStr(segundos)

End Function
%>

<% Response.write "A hora é: " & Fun_Hora %>

O que estou pretendendo fazer é lançar o conteúdo de Fun_Hora no bd além de mostrar na tela alguém pode me ajudar ?

Editado Maio 7, 2009 por Jonathan Queiroz
Adcionar tag's (Jonathan)

[jow]

Duas formas de inserir no bd ...

SQL_INSERT="INSERT INTO TABELA (CAMPOS_BD) VALUES (VARIAVEIS) "
Set rs = cn.execute(SQL_INSERT)

OU

Set rs = cn.execute("INSERT INTO TABELA (CAMPOS_BD) VALUES (VARIAVEIS) ")

[tubarao2009]

Agora ficou ruim

A função conectar esta dando erro de end esperado e não consigo achar o erro pode me ajudar ?

[jow]

Posta o trecho do seu código e também o erro

[tubarao2009]

ERRO

arrumei a classe conexao mas deu pau na pagina que esta a função

Não é possível exibir a página

Ocorreu um problema com a página que você está tentando acessar e não é possível exibi-la.

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

Experimente o seguinte:

Clique no botão Atualizar ou tente novamente mais tarde.

Abra a localhost:8080 home page e procure os links para as informações desejadas.

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

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

Informações técnicas (para a equipe de suporte)

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: 'cn'

/testesenha/hora.asp, line 19

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)

Página:

GET /testesenha/hora.asp

Hora:

quinta-feira, 7 de maio de 2009, 18:06:22

Mais informações:

Suporte da Microsoft

Editado Maio 7, 2009 por tubarao2009

[jow]

Posta a sua classe de conexão ai ... e também a parte do sql

[DELPHI-Man32]

cara seu tópico esta muito vago, primeiro você só colocou o script e nem citou nada!

segundo! simplefica suas classes e terceiro, você sabe inserir no banco usando sql?

ah!! qual seu objetivo com essa inserção de variavel no banco de dados?

para inserir, faz como o Jow falou ai!

segue os passos:

1 - faz a conexao;

2 - pega a var;

3 - inseri no banco;

4 - mostra o valor;

[tubarao2009]

CLASSE CONEXÂO

<script language="vbscript" runat="server">
Dim cn, rs, sel
Sub conecta()
Set cn=server.createobject("adodb.connection")
Set rs=server.createobject("adodb.recordset")
cn.provider="microsoft.jet.oledb.4.0"
cn.connectionstring=server.mappath("banco.mdb")
cn.open
End Sub
Sub desconecta()
rs.close
cn.close
Set rs=Nothing
Set cn=nothing
End sub
Sub fim()
vd=session("nome")
conecta
sel="select*from clientes where login like'"&vd&"'"
rs.open sel,cn,3,3
if rs.recordcount=0 then 
response.write"" 
else
rs("status")="offline"
rs.update    
end if
call desconecta
End Sub
</script>

pagina com a função e o insert na tabela 


<%
Function Fun_Hora()
hora = hour(now)
minutos = minute(now)
segundos =second(now)
if len(hora) = 1 or hora < 10 or hora = 0 then
  hora = "0" + CStr(hora)
end if

if len(minutos) = 1 or minutos < 10 then
  minutos = "0" + CStr(minutos)
end if
if len(segundos) = 1 or segundos < 10 then
  segundos = "0" + CStr(segundos)
end if
Fun_Hora = CStr(hora) + ":" + CStr(minutos) + ":" + CStr(segundos)
End Function
%>
<%
call conecta()
Set rs = cn.execute("INSERT INTO dados_login(hora) VALUES ('"&Fun_Hora&"')")
%>

[jow]

Bom dia altera esse trecho na classe de conexão, você está criando dois objetos, cnn e rs

Sub conecta()
Set rs=server.createobject("adodb.recordset")
cn.provider="microsoft.jet.oledb.4.0"
cn.connectionstring=server.mappath("banco.mdb")
cn.open
End Sub
Sub desconecta()
cn.close
Set cn=nothing
End sub

[tubarao2009]

Como faço para encerrar este tópico pois já resolvi ,mas apareceu uma outra duvida .

[bareta]

crie um novo tópico com sua nova duvida