<% '----------------------------------------------------------------- '--Page info '----------------------------------------------------------------- PAGE_NAME = "Broadcaster" PAGE_NAME_S = "Broadcasters" IS_ADDING = True blnIsAdmin = True '----------------------------------------------------------------- '--Page code '----------------------------------------------------------------- If Request.ServerVariables("REQUEST_METHOD")="POST" Then Set uploadRequest = New clsUpload '------------------------------------ '--upload image, if any '------------------------------------ imageName = uploadRequest("oldDocumentFileName") fileName = LCase(uploadRequest("image").FilePath) If fileName <> "" Then fileExt = Right(fileName,Len(fileName)-InStrRev(fileName,".")) If imageName = "" Then myFilePath = Server.MapPath(BROADCASTER_IMAGE_PATH) & "\" Set FileSys = New clsFileSystem If Not FileSys.FileExist(myFilePath & fileName) Then imageName = getUniqueName() & "." & fileExt Else imageName = fileName End If Set FileSys = Nothing pathToFile = myFilePath & imageName Else oldExt = Right(imageName,Len(imageName)-InStrRev(imageName,".")) If fileExt <> oldExt Then Set FileSys = New clsFileSystem FileSys.DeleteFile(BROADCASTER_IMAGE_PATH & imageName) If FileSys.FileExist(Server.MapPath(BROADCASTER_IMAGE_PATH & fileName)) Then imageName = getUniqueName() & "." & fileExt Else imageName = fileName End If Set FileSys = Nothing End If pathToFile = Server.MapPath(BROADCASTER_IMAGE_PATH & imageName) End If uploadRequest("image").SaveAs pathToFile ElseIf uploadRequest("removeDocument").value="1" then Set FileSys = New clsFileSystem FileSys.DeleteFile(BROADCASTER_IMAGE_PATH & imageName) Set FileSys = Nothing imageName = "" End If '------------------------------------ '--save it in the database '------------------------------------ Set DB = New clsDatabase DB.OpenDatabase DATABASE_NAME , DATABASE_USERNAME , DATABASE_PASSWORD DB.OpenRecord "library_broadcasters" , 0 DB.SetField "name" , uploadRequest("name") DB.SetField "logo" , imageName DB.SetField "link" , uploadRequest("link") DB.CloseRecord() newID = DB.GetLastID Set DB = Nothing IsSaved = True Else IsSaved = False Dim RecordData(3,0) End If %>

Adding a <%=PAGE_NAME%>

<%If Not IsSaved Then%> <%Else%> <%End If%>     New <%=PAGE_NAME%> added successfully ! What would you like to do ?