<%
Response.Expires = 0
%>
<%
f = Request.Form("org")
pos = InStrRev(f,"/")
if pos > 0 then
f = mid(f,pos+1)
end if
pos = InStrRev(f,"\")
if pos > 0 then
f = mid(f,pos+1)
end if
pos = InStrRev(f,":")
if pos > 0 then
f = mid(f,pos+1)
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Session("DSN")
v = "UPDATE links SET OriginalName='" & f & "' where LinkID=" & Request.Form("lid")
Conn.Execute v
Conn.Close
%>
Attach file
Database updated successfully.