Não esta inserindo

[Ghean 0]

Tenho uma pagina para inserir fotos em galerias

Mas acontece que tudo funciona normalmente a não ser a parte onde insiro as fotos, preencho os campos e quando clico em submit não insere, detalhe: "não aparece nenhuma mensagem" é como se desse um refresh na pagina.

 

segue abaixo o script referente a essa parte

<%Case "en_foto" If Request.Form("enviado") = "sim" Then Sql = "INSERT INTO fotos (idalbum, imagem) VALUES ('" & Request.Form("idalbum") & "', '" & Request.Form("imagem")& "')" Conexao.Execute(Sql) Response.Write "Enviado Com Sucesso<BR><A href=admin_fotos.asp>Voltar</a>"Else %><form method="POST" name="form_img" action="admin_fotos.asp?sessao=en_foto"><table align="center"  cellspacing="0" cellpadding="5">   <tr>	 <td class="texto">		<b>Incluir Foto</b>		<hr size="1" style="border: 1px dashed #000000;"><br>	</td>	<td width="250" rowspan="6" align="center" valign="middle">	<fieldset>	<legend>Visualizar Imagem</legend>	<table width="100%" height="200" border="0" cellspacing="0" cellpadding="0">	  <tr>		<td align="center" valign="middle"><img src="icons/not_found.jpg" name="ver_imagem"></td>	  </tr>	</table>	</fieldset>		</td>	</tr> <tr>	<td class="texto2"><input type="hidden" name="enviado" value="sim">Album:</td> </tr> <tr bgcolor="#F4F4F4">	<td class="titulo2">	 <select size="1" name="idalbum">		<% Set rs=Conexao.Execute("SELECT * FROM album ORDER BY nome")		While not rs.EOF		Response.Write "<option value="&rs("nome")&">"&rs("nome")&"</option>"		rs.Movenext		Wend %>	</select>	</td>  </tr>  <tr>	<td class="texto2"><input type="hidden" name="enviado" value="sim">Imagem:</td> </tr> <tr bgcolor="#F4F4F4">	<td class="titulo2">	 <input type="text" name="imagem" size="50"> <img src="icons/ler2.gif" onClick="verimg();" style="cursor: hand;" alt="Ver imagem">	</td>  </tr>  <tr>	<td class="texto2"><br><input type="submit" value="Cadastrar"></td> </tr></table></form><% End If %>

[Ghean 0]

esta aparecendo oseguinte erro:

 

Microsoft JET Database Engine error '80040e07'

 

Data type mismatch in criteria expression.

 

/adm/adm_fotos.asp, line 143

 

<form method="POST" name="form_img" action="adm_fotos.asp?sessao=i_foto"><table align="center"  cellspacing="0" cellpadding="5">   <tr>	 <td class="texto">		<b>Incluir Foto</b>		<hr size="1" style="border: 1px dashed #000000;"><br>	</td>	</tr> <tr>	<td class="texto2"><input type="hidden" name="enviado" value="sim">Album:</td> </tr> <tr bgcolor="#F4F4F4">	<td class="titulo2">	 <select size="1" name="idalbum">		<% Set rs=Conexao.Execute("SELECT * FROM album ORDER BY nome")		While not rs.EOF		Response.Write "<option value="&rs("nome")&">"&rs("nome")&"</option>"		rs.Movenext		Wend %>	</select>	</td>  </tr>  <tr>	<td class="texto2"><input type="hidden" name="enviado" value="sim">Imagem:</td> </tr> <tr bgcolor="#F4F4F4">	<td class="titulo2">	 <input type="text" name="imagem" size="50">	</td>  </tr>  <tr>	<td class="texto2"><br><input type="submit" value="Cadastrar"></td> </tr></table></form><%Case "i_foto"Sql = "INSERT INTO fotos (idalbum, imagem) VALUES ('" & Request.Form("idalbum") & "', '" & Request.Form("imagem")& "')" [b]Conexao.Execute(Sql)[/b] Response.Write "Enviado Com Sucesso<BR><A href=adm_fotos.asp>Voltar</a>"

[Salgado 4]

O campo idalbum em seu insert é do tipo texto? se não for retire as '.