Inserção de Registro (não acontece nada após o insert)

[Gabriel Felipe 0]

Bom galera eu resolvi um outro problema com permissões do site e consegui abrir a página inicial e fazer aparecer os registros para incluir porém eu não sei em que eu mexi que fez com que não acontece nada ele parece que inclui mas não retorna nada e volta para a mesma página:

 

Se alguém puder ajudar olhem o código:

 

 

ASP

Dim MM_editAction

Dim MM_abortEdit

Dim MM_editQuery

Dim MM_editCmd

 

Dim MM_editConnection

Dim MM_editTable

Dim MM_editRedirectUrl

Dim MM_editColumn

Dim MM_recordId

 

Dim MM_fieldsStr

Dim MM_columnsStr

Dim MM_fields

Dim MM_columns

Dim MM_typeArray

Dim MM_formVal

Dim MM_delim

Dim MM_altVal

Dim MM_emptyVal

Dim MM_i

 

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

If (Request.QueryString <> "") Then

MM_editAction = MM_editAction & "?" & Request.QueryString

End If

 

' boolean to abort record edit

MM_abortEdit = false

 

' query string to execute

MM_editQuery = ""

%>

 

<%

' *** Insert Record: set variables

 

If (CStr(Request("MM_insert")) = "form1") Then

 

MM_editConnection = MM_Cadastroindex_STRING

MM_editTable = "noticia"

MM_editRedirectUrl = "lista.asp"

MM_fieldsStr = "foto|value|cod|value|tipo|value|titulo|value|descricao|value|noticia|value"

MM_columnsStr = "foto|',none,''|cod|',none,''|tipo|',none,''|titulo|',none,''|descricao|',none,''|noticia|',none,''"

 

' create the MM_fields and MM_columns arrays

MM_fields = Split(MM_fieldsStr, "|")

MM_columns = Split(MM_columnsStr, "|")

 

' set the form values

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))

Next

 

' append the query string to the redirect URL

If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then

If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then

MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

Else

MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

End If

End If

 

End If

%>

<%

' *** Insert Record: construct a sql insert statement and execute it

 

Dim MM_tableValues

Dim MM_dbValues

 

If (CStr(Request("MM_insert")) <> "") Then

 

' create the sql insert statement

MM_tableValues = ""

MM_dbValues = ""

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

MM_formVal = MM_fields(MM_i+1)

MM_typeArray = Split(MM_columns(MM_i+1),",")

MM_delim = MM_typeArray(0)

If (MM_delim = "none") Then MM_delim = ""

MM_altVal = MM_typeArray(1)

If (MM_altVal = "none") Then MM_altVal = ""

MM_emptyVal = MM_typeArray(2)

If (MM_emptyVal = "none") Then MM_emptyVal = ""

If (MM_formVal = "") Then

MM_formVal = MM_emptyVal

Else

If (MM_altVal <> "") Then

MM_formVal = MM_altVal

ElseIf (MM_delim = "'") Then ' escape quotes

MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"

Else

MM_formVal = MM_delim + MM_formVal + MM_delim

End If

End If

If (MM_i <> LBound(MM_fields)) Then

MM_tableValues = MM_tableValues & ","

MM_dbValues = MM_dbValues & ","

End If

MM_tableValues = MM_tableValues & MM_columns(MM_i)

MM_dbValues = MM_dbValues & MM_formVal

Next

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

 

If (Not MM_abortEdit) Then

' execute the insert

Set MM_editCmd = Server.CreateObject("ADODB.Command")

MM_editCmd.ActiveConnection = MM_editConnection

MM_editCmd.CommandText = MM_editQuery

MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close

 

If (MM_editRedirectUrl <> "") Then

Response.Redirect(MM_editRedirectUrl)

End If

End If

 

End If

%>

[Tayso 1]

Opa fala ae, entaum se ja deum um response.write para ver se estao vindo os valores da string?

[CaBo GeL 0]

você tem certeza se está inserindo ou você acha?ja visualizou no banco se os redistro estão inseridos mesmo?Ate +

[Gabriel Felipe 0]

Então eu verifiquei e não está gravando apenas a página recarrega novamente sem dado nenhum o problema é que só tentei fazer uma validação de campo mas não consegui aí exclui e ficou assim!

[Gabriel Felipe 0]

Qual string?? como faço e onde esse response.write ajuda ae galera!

[Tayso 1]

de um response write na sql que inclui:

response.write MM_editQueryresponse.end

você ja setou as permissores de ecrita e leitura na pasta base, e setou no arquivo do mdb a permissao?

pode ser isso tbm faz um teste ai.

Abracos

[Gabriel Felipe 0]

As permissões estão ok o problema é só que não insere mas valeu a dica vou testar!Abraços!!

[Mário Monteiro 179]

ponha aqui o que aparecer