Update no Banco

[3306Port 0]

Galera da uma força aeeee

Como posso, após a insercao fazer um UPDATE no banco ? A página Pesquisa.asp nao esta ordenando corretamente.

 

EnviaDados.asp

ASP

[*]<%

 

[*]empresa = Request.Form("empresa")

 

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

 

[*]depto = Request.Form("depto")

 

[*]telefone = Request.Form("telefone")

 

[*]email = Request.Form("email")

 

[*]produto = Request.Form("produto")

 

[*]quantidade = Request.Form("quantidade")

 

[*]estado = Request.Form("estado")

 

[*]cidade = Request.Form("cidade")

 

[*]data = Request.Form("data")

 

[*]entrega = Request.Form("entrega")

 

[*]%>

 

[*]<%

 

[*]Set Conn = Server.CreateObject("ADODB.CONNECTION")

 

[*]Conn.Open "DBQ=c:\home\cosme-nt\estudanteen.com\database\madipe.mdb;Driver={Microsoft Access Driver (*.mdb)}"

 

[*]

 

[*]theSQL = " INSERT INTO consultas "

 

[*]theSQL = theSQL & "(empresa, nome, depto, telefone, email, produto, quantidade, estado, cidade, data, entrega)"

 

[*]theSQL = theSQL & " VALUES ('"&empresa&"', '"&nome&"', '"&depto&"', '"&telefone&"', '"&email&"', '"&produto&"','"&quantidade&"', '"&estado&"', '"&cidade&"', '"&data&"','"&entrega&"')"

 

[*]Conn.Execute(theSQL)

 

[*]%>

 

[*]

 

[*]<%

 

[*]Conn.Close

 

[*]Set Conn = Nothing

 

[*]%>

 

[*]<%

 

[*]Response.Redirect("Default.asp")

 

[*]%>

 

Pesquisa.asp

ASP

[*]<%

 

[*] Set Conn = Server.CreateObject("ADODB.CONNECTION")

 

[*] Conn.Open "DBQ=c:\home\cosme-nt\estudanteen.com\database\madipe.mdb;Driver={Microsoft Access Driver (*.mdb)}"

 

[*]

 

[*] Set rs = Server.CreateObject("ADODB.RECORDSET")

 

[*] rs.Open "SELECT Distinct(data) FROM consultas ORDER BY data ASC", Conn

 

[*]

 

[*] 'Cria o recordset

 

[*] While Not rs.EOF

 

[*] Response.Write "<option value='"& rs("data") &"'>"& rs("data") &"</option>"

 

[*] rs.MoveNext

 

[*] Wend

 

[*] %>

[Ricardorodh 0]

        rs.Open "SELECT Distinct(data) FROM consultas ORDER BY data ASC", Conn

Tem quem mudar para ORDENAR EM DECRESCENTE

rs.Open "SELECT Distinct(data) FROM consultas ORDER BY data DESC", Conn