%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim strDel Dim strTracking strDel = trim(Request("del")) strTracking = trim(Request("tracking")) If strDel = "1" Then Set rsCommon = objCon.Execute("DELETE FROM tblTracking WHERE intTracking = " & strTracking & " AND intSessionID = " & Session.SessionID & "") Set rsCommon = Nothing Set fs = Server.CreateObject("Scripting.FileSystemObject") If fs.FileExists("D:\HOME\TWHANSON\public_html\custom\custom_images\" & strTracking & ".jpg") Then fs.DeleteFile("D:\HOME\TWHANSON\public_html\custom\custom_images\" & strTracking & ".jpg") End If Set fs = Nothing Response.Redirect("/custom/") End If %>
![]() ![]() |
|
|