Erro Com Insert Into

Sempre uso este código pra inserir conteúdo num banco de dados... agora tá dando pau...

alguém pode dar uma conferida pra ver o q tá dando de erro???

o erro é na linha 362

<%
Dim nome1
dim endereco1
dim data_nasc1
dim email1
dim telefone1
dim profissao1
dim time1
dim data_sem1


inputnum = request.querystring("inputnum")
If IsEmpty(inputnum) or inputnum = "" then


%>
            </p>
            <form id=form method="POST" action="index.asp?inputnum=1"><table width="481" border="0" align="center" cellpadding="1" cellspacing="1">
              <tr>
                <td width="70" class="texto">Nome:</td>
                <td colspan="5" class="texto">
                  <input name="nome1" type="text" class="form" id="nome1" size="70">
                </td>
                </tr>
              <tr>
                <td height="25" class="texto">Endere&ccedil;o:</td>
                <td colspan="5" class="texto">
                  <input name="endereco1" type="text" class="form" id="endereco1" size="70">
                </td>
                </tr>
              <tr>
                <td class="texto">Data de nasc.: </td>
                <td width="150" class="texto">
                  <input name="data_nasc1" type="text" class="form" id="data_nasc1" size="25">
                </td>
                <td colspan="2">&nbsp;</td>
                <td width="64" class="texto">E-mail:</td>
                <td width="187" class="texto">
                  <input name="email1" type="text" class="form" id="email1" size="25">
                </td>
              </tr>
              <tr>
                <td class="texto">Telefone:</td>
                <td class="texto">
                  <input name="telefone1" type="text" class="form" id="telefone1" size="25">
                </td>
                <td colspan="2">&nbsp;</td>
                <td class="texto">Profiss&atilde;o:</td>
                <td class="texto">
                  <input name="profissao1" type="text" class="form" id="profissao1" size="25">
                </td>
              </tr>
              <tr>
                <td colspan="6" class="texto">Pra qual time voc&ecirc; torce?
                    <input name="time1" type="text" class="form" id="time1" size="35">
        <%
   	 sqlstmt2 = "SELECT top 1 * FROM semana ORDER BY id DESC"
   	 Set rs2 = Server.CreateObject("ADODB.Recordset")
   	 rs2.Open sqlstmt2, DSNtemp2, 3, 3
   	 do while not rs2.eof
      %>
                    <input name="data_sem1" type="hidden" id="data_sem1" value="<%=rs2("semana")%>">
        <% rs2.movenext %>
                    <% loop %> 
                  </td>
                </tr>
              <tr>
                <td colspan="6">&nbsp;</td>
              </tr>
              <tr>
                <td colspan="6"><div align="center">
                   <span class="texto">
                   <input name="enviar" type="submit" class="form" id="enviar" value="Cadastrar">
                   <input name="limpar" type="reset" class="form" id="limpar" value="Limpar">
                   </span></div></td>
              </tr>
            </table>
 	 </form>
 	 <p align="center" class="texto"><a href="http://www.100porcentoesporte.com.br">Volta &lt;&lt;</a></p>
 	 <p>
        <span class="texto">
        <% else

nome = request.form("nome1")
endereco = request.form("endereco1")
data_nasc = request.form("data_nasc1")
email = request.form("email1")
telefone = request.form("telefone1")
profissao = request.form("profissao1")
time_fut = request.form("time1")
data_sem = request.form("data_sem1")


' Yeah I got quotes praise the lord he he he

nome = Replace(request.form("nome1"), "'", "''")
endereco = Replace(Request.Form("endereco1"), "'", "''")
data_nasc = Replace(Request.Form("data_nasc1"), "'", "''")
email = Replace(Request.Form("email1"), "'", "''")
telefone = Replace(Request.Form("telefone1"), "'", "''")
profissao = Replace(Request.Form("profissao1"), "'", "''")
time_fut = Replace(Request.Form("time1"), "'", "''")
data_sem = Replace(Request.Form("data_sem1"), "'", "''")



set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("../db/esporte.mdb")

conn.Open DSNtemp

SQLstmt = "INSERT INTO semana_prom (nome,endereco,data_nasc,email,telefone,profissao,time,semana) VALUES ('" 
SQLstmt = SQLstmt & nome & "','"
SQLstmt = SQLstmt & endereco & "','"
SQLstmt = SQLstmt & data_nasc & "','"
SQLstmt = SQLstmt & email & "','"
SQLstmt = SQLstmt & telefone & "','"
SQLstmt = SQLstmt & profissao & "','"
SQLstmt = SQLstmt & time_fut & "','"
SQLstmt = SQLstmt & data_sem & "')"

A linha 362 é esta:

Set RS = conn.execute(SQLstmt)%>

Segue o resto do script:

</span></p>
 	 <p align="center" class="texto">Dados cadastrados com sucesso! </p>
 	 <p align="center"><a href="http://www.100porcentoesporte.com.br">Volta &lt;&lt;</a></p>
 	 <p>
<%end if%>
</p>

Cara.. de vez enquando acontece isso mesmo...
oq acontece, é q de vez enquando ele não aceita alguma variável que você tá usando no banco.. tipo "nome" ou "endereco", etc.

tenta mudar a variável "time_furt" para "tempo_furt" por exemplo.

ou senão.. vc vai testando uma de cada vez. tipo... manda o script gravar no banco ssomente o campo nome. Se funcionar, manda gravar o "nome" e o "endereco". E assim por diante... vai colocando um de cada vez e testando. Vamos dizer que você colocou o campo "telefone" e deu o pau. Então o problema é ele. Daí você mudaria o nome da variável tanto no banco de dados quanto no script.

Bem... isso é o que eu sempre fiz... tomára que te ajude...

Abraços

Daniel

PS: tenta usar o código abaixo, talvez podia ter algum errinho nas linhas que vc montou e a gente não viu.

SQLstmt = "INSERT INTO semana_prom(nome,endereco,data_nasc,email,telefone,profissao,time,semana)VALUES('"&nome&"','"&endereco&"','"&data_nasc&"','"&email&"','"&telefone&"','"&profissao&"','"&time_fut&"','"&data_sem&"')"

#1 ziriguidum

#2 danielnasc

#3 danielnasc

#4 ziriguidum

1 user(s) are reading this topic