Campo Numérico agora é String

Olá Pessoal,

Bom, vou postar um código aqui que não está funcionando legal, bom, trata-se do campo Processo nº antigamente era um campo que só aceitava números, mas com algumas mudanças na gestão aqui do escritório, este campo agora deverá ser string (receber caracteres especiais)...

Aí começa a bronca, basicamente trata-se de um formulários upload sem componentes, onde o desenvolvedor anterior a mim, tratou de colocar as funcionalidaes de incluir, pesquisar, excluir e gravar em um único formulário. Beleza, ficou show, porém ele faz uso de um artificio chamado chave que é a concatenação de 3 outros campos (data de entrada, nº do processo + nº da vara)...

Hoje, em dia se eu digitar somente numero no campo processo (procno no código do formulário) ele faz todas funcionalidades legalzinho, porém se eu digitar algo como "2001-2005/08", aí pow, não grava nada...

Questão:" Em quais locais deste código vou ter que mexer para que o código funcione, qdo eu digitar no campo processo um dado alfanumérico por exemplo?"

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%Session.LCID = 1046%><%set objCmm = CreateObject("ADODB.Connection")objCmm.Open Application("strConn")on error resume next Response.Expires=0Response.Buffer = TRUEResponse.ClearbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Dim UploadRequestDim clipConexao,AcaoBotao,vara,processo,dtaent , clipSql, DataNot, ano, mes, dia, anexarres, foto1, n, Assunto, Manchete, Fonte, Noticia, destinacaodim ID_ARQ,ID_TIPOARQdim doc_nom,doc_caminhodim materiadim tipo_docSet UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBinIf UploadRequest.Item("Gravar").Item("Value") = "Gravar" then'If Request("Gravar") = "Gravar" Then	materia = UploadRequest.Item("materia").Item("Value")	destinacao = UploadRequest.Item("destinacao").Item("Value")	dtaent =UploadRequest.Item("dtaent").Item("Value") ano = cstr(year(dtaent))	mes = mid(dtaent,4,2)	dia = mid(dtaent,1,2) dtaent = ano + "-" + mes + "-" + dia	processo = UploadRequest.Item("procno").Item("Value") vara = UploadRequest.Item("varano").Item("Value")	arquivo = UploadRequest.Item("anexarres").Item("Value")	hoje = date()	anoatual = cstr(year(hoje))	mesatual = mid(cstr(100 + month(hoje)),2,2)	diaatual = mid(cstr(100 + day(hoje)),2,2) hoje = anoatual + "-" + mesatual + "-" + diaatual	pasta= (server.mappath("\"))& "\portaljuridico\arquivos\" contentType = UploadRequest.Item("anexarres").Item("ContentType")	filepathname = UploadRequest.Item("anexarres").Item("FileName") filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) filename = Replace( ucase(filename),".","_" & materia	& filepathname2 &".") value = UploadRequest.Item("anexarres").Item("Value") Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")	pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14	Set objFS = Server.CreateObject("Scripting.FileSystemObject") If objFS.FileExists( pasta & filename ) Then mensagem="Já existe um arquivo cadastrado com este nome, Favor alterar arquivo" Response.Write("<script language='JavaScript'>alert('" & mensagem & "');</script>")	Else if filepathname <> "" then Set MyFile = ScriptObject.CreateTextFile(pasta & filename) For i = 1 to LenB(value) MyFile.Write chr(AscB(MidB(value,i,1))) Next MyFile.Close end if if err.number <> 0 then mensagem = err.description else 'inserir = "Set nocount on insert into tbresenha values('" + processo + "'," + vara 'inserir = inserir + ",'" + dtaent + "','1753-01-01 00:00:00.000','" + materia 'inserir = inserir + "','" + filename + "','',0,'1753-01-01 00:00:00.000',0,'" 'inserir = inserir + login + "','"+ hoje + "','1753-01-01 00:00:00.000', '" + destinacao + "')" inserir = "SP_InclusaoSecretariaResenha '" & processo & "'," & vara & ",'" & dtaent & "','" & materia & "','" & destinacao & "','" & filename & "','" & Session("Login") & "'" set objCmm1	= CreateObject("ADODB.Connection") objCmm1.Open Application("strConn") set rs = objCmm1.Execute(inserir) if	objCmm1.Errors.Count <> 0 then Response.Write "Ocorreu um erro nesta página!<BR>" Response.Write "Número do erro: " & Err.number & "<BR>" Response.Write "Descrição fornecida: " & Err.Description & "<BR>" mensagem = "Erro na Inclusão!" else mensagem = "Operação com Sucesso" end if objCmm1.Close() set objCmm1 = nothing Response.Write("<script language='JavaScript'>alert('" & mensagem & "');</script>") end if End If 'inserir = "SP_InclusaoSecretariaResenha '" & processo & "'," & vara & ",'" & dtaent & "','" & materia & "','" & destinacao & "','" & filename & "','" & Session("Login") & "'"	'inserir = "Set nocount on insert into tbresenha values(" + processo + "," 'inserir = inserir + vara + ",'" + dtaent + "','1753-01-01 00:00:00.000','" 'inserir = inserir + materia + "','" + arquivo + "','',0,'1753-01-01 00:00:00.000',0,'" 'inserir = inserir + login + "','"+ hoje + "','1753-01-01 00:00:00.000')" 'set objCmm1 = CreateObject("ADODB.Connection")	'objCmm1.Open Application("strConn")	'set rs = objCmm1.Execute(inserir)	'objCmm1.Close	'set objCmm1 = nothingEnd IfIf UploadRequest.Item("Pesquisar").Item("Value") = "Pesquisar" Then	sql = "select numRes_NumProc, numRes_NumVar, dtmRes_DatRes, "	sql = sql + "Convert(char(10), dtmRes_DatEnc,103) as 'dtmRes_DatEnc', vchRes_MatJur, vchRes_Anexo, chrRes_StaVis, numRes_EncAdv, "	sql = sql + " Convert(char(10), dtmRes_Prz,103) as 'dtmRes_Prz', numRes_Aviso, vchRes_UsuCod, "	sql = sql + "Convert(char(10), dtmRes_DatAtu,103) as 'dtmRes_DatAtu', Convert(char(10), dtmRes_DatVis,103) as 'dtmRes_DatVis', ResDestinacao from tbresenha ORDER BY dtmRes_DatRes desc " If UploadRequest.Item("materia").Item("Value") = "TRABALHISTA" Then sql = "select numRes_NumProc, numRes_NumVar, Convert(char(10), dtmRes_DatRes,103) as 'dtmRes_DatRes', " sql = sql + "Convert(char(10), dtmRes_DatEnc,103) as 'dtmRes_DatEnc', vchRes_MatJur, vchRes_Anexo, chrRes_StaVis, numRes_EncAdv, " sql = sql + " Convert(char(10), dtmRes_Prz,103) as 'dtmRes_Prz', numRes_Aviso, vchRes_UsuCod, " sql = sql + "Convert(char(10), dtmRes_DatAtu,103) as 'dtmRes_DatAtu', Convert(char(10), dtmRes_DatVis,103) as 'dtmRes_DatVis', ResDestinacao from tbresenha" sql = sql + " Where vchRes_MatJur = 'TRABALHISTA'"	End If	If UploadRequest.Item("materia").Item("Value") = "CIVEL" Then sql = "select numRes_NumProc, numRes_NumVar, Convert(char(10), dtmRes_DatRes,103) as 'dtmRes_DatRes', " sql = sql + "Convert(char(10), dtmRes_DatEnc,103) as 'dtmRes_DatEnc', vchRes_MatJur, vchRes_Anexo, chrRes_StaVis, numRes_EncAdv, " sql = sql + " Convert(char(10), dtmRes_Prz,103) as 'dtmRes_Prz', numRes_Aviso, vchRes_UsuCod, " sql = sql + "Convert(char(10), dtmRes_DatAtu,103) as 'dtmRes_DatAtu', Convert(char(10), dtmRes_DatVis,103) as 'dtmRes_DatVis', ResDestinacao from tbresenha" sql = sql + " Where vchRes_MatJur = 'CIVEL'" End If	If UploadRequest.Item("materia").Item("Value") = "OUTROS" Then sql = "select numRes_NumProc, numRes_NumVar, Convert(char(10), dtmRes_DatRes,103) as 'dtmRes_DatRes', " sql = sql + "Convert(char(10), dtmRes_DatEnc,103) as 'dtmRes_DatEnc', vchRes_MatJur, vchRes_Anexo, chrRes_StaVis, numRes_EncAdv, " sql = sql + " Convert(char(10), dtmRes_Prz,103) as 'dtmRes_Prz', numRes_Aviso, vchRes_UsuCod, " sql = sql + "Convert(char(10), dtmRes_DatAtu,103) as 'dtmRes_DatAtu', Convert(char(10), dtmRes_DatVis,103) as 'dtmRes_DatVis', ResDestinacao from tbresenha" sql = sql + " Where vchRes_MatJur = 'OUTROS'" End If If UploadRequest.Item("destinacao").Item("Value") = "CACON" Then sql = "select numRes_NumProc, numRes_NumVar, Convert(char(10), dtmRes_DatRes,103) as 'dtmRes_DatRes', " sql = sql + "Convert(char(10), dtmRes_DatEnc,103) as 'dtmRes_DatEnc', vchRes_MatJur, vchRes_Anexo, chrRes_StaVis, numRes_EncAdv, " sql = sql + " Convert(char(10), dtmRes_Prz,103) as 'dtmRes_Prz', numRes_Aviso, vchRes_UsuCod, " sql = sql + "Convert(char(10), dtmRes_DatAtu,103) as 'dtmRes_DatAtu', Convert(char(10), dtmRes_DatVis,103) as 'dtmRes_DatVis', ResDestinacao from tbresenha" sql = sql + " Where ResDestinacao = 'CACON'" End If If UploadRequest.Item("destinacao").Item("Value") = "CAGER" Then sql = "select numRes_NumProc, numRes_NumVar, Convert(char(10), dtmRes_DatRes,103) as 'dtmRes_DatRes', " sql = sql + "Convert(char(10), dtmRes_DatEnc,103) as 'dtmRes_DatEnc', vchRes_MatJur, vchRes_Anexo, chrRes_StaVis, numRes_EncAdv, " sql = sql + " Convert(char(10), dtmRes_Prz,103) as 'dtmRes_Prz', numRes_Aviso, vchRes_UsuCod, " sql = sql + "Convert(char(10), dtmRes_DatAtu,103) as 'dtmRes_DatAtu', Convert(char(10), dtmRes_DatVis,103) as 'dtmRes_DatVis', ResDestinacao from tbresenha" sql = sql + " Where ResDestinacao = 'CAGER'" End If If UploadRequest.Item("dtaent").Item("Value") <> "" Then data = UploadRequest.Item("dtaent").Item("Value") ano = cstr(year(data)) mes = mid(cstr(100 + month(data)),2,2) dia = mid(cstr(100 + day(data)),2,2) sql = sql + " and dtmRes_DatRes = '" + ano + "-" + mes + "-" + dia + "'"	End If	If UploadRequest.Item("procno").Item("Value") <> "" Then sql = sql + " and numRes_NumProc = " + UploadRequest.Item("procno").Item("Value")	End If	If UploadRequest.Item("varano").Item("Value") <> "" Then sql = sql + " and numRes_NumVar = " + UploadRequest.Item("varano").Item("Value")	End If set objCmm2 = CreateObject("ADODB.Connection")	set sqlC = server.CreateObject("ADODB.Recordset")	objCmm2.Open Application("strConn")	SET sqlC = objCmm2.Execute (sql) End If If UploadRequest.Item("Excluir").Item("Value") = "Excluir" Then	chave1 = UploadRequest.Item("chave1").Item("Value")	ano = cstr(year(chave1))	mes = mid(chave1,4,2)	dia = mid(chave1,1,2) chave1 = ano + "-" + mes + "-" + dia	chave2 = UploadRequest.Item("chave2").Item("Value")	chave3 = UploadRequest.Item("chave3").Item("Value") 'chave2 = request("chave2")	'chave3 = request("chave3")	excluir = "Set nocount on delete from tbresenha Where numRes_NumProc = '" + chave2 + "' and numRes_NumVar = " + chave3 excluir = excluir + " and dtmRes_DatRes = '" + Chave1 + "'" set objCmm1 = CreateObject("ADODB.Connection")	objCmm1.Open Application("strConn")	set rs = objCmm1.Execute(excluir)	objCmm1.Close	set objCmm1 = nothing If chave2 <> "" Then Response.Write("<script language='JavaScript'>alert('" & "Registro excluído com sucesso" & "');</script>")	End If End IfSet objScap1 = Server.CreateObject("SCAP1.clsSisLock")objScap1.UsuarioLogin = Session("Login") wResultAtual = objScap1.Mensagem If wResultAtual <> vbNullString Then Response.Status = "401 Acesso Negado"	Response.Write wResultAtual	Response.EndEnd if%>