Onde Esta O Erro?

[webdotx]

Po galera olha eu ai de novo

eu fiz um sisteminha de horas extras e já tá até funcionando mais agora eu preciso cadastra as infos no BD de uma olhadinha no codigo que envia as informações pro BD

<%
'Variaveis do Sistema'
dim nome
dim salario
dim horaentra
dim horasai
dim totalhora
dim transform60
dim hextra50
dim hextra100
dim val50
dim val100
dim tempoextra
dim h50
dim h100
dim totalMinutosTrabalhadosNoPeriodo
dim dia01

'Conectando ao BD
categoria = request.form("categoria") 
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DBQ=C:\vlfsistemas\datas.mdb;Driver={Microsoft Access Driver (*.mdb)};"

Set rs1 = Server.CreateObject("ADODB.RecordSet") 
IF Trim(categoria)<> "" Then 
rs1.Open "SELECT * FROM tbfunc WHERE idfuncion= "& Trim(categoria) & " ORDER BY nome", conexao 
end if

'Calculando hora salarial'
id = Request.Form("categoria")
data = Request.Form("data")
nome = (rs1("nome")) 
salario = (rs1("Salario")) 
tempoextra = salario / "220"
salario = FormatCurrency(salario)
tempoextra = FormatCurrency(tempoextra)
response.Write (id)
response.Write ("<br>") 
response.Write (nome)
response.Write ("<br>") 
response.Write (data)
response.Write ("<br>") 


'Calcular hora 2'
totalMinutosTrabalhadosNoPeriodo = "0" 
Entrada01 = Request.Form("henter")
Saida01 = Request.Form("hexit")
dia01 = DateDiff ("n",Entrada01,Saida01) 
totalMinutosTrabalhadosNoPeriodo = dia01 
minutos = totalMinutosTrabalhadosNoPeriodo Mod 60 
horas = (totalMinutosTrabalhadosNoPeriodo - minutos) / 60 
response.Write (entrada01)
response.Write ("<br>") 
response.Write (saida01)
response.Write ("<br>") 
response.Write ("Aqui eu encontrei o salario e a entra e saida do funcionario")
response.Write ("<hr>")

'Calculando o Tempo'
horaentra = Request.Form("henter")
horasai = Request.Form("hexit")
totalhora = Datediff("n", horaentra,horasai)
totalMinutosTrabalhadosNoPeriodo = totalhora

'transform60 = totalhora / "60"
'transform60 = FormatNumber(transform60)
minutos = totalMinutosTrabalhadosNoPeriodo Mod 60 
horas = (totalMinutosTrabalhadosNoPeriodo - minutos) / 60 
temp = horas&","&minutos
temp = FormatNumber(temp)
response.Write (temp)
response.Write ("<br>") 
response.Write ("Aqui eu encontro o total de horas trabalhadas")
response.Write ("<hr>")
'calculo de 50% e 100% de horas extras'
hextra50 = tempoextra * "0,50"
hextra100 = tempoextra * "1,00"
'hextra50 = FormatCurrency(hextra50)
'hextra100 = FormatCurrency(hextra100)
'response.Write ("Tempo 50% - ")
'response.Write (hextra50)
response.Write ("<br>")
'response.Write ("Tempo 100% - ")
'response.Write (hextra100)
response.Write ("<br>")
'somando o resultado para encontrar os valores de 50% e 100% a mais na hora extra'
h50 = tempoextra + hextra50
h50 = FormatCurrency(h50)
response.Write(h50)
response.Write ("<br>") 
h100 = tempoextra + hextra100
h100 = FormatCurrency(h100)
response.Write(h100)
'Calculando o valor da hora extra vezes a quantidade trabalhada'
temp = horas &","& minutos
val50 = temp * h50
val50 = FormatCurrency(val50)
val100 = temp * h100
val100 = FormatCurrency(val100)
response.Write ("<hr>")
response.Write ("Tempo Valor 50% - ")
response.Write (val50)
response.Write ("<br>")
response.Write ("Tempo Valor 100% - ")
response.Write (val100)
response.Write ("<br>")

strSQL = "INSERT INTO tbextra (idfuncion,data,entradah,saidah,totalh) VALUES ("& id &",#"&data&"#,#"&entrada01&"#,#"&saida01&"#,"& temp &")"
conexao.execute strSQL
Set strsql = Nothing
Set Conexao = Nothing
response.End
',totalh,valh50,valh100,totalh50,totalh100
',"&temp&","& h50 &","& h100 &","& val50 &","& val100 &"
%>

esse é o erro

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] Número de valores da consulta e campos de destino não coincidem.

/vlf/x.asp, line 110

a variavel temp esta dando o erro eu não consigo enviar as informações contidas nela pro BD

Me ajuda ahe galera

[dark0]

to meio confuso aqui..

porque você colocou:

INSERT INTO tbextra (idfuncion,data,entradah,saidah,totalh) VALUES ("& id &",#"&data&"#,#"&entrada01&"#,#"&saida01&"#,"& temp &")"

porque você colocou os "#", o que eles tão fazendo ali?

[webdotx]

são dados com data/hora ai tem que fazer isso mais eu estou formalizando a pergunta aqui pra obter a resposta certa perai...

Ok?