Response.Write

[PlasmA 0]

olha como funciona.. tenta pegar a logica que ai duvido que você vai ter alguma duvida... vou fazer do modo mais simples.

 

pagina1.asp

ASP

[*]

 

[*]'apenas um formulario enviando os dados para outra pagina

 

[*]<form action='pagina2.asp'>

 

[*]<input name="campo"><input type="submit">

 

[*]</form>

 

[*]

 

pagina2.asp

ASP

[*]

 

[*]<%

 

[*]nome = request.Form("nome")

 

[*]SQL = "insert into tabela (nome) values ("&nome&")"

 

[*]Set Rs = Server.CreateObject("ADODB.RecordSet")

 

[*]Rs.Open(SQL),conn,3,3

 

[*]'conn = objeto de conexao com o seu banco

 

[*]

 

[*]Response.Write("Inserido com sucesso!")

 

[*]'viu só depois de executar o comando que insere os dados

 

[*]' no banco simplesmente se coloca um response.Write("bla")

 

[*]%>

 

 

 

ficou claro agora.

 

 

 

caso nem assim consiga volte a postar q nesse forum existem muitas pessoas afim de ajudar

[explore 3]

Pela logica é isso mesmo!

[globim 0]

cara posta o seu codigo aqui pix dai agente faz pra você ver ^^

[dark0 0]

erreu costumo fazer alguma coisa assim:if request.form("nomr_do_botao_submit") <> "" then'sql = "...."response.write "Mensagem de confirmação"elsemostra o formularioend if

[maurohpg 0]

Tá ai Globin oq ue você me pediu! Abraço

Mais tenho que intender tb o que foi feito depois me explica please!

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="Connections/vision.asp" --><%' *** Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))If (Request.QueryString <> "") Then  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)End If' boolean to abort record editMM_abortEdit = false' query string to executeMM_editQuery = ""%><%' *** Insert Record: set variablesIf (CStr(Request("MM_insert")) = "form1") Then  MM_editConnection = MM_vision_STRING  MM_editTable = "clientes"  MM_editRedirectUrl = ""  MM_fieldsStr  = "cliente|value"  MM_columnsStr = "clientes|',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 IfEnd If%><%' *** Insert Record: construct a sql insert statement and execute itDim MM_tableValuesDim MM_dbValuesIf (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 IfEnd IfEnd If%><%Dim rsDim rs_numRowsSet rs = Server.CreateObject("ADODB.Recordset")rs.ActiveConnection = MM_vision_STRINGrs.Source = "SELECT * FROM clientes ORDER BY clientes ASC"rs.CursorType = 0rs.CursorLocation = 2rs.LockType = 1rs.Open()rs_numRows = 0%><html><head><title>Inserir Clientes</title><link href="css.css" rel="stylesheet" type="text/css"><style type="text/css"><!--body {	margin-left: 2px;	margin-top: 2px;}.style1 {	font-family: Arial, Helvetica, sans-serif;	font-size: 9px;	font-weight: bold;	color: #330000;}.style3 {font-family: Arial, Helvetica, sans-serif; font-size: 14px; font-weight: bold; }.style6 {	font-family: Arial, Helvetica, sans-serif;	font-size: 12px;	font-weight: bold;	color: #000000;}.style9 {font-size: 14px}--></style></head><body><div align="center">  <p> </p>  <p> </p>  <p>  </p>  <form name="form1" method="POST" action="<%=MM_editAction%>">    <table width="35%"  border="0" cellspacing="0" cellpadding="0">      <tr>        <td bgcolor="#CCCCCC"><div align="center"></div>            <table width="100%"  border="0" align="center" cellpadding="0" cellspacing="1">              <tr bgcolor="#FF9933">                <td bgcolor="#F0F0F0"><span class="style6">  Inserir Clientes </span></td>              </tr>              <tr>                <td height="84" valign="baseline" bgcolor="#FFFFFF"><div align="left">                    <p><span class="style1"><span class="style9"> </span> Nome do Cliente: </span> <br>                        <span class="style3"> </span>                        <input name="cliente" type="text" id="cliente" style="border-color: #87898C; border-width: 1; background-color: #ffffff; border-style: solid; font-size: 10; font-family: arial;" size="30" maxlength="100">                      <span class="style3"><br> </span><br>                <span class="style3"> </span>                <input name="busca" type="submit" class="formMainBotao" value="enviar">                <br>                  </p>                </div></td>              </tr>        </table></td>      </tr>    </table>      <input type="hidden" name="MM_insert" value="form1">  </form>  </div></body></html><%rs.Close()Set rs = Nothing%>

[Marcelo Barcellos 0]

Bom...Pra começar era melhor voce parar de usar o DW...

[explore 3]

Bom...Pra começar era melhor voce parar de usar o DW...

<{POST_SNAPBACK}>

tb Acho, Suja muito o Codigo!

 

Alem de ele fazer uma rotina enorme para fazer uma coisa simples!

[maurohpg 0]

Hehehe, tb acho que acaba atrapalhando mais eu estou tentando largar dele..só isso para as coisas simples e práticas mesmo.

[PlasmA 0]

sempre uso o DW para programar em ASP... acho muito bom pois diferenica por cores e completa os meus comandos...eu sempre uso ele claro que no modo codigo.... e o codigo fica do jeito que eu quero.. sem segredos e sem sujeira...sei que existem outros mais o DW eu considero um bom exitor para issu.

[Marcelo Barcellos 0]

Eu prefiro o Visual Interdev.

[Mário Monteiro 179]

eu uso dwacho ele otimomas pra usar como editor e não pra gerar codigo que sempre suja o que o propramador faz

[globim 0]

faço as palaveras do marioufpa minhas ^^jhehe a melhor forma de aprender nao eh deixando o programa criar as coisas para você --------------------------------x------------------------------------e ai mauro funciono aquele codigo que lhe enviei certinho ^^nem testei aqui só fiz e te mandei ^^abraços