Min forstand på sql er for lille til at jeg kan få det integreret i mit script, så databasen bliver opdateret. Din løsning virker fint i forhold til at brugeren bliver redirected til den rette side, men folder_path i databasen bliver ikke opdateret.
folder_path er en column i tabellen Users.
<%
If Request.Querystring("folder")<>"" Then
set rs=cn.Execute("UPDATE Users SET folder_path='"&Request.Querystring("folder")&"' WHERE Users.user_id=" & to_sql(user_id,"number"))
Response.redirect Request.Querystring("folder")
Else
Response.Write """Folder"" indeholder ikke en gyldig sti!"
End If
%>
Nedenfor kan du se en forkortet udgave af det registreringsscript jeg tidligere forsøgte at bruge til opdateringen. Hvis det ikke er for meget et bede om kan du måske regne ud hvad der skal til for at opdatere folder_path. Jeg har ladet en masse ligegy
connection-strengen ligger i en include-fil, bare så du ikke tror at det er den der mangler.
sub validate_register
''' request and validate data entered from this form
reg_code = trim(request("reg_code"))
user_id = trim(request("user_id"))
user_name = trim(request("user_name"))
f_name = trim(request("f_name"))
l_name = trim(request("l_name"))
password = trim(request("password"))
if password = "" then
error_list.add "661647","" &get_label("lbl_form_password") & " is required."
b_error = true
end if
mailing_list = trim(request("mailing_list"))
folder_path = Request.Querystring("folder")
end sub
sub db_select_register
sql = "SELECT " & _
"dtInserted, " & _
"accesslevel, " & _
"user_id, " & _
"user_name, " & _
"f_name, " & _
"l_name, " & _
"email, " & _
"password, " & _
"folder_path, " & _
"notes FROM Users" & _
" WHERE " & _
"Users.user_id = " & to_sql(user_id,"number") & ""
on error resume next
set rs = cn.Execute(sql)
if err.number <> 0 then
b_error = true
error_list.add "select_data_register", "The data selection failed. " & err.description
elseif rs.EOF then
b_results = false
msg_list.add "select_data_register", "The record was removed from the database."
else
reg_code = rs("reg_code")
dtInserted = rs("dtInserted")
accesslevel = rs("accesslevel")
user_id = rs("user_id")
user_name = rs("user_name")
f_name = rs("f_name")
l_name = rs("l_name")
email = rs("email")
password = rs("password")
folder_path = rs("folder_path")
notes = rs("notes")
end if
rs.Close
on error goto 0
end sub
sub db_insert_register
sql = "INSERT INTO Users" & _
"(" & _
"folder_path," & _
"mailing_list" & _
") VALUES (" & _
""Request.Querystring("folder")"," & _
"" & to_sql(mailing_list,"number") & ")"
'response.write sql
on error resume next
cn.Execute(sql)
if err.Number <> 0 then
b_error = true
error_list.add "db_insert_register" & err.Number ,"The database insert failed. " & err.Description
else
set rs = cn.Execute("SELECT @@IDENTITY")
user_id = rs(0)
rs.Close
msg_list.add "db_insert_register","The database insert was successful." end if
on error goto 0
end sub
do_search = request("do_search")
sortby = request("sortby")
''' request form keys and inputs
user_id = request("user_id")
':: request action
action = lcase(request("action"))
':: handle the action
select case action
case "select_register"
' select the requested key record from database
if user_id <> "" then
db_select_register
else
b_error = true
error_list.add "edit_register", "Specify record to select."
end if
case "insert_register"
' request form data and insert a new record into database
case "update_register"
' request form data and update an existing database record
validate_register
if not b_error then
if user_id <> "" then
db_update_register
else
b_error = true
error_list.add "update_register", "Specify record to update."
end if
end if
end select
':: handle the default case(s) (ignores value of action parameter)
%>
<%
display_errs
display_msg
%>
<%
':: check if hide form var was set
if not b_hide_register then
%>
<table class='HeaderTable'>
<tr>
<td class='HeaderTitle'>
<% =get_label("lbl_register") %>
</td>
<td class='HeaderTd'> </td>
</tr>
</table>
<table >
<form id="updating_folder" name="updating_folder" action="" method="post" >
<input type=hidden name="folder_path" value="<% =folder_path %>">
<tr>
<td class=labelTD align=right>
</td>
<input type=hidden name="action" value="<% if user_id <> "" then %>update<% else %>insert<%end if %>_register"></tr>
</form>
</table>
<%
response.redirect Request.Querystring("folder")
':: end hide form if
end if
%>
