<% Set DB = New clsDatabase DB.OpenDatabase SQL_DATABASE_NAME, SQL_USR, SQL_PWD numOfRecords = DB.RunQuery("SELECT id,path FROM vt_arts") -1 If numOfRecords > -1 Then RecordData = DB.GetLastResults() Else Call myError("Invalid " & PAGE_NAME & " ID") End If For x = 0 to numOfRecords NEW_PATH = Replace(RecordData(1,x),"/images/cliparts/","") Response.write NEW_PATH & "
" DB.RunQuery("UPDATE vt_arts SET [path]='" & NEW_PATH & "' WHERE id=" &RecordData(0,x)) Next %>