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ç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"> </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"> </td> <td class="texto">Profissã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ê 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"> </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 <<</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 <<</a></p> <p> <%end if%> </p>