Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Galera .. to aki pela milhonésima vez ,.. agora pra pedir um simples e singelo help ....
este código foi gerado por um programinha (DataForm) .. decisão do chefe ñ se discute .. rsrs ... e to com dificuldade de entendê-lo. Preciso encaixar um Replace aí .. pq quando envia o texto pro banco manda todo zuado ... e o patrão não quer ...
já tentei substituir o "Trim" por "Replace" neste código, mas dá erro ... Alguém saberia dizer onde encaixo este maldito comando ????
Grato.
================================================
<%
If Not IsEmpty(Request.Form) Then
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open strCon
campo_duplicado = false
campo_msg = ""
If campo_duplicado = false Then
Set objRS= Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 3
objRS.CursorType = 0
objRS.LockType = 3
strQ = "SELECT * FROM empresa Where 1 <> 1"
objRS.Open strQ, objCon, , , &H0001
objRS.Addnew()
If objRS.Fields("IDE").properties("IsAutoIncrement") = False Then
objRS("IDE") = Trim(Request.Form("IDE"))
End If
If objRS.Fields("texto").properties("IsAutoIncrement") = False Then
objRS("texto") = Trim(Request.Form("texto"))
End If
objRS.Update
objRS.Close
Set objRS = Nothing
%>
Carregando comentários...