Erro em Insert / Update

[Arrasted 0]

Ola Pessoal, não consigo atualizar os campos. // páginaAltera.asp

ASP [/tr][tr]<%

variavel_DJ = Request.QueryString("DJ")

Set Conn = Server.CreateObject("ADODB.CONNECTION")

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\36\360.mdb"

Set rs = Conn.Execute("SELECT * FROM DJS WHERE DJ = '"& Request.QueryString("DJ") &"' ORDER BY DJ")

%>

<%

Do While Not rs.eof

%>

<form name="AlteraTop" method="post" action="GravaTop.asp <% variavel_DJ = Request.QueryString("DJ")%>">

<input type="text" value="<%=rs("Musica1")%>" name="Musica1" class="Forms1">

<input type="text" value="<%=rs("Musica2")%>" name="Musica2" class="Forms1">

<input type="text" value="<%=rs("Musica3")%>" name="Musica3" class="Forms1">

<input type="text" value="<%=rs("Musica4")%>" name="Musica4" class="Forms1">

<input type="text" value="<%=rs("Musica5")%>" name="Musica5" class="Forms1">

<input type="submit" value="Atualizar" style="background-color:#FF9933">

</form>

<%

rs.Movenext

Loop

rs.Close

Conn.Close

Set Conn = Nothing

%>

[/tr]

GravaTop.asp

ASP [/tr][tr]<%

Musica1 = request.Form("Musica1")

Musica2 = Request.Form("Musica2")

 

%>

<%

variavel_DJ = Request.QueryString("DJ")

Set Conn = Server.CreateObject("ADODB.CONNECTION")

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\36\360.mdb"

 

theSQL = "insert into DJS (Musica1, Musica2) values ('"

theSQL = theSQL & Musica1

theSQL = theSQL & "', '"

theSQL = theSQL& Musica2

theSQL = theSQL & "')"

Conn.Execute(theSQL)

 

Conn.Close

Set Conn = Nothing

 

Response.Redirect("Default.asp")

%>

[/tr]

 

essa página é uma atualização....como faço o UPDATE ?

[jothaz 1]

<% Musica1 = request.Form("Musica1")Musica2 = Request.Form("Musica2")%><% variavel_DJ = Request.QueryString("DJ")Set Conn = Server.CreateObject("ADODB.CONNECTION")Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\36\360.mdb"theSQL = "Update DJS SET " theSQL = "Musica1 = '" & Musica1 &"', "theSQL = "Musica2 = '" & Musica2 & "'"Conn.Execute(theSQL)Conn.CloseSet Conn = NothingResponse.Redirect("Default.asp")%>t+

[Mário Monteiro 179]

muda a sql pra algo comotheSQL = "UPDATE DJS SET "theSQL = theSQL & "Musica1 = " & Musica1 & ","theSQL = theSQL & "Musica2 = " & Musica2 & ","e quantos campos tiver, no ultimo você não poe a virgula, mas também você deve passar uma Id pra saber qual registro atualizar ai você poe no final na theSQL assimtheSQL = theSQL & " WHERE ID = " Id