Exemplo do form:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!--#include file="admin/Connections/administrador.asp" --> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_update")) = "form1") Then If (Not MM_abortEdit) Then ' execute the update Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_administrador_STRING MM_editCmd.CommandText = "UPDATE dados_adm SET nome = ? WHERE Código = ?" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("nome")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "ok.asp" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> <% Dim administrador__MMColParam administrador__MMColParam = "1" If (Session("MM_username") <> "") Then administrador__MMColParam = Session("MM_username") End If %> <% Dim administrador Dim administrador_cmd Dim administrador_numRows Set administrador_cmd = Server.CreateObject ("ADODB.Command") administrador_cmd.ActiveConnection = MM_administrador_STRING administrador_cmd.CommandText = "SELECT * FROM dados_adm WHERE login = ?" administrador_cmd.Prepared = true administrador_cmd.Parameters.Append administrador_cmd.CreateParameter("param1", 200, 1, 50, administrador__MMColParam) ' adVarChar Set administrador = administrador_cmd.Execute administrador_numRows = 0 %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> </head> <body> <form id="form1" name="form1" method="POST" action="<%=MM_editAction%>"> nome: <label> <input name="nome" type="hidden" id="nome" value="<%=(administrador.Fields.Item("nome").Value)%>" /> </label> <label> <input type="submit" name="button" id="button" value="gravar" /> </label> <input type="hidden" name="MM_update" value="form1" /> <input type="hidden" name="MM_recordId" value="<%= administrador.Fields.Item("Código").Value %>" /> </form> </body> </html> <% administrador.Close() Set administrador = Nothing %>
Obrigado !!!
Edição feita por: DarkSign, 19/03/2010, 07:35.
use [code] para códigos!!